Erro na opção salvar / atualizar ( VB + SQL )

[Alex Mauricio]

Fala pessoal. Estou eu aqui novamente com dúvidas de inciante...

Estou criando um aplicativo onde criei uma variárel Dim Atualiza_Registro As Boolean onde quando eu clicar em novo registro ele coloca a opção False e grava normalmente.

Porem, quando eu vou na opção alterar e vou clicar novamente em salvar ( deveria estar com a variável Atualiza_Registro = True ) o sistema está dando o erro:

Run Time Error '3144':

Erro de sintaxe na instrução UPDATE.

Segue abaixo o código do botão Salvar.

Private Sub cmdSalvar_Click()

Dim ssql As String

If (Atualizar_Registro = False) Then

ssql = "insert into cliente values("

ssql = ssql & Trim(txtCodigo.Text) & ",'"

ssql = ssql & Trim(txtRazaoSocial.Text) & "','"

ssql = ssql & Trim(txtTelefone.Text) & "','"

ssql = ssql & Trim(txtCidade.Text) & "')"

BancoDeDados.Execute ssql

MsgBox "Registro incluído com Sucesso!!!", vbInformation + vbOKOnly, "Conexão com Banco de Dados"

Desabilitar

BtnPadrao

Else

ssql = "Update cliente set"

ssql = ssql & "cod_cliente='" & Trim(txtCodigo.Text) & "',"

ssql = ssql & "razao_social='" & Trim(txtRazaoSocial.Text) & "'"

ssql = ssql & "fone_cliente='" & Trim(txtTelefone.Text) & "'"

ssql = ssql & "cidade_cliente='" & Trim(txtCidade.Text)

BancoDeDados.Execute ssql

MsgBox "Registro alterado com Sucesso!!!", vbInformation + vbOKOnly, "Conexão com Banco de Dados"

Desabilitar

BtnPadrao

End If

End Sub

Muito obrigado a todos.

[raphael_suporte]

o Insert funciona??

bem assim não vi erro, mas tenta visualizar o comando no "immediate", para ver se não problemas no espaço ou em alguma vírgula, pode estar sendo montado um código errado... e seria interessante também usar o "Where", para não alterar todos os valores da sua tabela... a não ser que seja realmente isso queira.

[Alex Mauricio]

o Insert funciona??

bem assim não vi erro, mas tenta visualizar o comando no "immediate", para ver se não problemas no espaço ou em alguma vírgula, pode estar sendo montado um código errado... e seria interessante também usar o "Where", para não alterar todos os valores da sua tabela... a não ser que seja realmente isso queira.

O Inset tá bala....

a única coisa que não funciona é o update.

[raphael_suporte]

verifique como está sendo montado a string, exiba o seu valor para vê se está tudo correto na sintaxe...

por exemplo você não está colocando o ' ( Aspas simples ) no final da última concatenação que está fazendo. você não está colocando as virgulas no final das linhas e dê um espaço entre o nome do campo e as primeiras " ( aspas duplas )

ssql = "Update cliente set"
ssql = ssql & " cod_cliente='" & Trim(txtCodigo.Text) & "',"
ssql = ssql & " razao_social='" & Trim(txtRazaoSocial.Text) & "' ,"
ssql = ssql & " fone_cliente='" & Trim(txtTelefone.Text) & "',"
ssql = ssql & " cidade_cliente='" & Trim(txtCidade.Text) & "'"

[kuroi]

so uma coisa. como você não pos where, esse update vai atualizar todos os registros da tabela.

[Alex Mauricio]

so uma coisa. como você não pos where, esse update vai atualizar todos os registros da tabela.

os erros continuam NA OPÇÃO ATUALIZAR

Private Sub cmdSalvar_Click()

Dim ssql As String

If (Atualizar_Registro = False) Then

ssql = "insert into cliente values("

ssql = ssql & Trim(txtCodigo.Text) & ",'"

ssql = ssql & Trim(txtRazaoSocial.Text) & "','"

ssql = ssql & Trim(txtTelefone.Text) & "','"

ssql = ssql & Trim(txtCidade.Text) & "')"

BancoDeDados.Execute ssql

MsgBox "Registro incluído com Sucesso!!!", vbInformation + vbOKOnly, "Conexão com Banco de Dados"

Desabilitar

BtnPadrao

Else

ssql = "update cliente set razao_social = " & "'"

ssql = ssql & txtRazaoSocial.Text & "', fone_cliente = '"

ssql = ssql & txtTelefone.Text & "', cidade_cliente = '"

ssql = ssql & txtCidade.Text & " where codigo_cliente =" & txtCodigo.Text

BancoDeDados.Execute ssql

MsgBox "Registro alterado com Sucesso!!!", vbInformation + vbOKOnly, "Conexão com Banco de Dados"

End If

End Sub

O que eu faço?????????????

[kuroi]

faz isso:

ssql = "update cliente set razao_social = '"
ssql = ssql & txtRazaoSocial.Text & "', fone_cliente = '"
ssql = ssql & txtTelefone.Text & "', cidade_cliente = '"
ssql = ssql & txtCidade.Text & "' where codigo_cliente =" & txtCodigo.Text[/code]

[Alex Mauricio]

mas não ter que ter um WHERE para mostrar qual registro vai alterar?

[kuroi]

a acho q sim, mas quem sabe o q você quer fazer é você.

[raphael_suporte]

Caso o erro permaneça, coloque o código que está sendo construído pela string, assim podemos analisar onde pode está o erro.