Probleme ds mn code de consultation en ado

goldenboy_h Messages postés 2 Date d'inscription dimanche 23 janvier 2005 Statut Membre Dernière intervention 29 janvier 2005 - 29 janv. 2005 à 15:07
cs_CanisLupus Messages postés 3757 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 13 mars 2006 - 29 janv. 2005 à 16:30
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

cs_CanisLupus Messages postés 3757 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 13 mars 2006 18
29 janv. 2005 à 16:30
Salut,

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

Cordialement, CanisLupus
0