STRING QUE CONTEM APOSTROFE NA HORA DE GRAVAR

USUARIO.EXCLUIDOS 04/10/2006 17:22:39
#175627
Pessoal, tenho uma duvida, que nunca me tinha acontecido.

Banco de dados: Access
Campo: do tipo texto

dim texto as string
texto="Meu nome é José d'Silva Nogueira"

Ao tentar gravar a string no banco, dá erro, por causa do ' -> apostrofe

Obviamente a string não é aquela, e passa-se que o apostrofe tem que obrigatoriamente estar na string. Existe alguma forma de gravar a string com ' pelo meio?

Cód de gravação:

 conn.execute "insert into tabela values ('" & texto & "')"


Erro: Erro na sintaxe, operador em falta '

espero que me possam ajudar
USUARIO.EXCLUIDOS 04/10/2006 17:26:27
#175629
Public Function Apostrophe(sFieldString As String) As String
If InStr(sFieldString, "'") Then
Dim iLen As Integer
Dim ii As Integer
Dim apostr As Integer
iLen = Len(sFieldString)
ii = 1

Do While ii <= iLen
If Mid$(sFieldString, ii, 1) = "'" Then
apostr = ii
sFieldString = Left$(sFieldString, apostr) & "'" & _
Right$(sFieldString, iLen - apostr)
iLen = Len(sFieldString)
ii = ii + 1
End If
ii = ii + 1
Loop
End If
Apostrophe = sFieldString
End Function
GREGO 04/10/2006 17:28:42
#175632
use o crase no lugar do apostrofe
USUARIO.EXCLUIDOS 04/10/2006 23:12:50
#175691
valeu LIONHEART, foi o unico que resultou.. mesmo assim com erro tem " a mais.

o final é: ('" & Replace(texto, "'", "''") & "')

valeu
Tópico encerrado , respostas não são mais permitidas
Voltar