MSFLEXGRID avec VB6 Fermé

Question

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.

Archi-dessin · Accepted Answer

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

beaf · Answer

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

Archi-dessin · Answer

le composant MSHFlexgrid.ocx, je ne l'ai pas dans notre vb6

jouteur · Answer

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

MSFLEXGRID avec VB6

4 réponses

Discussions similaires

Newsletters