[VB6] Doppi apici in query sql. Dove sbaglio?

[elfocaotico]

Ciao,
ho un mio databasa con un campo il cui valore è "pippo" (compresi i doppi apici).
Quando vado ad interrogare con una quesry sql mi vinene generato un errore perchè gli apici rompono.
La tabella si chiama tabellanomi ed il campo si chiama campotesto (e di tipo testo), invece il campo in cui si mette l'input per le ricerche si chiama text1 (ci metto anche gli acpici)

Attualmente faccio


sqlquerydettaglio = "SELECT * FROM tabellanomi where campotesto ='" & text1.text & "';"


Ma naturalmente mi genera errore perchè mi dice che la query è errata a causa dei doppi apici.
Praticamente mi cerca

SELECT * FROM tabellanomi where campotesto =' "pippo" ';"


Sicuramente è na cassata ma non riesco ad uscirne.
Grazie in anticipo

[oregon]

Prova a raddoppiare i doppi apici nel campo di ricerca ... ovvero cerca

""pippo""

[elfocaotico]

Grande oregon,
funzica perfettamente.
Ultima cosa... se invece ci dovesse essere anche un apice singolo mi da erore lo stesso
cioè la stringa

""pippo l'altro ieri""

genera lo stesso errore di prima

Grazie di nuovo in anticipo

[oregon]

Raddoppia anche quelli

l''altro ieri

[elfocaotico]

Ovviamente....
Sò proprio pirla....

Grazie ancora oregon, a buon rendere

[gibra]

Sò proprio pirla....

No, dai, non essere pirla!

Creati una routine che ti raddoppi gli apici e ti mette anche gli apici esterni, così non ci pensi più es:

Public Function Apici(byval s as string) as string
    If s = "" Then Exit Function
    s = " '" & Replace(s, "'", "''") & "' "
End Function

Poi quando componi la query:

"SELECT campo1, campo2 FROM Tabella WHERE campo1 = " & Apici(sValore)

Ciao

[elfocaotico]

Grazie anche a te gibra

[gibra]

Pardon! VVoVe:
Piccolo errore di sbaglio

Non è così:

s = " '" & Replace(s, "'", "''") & "' "

ma così:

Apici = " '" & Replace(s, "'", "''") & "' "

Ciao