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
Partager