base de donnée en VB Fermé

Question

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


Configuration: Windows XP / Firjavascript:;efox 3.5.9

Polux31 · Answer

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

Base de donnée en VB

1 réponse

Discussions similaires