Base de donnée en VB
omar_k
Messages postés
57
Statut
Membre
-
omar_k Messages postés 57 Statut Membre -
omar_k Messages postés 57 Statut Membre -
Bonjour,
je souhaite entrer le num d une CIN dans une zone de text en appuiyan sur un bouton si ce num existe sur la base de donneé l enregistrement en entier s affiche sur une list box voila le programme
Sub rechercher()
Dim rs As Recordset
Dim ok As Boolean
Set rs = db.OpenRecordset("client", dbOpenDynaset)
ok = False
While (Not rs.EOF And ok = False)
If (rs(0) = Text1.Text) Then
ok = True
List1.AddItem rs(1)
Else
rs.MoveNext
End If
Wend
End Sub
merci d avance
je souhaite entrer le num d une CIN dans une zone de text en appuiyan sur un bouton si ce num existe sur la base de donneé l enregistrement en entier s affiche sur une list box voila le programme
Sub rechercher()
Dim rs As Recordset
Dim ok As Boolean
Set rs = db.OpenRecordset("client", dbOpenDynaset)
ok = False
While (Not rs.EOF And ok = False)
If (rs(0) = Text1.Text) Then
ok = True
List1.AddItem rs(1)
Else
rs.MoveNext
End If
Wend
End Sub
merci d avance
1 réponse
-
Bonjour,
Si tu nous disais quel est le problème !!!
La seule chose que je vois c'est dans la condition While. On ne passe jamais dans la boucle puisque ok =False. Cette condition n'est pas nécessaire.
Il manque également un rs.MoveFirst pour se mettre sur le premier enregistrement avant la boucle while.
;o)
«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.»
Nicolas Boileau
