Msflexgrid et base de données access

Question

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

hamdi1983 · Answer

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

Msflexgrid et base de données access

1 réponse

Votre réponse

Discussions similaires