Msflexgrid et base de données access

Signaler
Messages postés
16
Date d'inscription
mercredi 11 mars 2009
Statut
Membre
Dernière intervention
24 mai 2009
-
Messages postés
4
Date d'inscription
mardi 8 avril 2008
Statut
Membre
Dernière intervention
26 mai 2009
-
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

Messages postés
4
Date d'inscription
mardi 8 avril 2008
Statut
Membre
Dernière intervention
26 mai 2009

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