ADO VB6Résolu

Question

Salut...

Je fais une Recherche avec une BD ACCESS et ca me sort cette erreur

Erreur d'éxécution '-2147217900 (80040e14)';

Erreur de syntaxe (opérateur absent) dans l'expression '[cad] like '137-1' AND [nomcad] like 'Paroisse de Saint-Jacques-de-l'Achigan".

Voici ma ligne de code qui bug
BD2.Open "SELECT * FROM [FOLIO_CADASTRE] WHERE [cad] like '" & txtRecherche.Text & "' AND [nomcad]  like '" & txtParoisse.Text & "'", Connection, adOpenKeyset, adLockBatchOptimistic


Je ne comrpend pas pourquoi ca bug....

Si quelqu'un peut m'aider 

merci d'avance

Zlub · Accepted Answer

Salut,


Il te manque un & de concat&#233;nation si tu utilises _ pour indiquer que le code continu &#224; la ligne suivante :

"... [FOLIO_CADASTRE] ce code " & _

& " WHERE







Oui dans ce cas = est mieux adapt&#233;.







pour les replace, c'est normal :



Faut remplace au sein d'une chaine tous les ' par \'  ou par '' (deux simples quote)

Bon par contre perso je laisse les \ comme &#231;a



Plus pr&#233;cisement, pour ne pas m'y perdre j'utilise la fonction TXTVersSQL qui formatte un champ texte pour le passer dans une requ&#234;te SQl:




Function TXTVersSQL(message As String) As String

    message = Replace(message, "'", "''")

    TXTVersSQL = "'" & message & "'"

  End Function




utilisation :




sql = "SELECT * FROM table WHERE prenom=" & TXTVersSQL(txtPrenom.text) & ";"



++

Zlub

cs_Jack · Answer

Salut JeffC1977
Alors, &#231;a avance ce moteur de recherche ?
Ton erreur est normale : Dans la chaine que tu cherches, il y a le caract&#232;re '
Donc, SQL s'y perd puisqu'il y a 3 (impair) ' sur la m&#234;me ligne.
Pour faire ta recherche, il faut que tu retravailles ta chaine avant de la donner &#224; SQL :
nomCad&#224;Chercher =  txtParoisse.Text
' Remplacer les ' par des \' :
nomCad&#224;Chercher = Replace(nomCad&#224;Chercher, "'", "\'")
' Remplacer les \ par des \ :
nomCad&#224;Chercher = Replace(nomCad&#224;Chercher, "", "\")

   BD2.Open "SELECT * FROM [FOLIO_CADASTRE] " & _
                     "WHERE [cad] like '" & txtRecherche.Text & "' " & _
                     "AND [nomcad]  like '" & nomCad&#224;Chercher & "'", _
                  Connection, adOpenKeyset, adLockBatchOptimistic

D'autre part, je te rappelle que la syntaxe propre d'un Like en SQL doit comporter des % devant et derri&#232;re pour que la recherche se fasse sur n'importe quelle partie du texte, comme ceci :
   BD2.Open "SELECT * FROM [FOLIO_CADASTRE] " & _
                     "WHERE [cad] like '" & txtRecherche.Text & "' " & _
                     "AND [nomcad]  like ' % " & nomCad&#224;Chercher & "%'", _
                  Connection, adOpenKeyset, adLockBatchOptimistic

Sinon, utilise  = &#224; la place de Like

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_CanisLupus · Answer

Salut,

Ben moi je dirais :

BD2.Open "SELECT * FROM [FOLIO_CADASTRE] WHERE [cad] like '" & replace(txtRecherche.Text, "'", "''") & "' AND [nomcad]  like '" & replace(txtParoisse.Text, "'", "''" & "'", Connection, adOpenKeyset, adLockBatchOptimistic

Explik : quand il y a une quote dans un nom saisi, il faut la remplacer par 2 quotes pour que sql le comprenne.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Zlub · Answer

Salut,

C'est clair que LIKE doit &#234;tre utilis&#233; avec % comme carractere jocker. 



Ensuite faut prot&#233;ger les carractere les imple quote qui pourraient
trainer dans la cha&#238;ne ... soit avec \' soit en les doublant &#224; l'aide
de replace(string, chaineAChercher, chaineRemplacement) et pareil pour
les \ ...



Donc en gros, &#224; peu de chose pres la version de jack devrai r&#233;soudre ton pb.


++

Zlub

cs_JeffC1977 · Answer

Salut Jack.. et bien oui ca l'avance mon moteur de recherche.... plutôt.. je dirais que ca fais hum 3-4 programmes que j'ai fais mais je ne saisi pas encore tout ce que je fais... en particulier j'ai énormément de la difficulté avec le SQL.... C'est encore du Chinois pour mois...(en partie)

Bon, j'ai regarder ton message et j'ai fais quelque test...

Voilà la ligne de ocde que j'avais dans mon premier message
BD2.Open "SELECT * FROM [FOLIO_CADASTRE] WHERE [cad] like '" & txtRecherche.Text & "' AND [nomcad]  like '" & txtParoisse.Text & "'", Connection, adOpenKeyset, adLockBatchOptimistic

J'ai commencé par modifier ma ligne de ocde comme la tienne.. Donc j'ai ajouter après [FOLIO_CADASTRE] ce code " & _" WHERE....  et ca plante...
Ca me dit qu'il y a une caractère incorrecte (le caractère _) .

Et deuxièmement il y a quelque chose que je ne saisi pas.... tu me dit de remplacer mon txtParoisse.Text par Replace (txtParoisse, "'", "\'") bon Ok... mais dans ton message tu me dit après de remplacer txtParsoisse par Replace(txtParoisse, "", "\")

Je ne sais pas... :(

Peux-tu me le montrer dans une ligne de code... STP

En passant merci pour le Like... Je ne savais pas trop à quoi ca servait.... mais je ne veux pas mettre de % car iol doit trouver absolument ce que j'Minscrit dans mon txtbox alors je vais mettre un =

J'attends de tes nouvelles...

merci d'avance

cs_JeffC1977 · Answer

C'est encore moi...

Et bien je m'y perd la tête :(.....

Voilà ce que j'ai essayer et ca Bug toujours...

Test No 1

Dim NomCadàChercher As Variant

NomCadàChercher = txtParoisse.Text
' Remplacer les ' par des \' :
NomCadàChercher = Replace(NomCadàChercher, "'", "\'")
' Remplacer les \ par des \ :
NomCadàChercher = Replace(NomCadàChercher, "", "\")



BD2.Open "SELECT * FROM [FOLIO_CADASTRE] WHERE [cad] = '" & txtRecherche.Text & "' AND [nomcad] = '" & NomCadàChercher & "'", Connection, adOpenKeyset, adLockBatchOptimistic


Test No 2

Function TXTVersSQL(message As String) As String
  message = Replace(message, "'", "''")
  TXTVersSQL = "'" & message & "'"
End Function

ET DANS MON BOUTON RECHERCHE

BD2.Open "SELECT * FROM [FOLIO_CADASTRE] WHERE [cad] = '" & txtRecherche.Text & "' AND [nomcad] = '" & TXTVersSQL(txtPrenom.text) & "'", Connection, adOpenKeyset, adLockBatchOptimistic


Est ce que mon code est Ok... Mon roblème peut-il venir de ma base de Données ???


J'ai essayé également le code pour changer de ligne et ca bug aussi décidemment ca ne va pas aujourd'hui :(


BD2.Open "SELECT * FROM [FOLIO_CADASTRE]" & _
& " WHERE [cad] = '" & txtRecherche.Text & "'" & _
& " AND [nomcad] = '" & NomCadàChercher & "'", Connection, adOpenKeyset, adLockBatchOptimistic

Au secours...     J'aurais donc encore besoin d'un peu d'aide....


Merci d'avance

Zlub · Answer

Salut,

dans le test 2 c'est normal que &#231;a plante ... faut remplacer txtPrenom.text
par la variable ou le txtbox qu'il convient ... C'est pas magic, si
rien ne correspond &#224; txtPrenom, ta requ&#234;te ne vas pas tourner toute
seule.

et faut pas mettre de quote avec txtVersSQl puique &#231;a le fai tout seul donc :




"SELECT * FROM [FOLIO_CADASTRE] WHERE [cad] = " &
TXTVersSQL(txtRecherche.Text) & " AND [nomcad] = " &
TXTVersSQL(txtParoisse.text) ,Connection, adOpenKeyset, adLockBatchOptimistic




NomCad&#224;Chercher      as String c'est suffisant pas besoin de Variant.





Quand tu dis que &#231;a bug, &#231;a veut tout dire et rien dire &#224; la fois ...
Tu peux nous d&#233;tailler le pb .... T'as un msg d'erreur, &#231;a ne fait rien
... Il se passe quoi ?






++

Zlub

ADO VB6

7 réponses

Discussions similaires