Problème de requete SQL

Question

Bonjour,
Alors voilà, je verifie un champ numéro d'un DB Access (numéro est un champ NumeroAuto en entier long) grace à un numéro généré se trouvant dans une textbox "text1"
Je veux qu'après vérification de ce numéro, s'il y a correspondance entre les deux, les champs correspondants aux données de la DB se remplissent automatiquement.
Pour ce faire, j'utilise ce code :


Dim Conn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    
    With Conn
        .Provider = "Microsoft.JET.OLEDB.4.0"
        .Open "C:\clients.mdb"
    End With

Set rst = New ADODB.Recordset

rst.Open "SELECT * From Clients where Numero =" & Text1 & "", Conn, adOpenKeyset, adLockReadOnly, adCmdText

If rst.Fields("Numero").Value = Text1 Then 

        rst.Find "Numero = " & Val(Text1.Text) & ", 1, adSearchForward" 
        
        txtNom = rst.Fields("Nom").Value 
        txtPrenom = rst.Fields("Prenom").Value 
        txtAdresse = rst.Fields("Adresse").Value 
        txtCodePostal = rst.Fields("CodePostal").Value 
        txtVille = rst.Fields("Ville").Value 
        txtDateNaissance = rst.Fields("DateNaissance").Value 
        txtTotalRemise = rst.Fields("TotalRemise").Value 
        txtEmail = rst.Fields("Email").Value 
        txtTelephone = rst.Fields("Telephone").Value 
        txtCommentaires = rst.Fields("Commentaires").Value 
        txtDateCreation = rst.Fields("DateCreation").Value 
        txtTotal = rst.Fields("Total").Value 
        End If 


mon soucis est qu'invariablement, j'ai le même message d'erreur sur la ligne :

        rst.Find "Numero = " & Val(Text1.Text) & ", 1, adSearchForward" 

Run-time error '3001':

Les arguments sont des types incorrects, en dehors des limites autorisées ou en conflit les uns avec les autres.

Je ne sais pas trouver mon erreur qui je l'avoue me dépasse un peu. J'ai essayé beaucoup de modifications mais toujours avec le même message d'erreur.

Si quelqu'un pouvait me signaler mon erreur, ce serait top.
Merci.

Tuning Max · Answer

Moi je l'&#233;crirais plutot comme &#231;a. Sinon cela vient du fait que "Text1.Text" est d'un type diff&#233;rent de "Numero". Du genre texte et num&#233;rique ou autres.

Rst.Find "Numero = '" & Val(Text1.Text) & "', 1, adSearchForward"

cs_ksper92 · Answer

Hélas, ce code ne fonctionne pas non plus. Les deux valeurs à verifier sont des chiffres entiers.
Je ne sais plus quoi essayer. :(

Doro81079 · Answer

bonsoir,

je te conseillerais plut&#244;t ce code :

Dim Conn As ADODB.Connection
Dim rst As ADODB.Recordset
 
Set conn= new adodb.connection   
With Conn
        .Provider = "Microsoft.JET.OLEDB.4.0"
        .Open "C:\clients.mdb"
End With

Set rst = New ADODB.Recordset

rst.Open "SELECT * FROM [Clients] WHERE [Numero] =" & Text1.text & "", Conn, adopendynamic,adlockoptimistic

if (not rst.eof) then 
        
        txtNom.text= rst.!Nom
 
        txtPrenom.text = rst.!Prenom 

        txtAdresse.text = rst!Adresse
 
        txtCodePostal.text= rst.!CodePostal

        txtVille.text = rst!Ville
 
        txtDateNaissance.text = rst!DateNaissance

        txtTotalRemise.text = rst!TotalRemise
 
        txtEmail.text= rst!Email

        txtTelephone.text = rst!Telephone
 
        txtCommentaires.text = rst!Commentaires
 
        txtDateCreation.text = rst!DateCreation 

        txtTotal.text= rst!Total

else

        msgbox ("Donn&#233;es inexistantes !")
 
End If 

salut
doro

Problème de requete SQL

3 réponses

Discussions similaires