Ado: comment récupérer les données depuis une bd?
Bonjour à tous,
J'essaie de développer une petite application d'un jeu éducatif.
Mon application est liée à une base de données Access.
Sur ma forme, je dois récupérer les questions déjà saisis dans la base de données (un après l'autre).
J'ai réussi à récupérer la première et la deuxième question par le moyen de ces codes:
Code:
1
2
3
4
5
6
7
8
9
| Private Sub Command1_Click()
Set DB = New ADODB.Connection
Set RS = New ADODB.Recordset
DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database password=123; Data Source=" & App.Path & "\data.mdb"
RS.Open "select * from table1", DB, adOpenDynamic, adLockOptimistic
Label1.Caption = RS!question1
End Sub |
et pour récupérer la deuxième question voici le code:
Code:
1
2
3
4
5
6
7
8
9
| Private Sub Command2_Click()
Set DB = New ADODB.Connection
Set RS = New ADODB.Recordset
DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database password=123; Data Source=" & App.Path & "\data.mdb"
RS.Open "select * from table1", DB, adOpenDynamic, adLockOptimistic
RS.MoveNext
Label1.Caption = RS!question1
End Sub |
Mon problème est que je ne peux pas récupérer le reste des questions.
Merci
