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