Msflexgrid et base de données access

qmohamed Messages postés 16 Date d'inscription mercredi 11 mars 2009 Statut Membre Dernière intervention 24 mai 2009 - 28 avril 2009 à 13:14
hamdi1983 Messages postés 4 Date d'inscription mardi 8 avril 2008 Statut Membre Dernière intervention 26 mai 2009 - 26 mai 2009 à 16:59
Bonjour,
je veux savoir comment manipuler une base de données access avec msflexgrid.
j ai créé une feuille sur laquelle j ai positionné un combobox que je peux remplir avec une base de données access.
et je veux lorsque je choisi un élément de ce combobox que les informations liées à cet élément et qui se trouvent dans cette base de données qu'il s'affichent.
Merci

1 réponse

hamdi1983 Messages postés 4 Date d'inscription mardi 8 avril 2008 Statut Membre Dernière intervention 26 mai 2009
26 mai 2009 à 16:59
Private Sub RemplirMs()
Dim i As Integer
MSFlexGrid1.Rows = 1
Set rsB = Nothing
rsB.Open "select* from pointage where matr like'%" & Text1.Text & "%'",Conn, adOpenDynamic, adOpenDynamic
If rsB.EOF Then Exit Sub
i = 0
Do While Not rsB.EOF
i = i + 1
rsB.MoveNext
Loop
MSFlexGrid1.Rows = i + 1
Call couleur_lignes
rsB.MoveFirst
For i = 1 To MSFlexGrid1.Rows - 1
If Not rsB.EOF Then
MSFlexGrid1.TextMatrix(i, 0) = rsB.Fields(1)
End If
rsB.MoveNext
Next i
rsB.MoveFirst
For i = 1 To MSFlexGrid1.Rows - 1
If Not rsB.EOF Then
MSFlexGrid1.TextMatrix(i, 1) = rsB.Fields(2)
End If
rsB.MoveNext
Next i
rsB.MoveFirst
end sub
Rejoignez-nous