Recherche dans une base en fonction d'une textbox

Question

Bonjour &#224; tous, 
Je travaille en VB6 et j'ai fait des connexions &#224; ma base manuellement et 
mon probl&#232;me est le suivant:
 je dois faire une recherche d'un nom dans ma base (sur le champs DENOMINATION) en fonction du nom que l'utilisateur entre dans la text1(2) pour v&#233;rifier si le nom existe d&#233;ja dans la base de donn&#233;es. Mais le programme me met toujours que le nom existe d&#233;j&#224; dans ma base m&#234;me s'il n'existe pas. J'ai essay&#233; aussi avec un Find mais rien n'y fait. 
Quelqu'un pourrait-il m'aider svp?
Merci d'avance &#224; tous;

Dim i As Integer
        
        For i = 1 To rsNoms.RecordCount - 1
            Do While Not rsNoms.EOF
                If Text1(2).Text <> rsNoms.Fields![DENOMINATION] Then
                    rsNoms.MoveNext
                Else
                    GoTo Fin
                End If
            Loop
        Next i    
Fin:
        MsgBox "Le client existe d&#233;j&#224;", vbInformation + vbOKOnly, "Doublons"
        Call CalculDate
        Call CalculeLaps
        Call CalculeIntervalle

FASH

cs_ITALIA · Answer

Dim i As Integer
Dim Exist as Boolean

Exist=False
        
If rsNoms.RecordCount<>0 Then
   Do Until rsNoms.eof
      If rsNoms.Fields![DENOMINATION]=Text1(2).Text Then Exist=True
   rsNoms.Movenext
   Loop
End If

If Exist=True Then
   MsgBox "Le client existe d&#233;j&#224;", vbInformation + vbOKOnly, "Doublons"
   Call CalculDate
   Call CalculeLaps
   Call CalculeIntervalle
End if       
      

It@li@

Recherche dans une base en fonction d'une textbox

1 réponse

Discussions similaires