Probleme ds mn code de consultation en ado

Signaler
Messages postés
2
Date d'inscription
dimanche 23 janvier 2005
Statut
Membre
Dernière intervention
29 janvier 2005
-
Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
-
salut tt le monde, voila jé fai un code de consultation d'une base de donnée access en utilisant ADO mai jé un problem je sai pa lekel voila le code et si kelkun de vous peu me le corriger merci d'avance:
Private Sub cmd_cons_Click()
Set cn = New ADODB.Connection
cn.Provider = "microsoft.jet.oledb.3.51"
cn.ConnectionString = App.Path & "\mrid.mdb"
cn.Open
Set rs = New Recordset
req = "select * from user"
rs.Open req, cn, adOpenDynamic
While Not rs.EOF
If rs.Fields(0) = tx_id Then
tx_id = rs.Fields(0)
tx_nom = rs.Fields(1)
tx_prenom = rs.Fields(2)
tx_date = rs.Fields(3)
a = 1
Else
a = 0
End If
Wend
If a = 0 Then
MsgBox "inexistant"
End If
rs.Close
Set rs = Nothing
End Sub

1 réponse

Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
18
Salut,

A première vue, tu as oublié un rs.movenext dans ta boucle while ... wend.

Cordialement, CanisLupus