L'apostrophe dans une requete (VB 6.0)

Question

Salut!

Je suis butt&#233; au probl&#232;me suivant:

dans une requete de ce type: data1.datasource= "select*from MaTable where ChampsCritere=' " & trim(TextCritere.text) & " ' "; le textbox TextCrit&#232;re contient une valeur qui comprend l'apostrophe ex: l'avion; et lors de l'&#233;xecution vb g&#233;nerait une erreur semble t-il &#224; cause de cette apostrophe mais il y a peut quelqu'un m'a fait un conseil brut: celui d'utiliser la fonction suivante destin&#233;e &#224; doubler l'apostrophe 
( vbPrivate Function DoubleQuote(ByVal chaine As String) As String
         
DoubleQuote = Replace(chaine, "'","''")         


End Function )

... mais vous trouvez l&#224;, c'est brut! je veux savoir o&#249; puis je le placer exactement dans le code de ma requete existante?

Esperant trouver une suite favorable .

cs_MarcoPaulo · Answer

sauf erreur, j'ai eu le meme probleme. j'ai remplcer l'apostrophe dans ma requette par chr(xx) 34 je crois.

cs_DARKSIDIOUS · Answer

data1.datasource= "select*from MaTable where ChampsCritere=' " & Replace(trim(TextCritere.text), "'", "''") & " ' "

_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

saidelm · Answer

salut
bon ton pb est simple il suffit de placer la fonction doubleQuote() dans la requete 
voila le code:
 data1.datasource= "select*from MaTable where ChampsCritere=' " & DoubleQuote(trim(TextCritere.text)) & " ' "

j_aub · Answer

tu ecri tt simplelment:

data1.datasource= "select*from MaTable where ChampsCritere=' " & Replace(trim(TextCritere.text),"'","''") & " ' "

L'apostrophe dans une requete (VB 6.0)

4 réponses

Discussions similaires