HELP COM REPLACE

LCSD 23/03/2005 09:42:48
#74433
Bom dia, galera...

Me ajudem a fazer este replace.
Tenho esta string:

"DELETE FROM Temp_Extrato WHERE Obs LIKE """ & rst.Fields(0) & """"


Ao qual, ela me retorna este valor

DELETE FROM Temp_Extrato WHERE Obs LIKE "%Transf%Conta%Principal%"


O problema, que para fazer esta cláusula funcionar perfeitamente, ela deveria estar desta forma:

DELETE FROM Temp_Extrato WHERE Obs LIKE '%Transf%Conta%Principal%'


Já tentei alterar a cláusula SQL, como já tentei utilizar o REPLACE, e não estou conseguindo, será que alguem poderá me ajudar??
USUARIO.EXCLUIDOS 23/03/2005 10:19:43
#74448
Resposta escolhida
Olá amigo LCSD, faça assim que vai dar tudo certo


sql = "DELETE FROM Temp_Extrato WHERE Obs LIKE """ & Text1 & """"
sql = Replace(sql, Chr(34), "'")
MsgBox sql


Um forte abraço.
USUARIO.EXCLUIDOS 23/03/2005 10:21:04
#74449
Corrigindo


sql = "DELETE FROM Temp_Extrato WHERE Obs LIKE """ & [txt-color=#ff0000]rst.Fields(0)[/txt-color] & """"
sql = Replace(sql, Chr(34), "'")


Rsrsrs..
Valeu
LCSD 23/03/2005 10:29:51
#74455
Obrigado, Germanir....

Valeu pelo HELP
Tópico encerrado , respostas não são mais permitidas