Comment utiliser un recrdset pour remplir une liste à partir d'une table
Salut
Je suis débutant en matière des bases de données, et j'ai réussi à remplir le combo1 à partir d'une table moyennant un Recrodset DAO, mais je ne sais comment faire pour remplir un listbox (list1) avec des éléments filtrés d'une autre table de la même base de données voici le code que j'ai écrit:
Code:
1
2
3
4
5
6
7
8
9
10
11
| Private Sub Combo1_Click()
Dim rs1 As DAO.Recordset
Dim strSQL As String
IdClasse = Combo2.List(Combo1.ListIndex)
strSQL = "SELECT Elève.Nom FROM Eléves WHERE IdClasse=' " & IdClasse & " ' "
Set rs1 = mabase.OpenRecordset(strSQL, dbOpenDynaset, dbAppendOnly)
Do Until rs1.EOF
List1.AddItem rs1!Nom
rs1.MoveNext
Loop
End Sub |
j'espère que vous aurez la gentillesse de me donner un coup de main je suis vraiment bloqué
