Recherche enregistrement base de données sous vb6

Question

Salut!
j'ai un problème avec mon application sous vb6(projet de données avec dataEnvironment).
supposons qu'on a Text1(0) à Text1(5) tous liés aux champs0 à champs5.
Je veux que quand on saisi un Numéro(Text1(0))dans Inputbox les informations correspondantes (text1(1) à text1(5) sont affichées aussi et dans flexgrid ligne séléctionnée.
et voilà mon code pour cette recherche d'un enregistrement.

Private Sub mnu_Rechercher_Click()
Dim findStr As String
If Not DataEnvironment1.rsCommand1.Supports(adFind) Then
              MsgBox "Recordset doesn't support the FIND method"
          Else
              If DataEnvironment1.rsCommand1.Supports(adBookmark) Then
                  lastRow = DataEnvironment1.rsCommand1.Bookmark
              End If
              findStr = InputBox("N°Identification")
              If findStr <> "" Then
              DataEnvironment1.rsCommand1.MoveNext
              DataEnvironment1.rsCommand1.Find "N°Identification'" & findStr & "'"
              End If
              If DataEnvironment1.rsCommand1.EOF Then
                  MsgBox "Could not find the company " & findStr
                  If DataEnvironment1.rsCommand1.Supports(adBookmark) Then
                      DataEnvironment1.rsCommand1.Bookmark = lastRow
                  End If
              End If
          End If
End Sub

l'erreur c'est:
'3001' les arguments sont de type incorrect, en dehors des limites autorisées.
 Je suis totalement perdu, s'il vous plaît aidez moi c'est mon projet.
Merci à vous

cs_rasedra · Answer

NB: c'est à la ligne
DataEnvironment1.rsCommand1.Find "N°Identification'" & findStr & "'" qui est séléctionnée à l'erreur.

ucfoutu · Answer

Bonjour,
Qu'est "N°Identification" ? (ainsi écrit : une pure chaîne de caractères !)

Essaye

DataEnvironment1.rsCommand1.Find "[N°Identification]=" & findStr

Recherche enregistrement base de données sous vb6

2 réponses

Votre réponse

Discussions similaires