erro no update

[mestre fyoda 1]

erro de sintaxe na instrução update

o que esta aconteçendo ?

 

Private Sub atualizar_Click()nome = nome.Textxnome = Replace(nome, "'", "''")xmodelo = modelo.TextDim sql2 As Stringsql2 = "UPDATE clientes set nome='" & xnome & "'  ,endereco='" & endereco.Text & "' ,numero='" & numero.Text & "'  ,bairro='" & bairro.Text & "'   ,telefone'" & telefone.Text & "'  ,rg='" & rg.Text & "'  ,modelo='" & modelo.Text & "'  ,ano='" & ano.Text & "'  ,placa='" & placa.Text & "' WHERE nome = '" & xVar1 & "' "cn.Execute sql2 -----------> aqui esta dando o erro If placa.Text <> Placa_antiga ThenKill "c:\" & Placa_antiga & ".doc"n = FreeFile()Open "c:\" & placa.Text & ".doc" For Output As #nClose #nCall Limpa_dados_cadastraisEnd IfEnd Sub

[luiz humberto 0]

Qual a mensagem de erro?

[mestre fyoda 1]

erro de sintaxe na instrução update

[luiz humberto 0]

O que aconselho você fazer é antes de executar a instrução execute dê um Debug.Print na sua string, e vê se está faltando algo.

 

Debug.Print Sql2

Ou então, faça na Janela Immediate

 

?Sql2

Também na janala Immediate

 

Clipboard.ClearClipboard.SetText sql2

[mestre fyoda 1]

run time error '-2147217900 (80040e14)' : Erro de sintaxe na instrução update .è isso que aparece de e erro .

[luiz humberto 0]

Dê uma olhada no resultado de sua sql e depois verifique se no banco existem algum valor que não seja numerico, então deve colocar entre ' ' e naqueles que são numericos não pode ter ' '.Ex:

SQL=UPDATE Tabela SET Texto='" & Texto & "', Numero=" & 10 & " Where Codigo="&19

Este erro indica que você está inserindo valores em campos que não suporta o tipo.pelo que vi em sua SQL, tem um campo numero não sei se realmente no BD é do tipo integer ou numerico que seja, não pode colocar assim:

numero=' " & numero.text & " '

E deve ser assim:

numero=" & numero & "

[Luizgrs 0]

Da uma olhada aqui:

..,telefone'" & telefone.Text & "' ...

num seria ", telefone='"?

[mestre fyoda 1]

valeu pela força gente , ja resolvi o problema .