probleme ds mn code de consultation en ado

Question

salut tt le monde, voila j&#233; fai un code de consultation d'une base de donn&#233;e access en utilisant ADO mai j&#233; 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

cs_CanisLupus · Answer

Salut,

A premi&#232;re vue, tu as oubli&#233; un rs.movenext dans ta boucle while ... wend.

Cordialement, CanisLupus

Probleme ds mn code de consultation en ado

1 réponse

Discussions similaires