Discussion :

[zidane2]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ProgElecT]

MoveFirst Première ligne
MoveNext Ligne en cours + 1
MovePrevious Ligne en cours – 1
MoveLast Dernière ligne

L'aide indispensable du programmeur
MSDN VB6 FR

[zidane2]

merci ProgElecT