[VB6] Ricerca campo con apostrofo in errore

[marco.santilli]

Ho una query di questo genere

Set rsRecordSet14 = New ADODB.Recordset
rsRecordSet14.Open "SELECT [Sesso],[Tipo Scheda],[NomeScheda] From [EserciziStandard] where [Sesso] = '" & Combo2.Text & "' AND [Tipo Scheda] = '" & Combo3.Text & "' group by [Tipo Scheda],[Sesso],[NomeScheda] order by [Tipo Scheda]", CnConnessioni, adOpenStatic, adLockOptimistic


Finche ho nome senza apostrofo la ricerca è perfetta, mi è capito di mettere un valore di questo tipo:

"Riabilitazione dell'articolazione"

In inserimento non ci sono problemi, quando sono andato a fare la query di ricerca, mi va in errore perchè trova in mezzo un "apostrofo"

Per fare la prova se era quello ho sostituito con :

"Riabilitazione dell articolazione"

e tutto funziona

Come faccio per risolvere questo problema????

Ciao e grazieeeeeeeee

[vaitrafra]

Crei una funzione che fa il parse di tutte le query (prima di eseguirle) e ad ogni apostrofo ne affianca un'altro.

Dell''articolazione

[Jupy64]

Ciao, usa la funzione Replace, oppure, come dice sempre Alka, usa i parametri per le query...

[marco.santilli]

Originariamente inviato da vaitrafra
Crei una funzione che fa il parse di tutte le query (prima di eseguirle) e ad ogni apostrofo ne affianca un'altro.

Dell''articolazione

A saperlo fare!!!!

Mi potresti scrivere la sintassi cosi lo provo


Ciao e grazieeeeeeee

[LMondi]

Ciao Marco,
la funzione Replace la uso solo nei punti critici, di seguito ti posto un esempio di utilizzo per l'inserimento dei dati in una Tbl:

'Inserisce i dati della FrmInfo nel DB TblReg:
            OggSR.CommandText = "Insert Into TblReg(Prop, Res)" _
                & "values ('" & Replace(FrmInfo.txtPP(30).Text, "'", "''") & "', '" & Replace(FrmInfo.txtPP(31).Text, "'", "''") & "');"
            OggSR.Execute