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
A voir également:
- Base de donnée en VB
- Base de registre - Guide
- Formules mathématiques de base - Télécharger - Études & Formations
- Vb - Télécharger - Langages
- Gigaset ne reconnait plus sa base - Forum telephonie fixe
- Formules excel de base - Guide
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
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
j ai mis un msgbox apres la boucle et il c afficher ca veu dir ke la boucle marche bien ...mais le bleme c la condition if .....ca ne marche pa :S
merci encoe une fois