MSFLEXGRID avec VB6

Fermé
beaf Messages postés 262 Date d'inscription mardi 17 octobre 2006 Statut Membre Dernière intervention 26 août 2015 - 15 sept. 2008 à 10:28
 msflexgrid to bd - 5 mars 2009 à 19:31
Bonjour,


je debute avec VB, donc j'ai commencé avec des petits programme en VB6

j'ai pu programmer le bouton "Enregistrer" avec la bd MS Access

je voudrais afficher les données provenant de la bd MS Access avec MSFLEXGRID

Nom de la bd= BaseVB
les tables: client (nom_clt,nom_clt2,nationalite,type_clt,date_arr,date_dep,heure_arr)
services (designation_ser)

Je voudrais donner des titres à mes colonnes, et alimenter chaque lignes de la grille avec des enregistrements d'une table (avec recordset).

Si quelqu'un pouvais me donner quelques trucs et exemple.

je sais exactement comment utiliser MSFLEXGRID

En vous remerciant.
A voir également:

4 réponses

Archi-dessin Messages postés 270 Date d'inscription samedi 19 avril 2008 Statut Membre Dernière intervention 28 décembre 2009 25
16 sept. 2008 à 04:06
exemple:
pour l'en tete:
Sub tete_affich()
Affiche_Donnee.Enabled = False
Affiche_Donnee.ColWidth(0) = 100
Affiche_Donnee.Clear


Affiche_Donnee.ColWidth(1) = 1500
Affiche_Donnee.Row = 0
Affiche_Donnee.Col = 1
Affiche_Donnee.CellTextStyle = flexTextRaised
Affiche_Donnee.CellFontBold = True
Affiche_Donnee.Text = "Date Jour"

Affiche_Donnee.ColWidth(2) = 1600
'Affiche_Donnee.Row = 0
Affiche_Donnee.Col = 2
Affiche_Donnee.CellTextStyle = flexTextRaised
Affiche_Donnee.CellFontBold = True
Affiche_Donnee.Text = "Compteur Départ"

Affiche_Donnee.ColWidth(3) = 1800
'Affiche_Donnee.Row = 0
Affiche_Donnee.Col = 3
Affiche_Donnee.CellTextStyle = flexTextRaised
Affiche_Donnee.CellFontBold = True
Affiche_Donnee.Text = "Compteur d'arrivée"

Affiche_Donnee.ColWidth(4) = 1600
'Affiche_Donnee.Row = 0
Affiche_Donnee.Col = 4
Affiche_Donnee.CellTextStyle = flexTextRaised
Affiche_Donnee.CellFontBold = True
Affiche_Donnee.Text = "Parcours (Km)"

Affiche_Donnee.ColWidth(5) = 2000
'Affiche_Donnee.Row = 0
Affiche_Donnee.Col = 5
Affiche_Donnee.CellTextStyle = flexTextRaised
Affiche_Donnee.CellFontBold = True
Affiche_Donnee.Text = "Littre / 100 Km"

Affiche_Donnee.ColWidth(6) = 2000
'Affiche_Donnee.Row = 0
Affiche_Donnee.Col = 6
Affiche_Donnee.CellTextStyle = flexTextRaised
Affiche_Donnee.CellFontBold = True
Affiche_Donnee.Text = "Observation"
End Sub
3
beaf Messages postés 262 Date d'inscription mardi 17 octobre 2006 Statut Membre Dernière intervention 26 août 2015 1
16 sept. 2008 à 09:33
Merci deja pour votre reponse

mais je disais pour l'affaiché les donner ds le MSHFlexgrid

, ce que je vois l'exemple ci-dessus concerne que les entetes

merci
0
Archi-dessin Messages postés 270 Date d'inscription samedi 19 avril 2008 Statut Membre Dernière intervention 28 décembre 2009 25
16 sept. 2008 à 14:11
le composant MSHFlexgrid.ocx, je ne l'ai pas dans notre vb6
0
jouteur Messages postés 3 Date d'inscription vendredi 16 janvier 2009 Statut Membre Dernière intervention 27 juillet 2011
16 janv. 2009 à 16:46
salut, je ne sais pas si tu as eu les reponses a tes interrogations mais voici comment je fait
En supposant que le MSFLEXGRID s'appelle MSFLEXGRID1

Dim Ligne_en_Cours as Integer, Colonne_en_Cours as Integer ' Les lignes et colonnes du MSFLEXGRID1
Dim Requete As String, Mon_RecordSet As RecordSet

' d'abord il faut ouvrir la lbase de données
Set Ma_Base = OpenDatabase('Chemin Complet de la Base')

Requete = "Select * From Table;"
Set Mon_RecordSet = Ma_Base.OpenRecordset(Requete, dbOpenDynaset)

Ligne_en_Cours =0

While not Mon_RecordSet.EOF
Colonne_en_Cours = 0
MSFLEXGRID1.Row = Ligne_en_Cours
MSFLEXGRID1.Col = Colonne_en_Cours

MSFLEXGRID1.Text = Mon_RecordSet.Field("Champ1")
Colonne_en_Cours = Colonne_en_Cours + 1
MSFLEXGRID1.Text = Mon_RecordSet.Field("Champ2")
Colonne_en_Cours = Colonne_en_Cours + 1
MSFLEXGRID1.Text = Mon_RecordSet.Field("Champ3")
Colonne_en_Cours = Colonne_en_Cours + 1
MSFLEXGRID1.Text = Mon_RecordSet.Field("Champ4")
Colonne_en_Cours = Colonne_en_Cours + 1
ETC....

Mon_RecordSet.MoveNext
Ligne_en_Cours = Ligne_en_Cours + 1
Wend

Mon_RecordSet.Close


Voila si tu as d'autres question je peux t'aider
A+.
Laurent
0
msflexgrid to bd
5 mars 2009 à 19:31
merci pour les reponses
je cherche urgent
comment enregistrer des données a partir d'un msflexgrid vers une table d'une base de donnéesv acess
et merci beaucoup
0