ERRO EM INSTRUCAO SQL
ERRO 3075
ERRO SINTAXE(operador faltando) na expressão de consulta [Ô]{tf1\ansi\ansicpg1252\deff0\deflang1046{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}}{\colortbl ;ed0\green0\blue128;ed0\green0\blue255;}\viewkind4\uc1\ ... (ETECETERA)
Set db = OpenDatabase(caminho)
db.Execute [Ô]update tblpa SET Etapas = [ô][Ô] & Rtb_edit.TextRTF & [Ô][ô] WHERE codcli = [Ô] & Text1(0)
End If
O campo Etapas é memorando
o campo codcli é número
Já realizava salvas normalmente com este codigo, o erro ocorreu quando transformei Rtb_edit de textbox para Richtextbox
ERRO SINTAXE(operador faltando) na expressão de consulta [Ô]{tf1\ansi\ansicpg1252\deff0\deflang1046{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}}{\colortbl ;ed0\green0\blue128;ed0\green0\blue255;}\viewkind4\uc1\ ... (ETECETERA)
Set db = OpenDatabase(caminho)
db.Execute [Ô]update tblpa SET Etapas = [ô][Ô] & Rtb_edit.TextRTF & [Ô][ô] WHERE codcli = [Ô] & Text1(0)
End If
O campo Etapas é memorando
o campo codcli é número
Já realizava salvas normalmente com este codigo, o erro ocorreu quando transformei Rtb_edit de textbox para Richtextbox
é importante você verificar se dentro de rtb_edit.textrtf existe o caracter ASPAS SIMPLES.
No momento de compor o comando, o caracter em questão termina a string e ocasiona erros adiante.
Faça o seguinte procedimento para verificar o que está sendo atualizado:
Vocêpode gravar sem o caracter ASPAS SIMPLES e depois restaura-lo:
Wtext = replace(Rtb_edit.TextRTF,[Ô][ô][Ô],[Ô]{[-]}[Ô]) ->salvando em uma variável
Rtb_edit.TextRTF = replace(ETAPAS[Ô]{[-]}[Ô],[Ô],[Ô]) ->restaurando do BD
No momento de compor o comando, o caracter em questão termina a string e ocasiona erros adiante.
Faça o seguinte procedimento para verificar o que está sendo atualizado:
Wcomando = [Ô]update tblpa SET Etapas = [ô][Ô] & Rtb_edit.TextRTF & [Ô][ô] WHERE codcli = [Ô] & Text1(0).text
[ô] pare aqui e através do DEBUG confira o comando
Set db = OpenDatabase(caminho)
db.Execute Wcomando
End IfVocêpode gravar sem o caracter ASPAS SIMPLES e depois restaura-lo:
Wtext = replace(Rtb_edit.TextRTF,[Ô][ô][Ô],[Ô]{[-]}[Ô]) ->salvando em uma variável
Rtb_edit.TextRTF = replace(ETAPAS[Ô]{[-]}[Ô],[Ô],[Ô]) ->restaurando do BD
tenta assim...
Set db = OpenDatabase(caminho)
db.Execute [Ô]update tblpa SET Etapas = [ô][Ô] & Rtb_edit.TextRTF.Replace([Ô]\[Ô], [Ô]\\[Ô]).Replace([Ô][ô][Ô], [Ô]\[ô][Ô]) & [Ô][ô] WHERE codcli = [Ô] & Text1(0)
End If
Pessoal, obrigado pelas idéias.
a solução é replace os caracteres [Ô][Ô]
Grato
a solução é replace os caracteres [Ô][Ô]
Grato
Tópico encerrado , respostas não são mais permitidas