MSFLEXGRID avec VB6
beaf
Messages postés
262
Date d'inscription
Statut
Membre
Dernière intervention
-
msflexgrid to bd -
msflexgrid to bd -
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.
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.
4 réponses
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
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
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
mais je disais pour l'affaiché les donner ds le MSHFlexgrid
, ce que je vois l'exemple ci-dessus concerne que les entetes
merci
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
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
