Bonjour,
je suis débutant en programmation, je suis en train de concevoir une application VB ACCESS monoposte.
J’ai pris ici un exemple simple pour faciliter les choses.
Sur le form de cette application, j’ai deux zones de texte pour afficher les informations de la base constituée de deux champs nom et prenom.
J’ai réussi à me connecter à ma base et aussi à créer un recordset mais je n’arrive pas à naviguer dans ce recordset.

Je suis bloqué, merci à toute personne qui peut m’aider

voici ci-joint le code que j’ai écrit :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub Form_Load()
 
' Établit une connexion
Set cn = New ADODB.Connection
With cn
    .Provider = "microsoft.Jet.oledb.4.0"
    .ConnectionString = "data source=C:\Base2.mdb"
    .Open
End With
 
' créer un jeu d'enregistrements
Set rspersonne = New ADODB.Recordset
rspersonne.Open "Select*from personne", cn, adOpenDynamic
Text1.Text = rspersonne!nom
Text2.Text = rspersonne!prenom
End Sub
 
 
Private Sub Cmdsuivant_Click()
rspersonne.MoveNext          
End Sub
 
 
Private Sub Cmdprécédent_Click()
    rspersonne.MovePrevious      
End Sub