naviguer dans un recordset

Question

Bonjour,
je suis débutant en programmation, je suis entrains de concevoir une application VB  ACCESS monoposte. 
J'ai pris ici un exemple simple pour faciliter les choses .Sur la form de cette application, j'ai deux zone de texte pour afficher les informations de la base constituer de deux champs nom et prenom .
 J'ai réussi à me connecter a ma base et aussi a crer un recordset mais je n'arrive pas à naviguer dans ce recordset .

Je suis blocké , mercie à toutes personn qui peut m?aider

voici ci-joint le code que j'ai écrit :

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

PCPT · Answer

salut,

[del].Provider = "microsoft.Jet.oledb.4.0"
.ConnectionString = "data source=C:\Base2.mdb"/del 
.Provider = "Microsoft.jet.OLEDB.4.0;Data Source=C:\Base2.mdb;Jet OLEDB:Database Password=;Jet OLEDB:Engine Type=5;"
.Open 

++
[hr]

PCPT · Answer

et tant qu'à faire :

rspersonne.Open "Select*from personne", cn,_ adOpenDynamic 
rspersonne.Open "SELECT * FROM personne;", cn, adOpenDynamic, adLockOptimistic, -1

Naviguer dans un recordset

2 réponses

Votre réponse

Discussions similaires