' (aspas) Em Instrução Sql

[Guest - Victor -]

Olá pessoal, estou tendo um problema. Uso ADO e quando tento inserir algum dado que tenha '(aspas) como McDonald's. Me dá um erro porque ele acha que estou terminando a string....

Alguém saberia como resolver isso, permetindo que eu use ' em ADO, sem usar DAO???

Muito obrigado,

Victor

[CKorneLL]

Dê um "replace"...

replace(Texto," ' ", "%")

e na hora q você for resgatar esse dado, faça o inverso...

CKorneLL!!!

[Rafael Portal]

Opa !

Public Function ComApostrofo(STR As String, Optional lngPos As Long = 1) As String
    Dim intPosStr As Integer 'variavel que recebe a posicao do caracter da string
     
    intPosStr = InStr(lngPos, STR, "'")
    If intPosStr > 0 Then
        ComApostrofo = Left(STR, intPosStr) & "'" & Mid(STR, intPosStr + 1)
        STR = ComApostrofo
    End If
     
    If InStr(intPosStr + 2, STR, "'") > 0 Then
        STR = ComApostrofo(STR, intPosStr + 2)
    End If
     
    ComApostrofo = STR
End Function

Dai pra usar:

SQL = " INSERT INTO Clientes(Nome) " & _
          " VALUES ('"& ComApostrofo(TxtNome.text) &"') "

Abraços.

Oks,

Rafael Portal

[Graymalkin]

Olá pessoal, estou tendo um problema. Uso ADO e quando tento inserir algum dado que tenha '(aspas) como McDonald's. Me dá um erro porque ele acha que estou terminando a string....

É só dobrar (duplicar) a aspa simples, com Replace():

texto = replace("McDonald's", "'", "''")

Abraços,

Graymalkin