ERRO DE SINTAXE [Ô]UPDATE[Ô]

ALDRINEY 05/04/2012 19:04:16
#399245
O código abaixo, está dando erro de sintaxe UPDATE, sou novo na área, e está difícil de acertar!!!

Private Sub btnAlterar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAlterar.Click
Dim cn As New OleDbConnection(conexao)
If cn.State = ConnectionState.Closed Then
cn.Open()
End If
Dim comando As New StringBuilder
comando.Append([Ô]UPDATE Clientes[Ô])
comando.Append([Ô]SET NomeRazao=[Ô])
comando.Append([Ô][ô][Ô] & txtnome.Text & [Ô][ô],[Ô])
comando.Append([Ô]Endereco=[Ô])
comando.Append([Ô][ô][Ô] & txtendereco.Text & [Ô][ô],[Ô])
comando.Append([Ô]Bairro=[Ô])
comando.Append([Ô][ô][Ô] & txtbairro.Text & [Ô][ô],[Ô])
comando.Append([Ô]Cep=[Ô])
comando.Append([Ô][ô][Ô] & txtcep.Text & [Ô][ô],[Ô])
comando.Append([Ô]Telefone=[Ô])
comando.Append([Ô][ô][Ô] & txttelefone.Text & [Ô][ô],[Ô])
comando.Append([Ô]Cidade=[Ô])
comando.Append([Ô][ô][Ô] & txtcidade.Text & [Ô][ô],[Ô])
comando.Append([Ô]Estado=[Ô])
comando.Append([Ô][ô][Ô] & Comboestado.Text & [Ô][ô],[Ô])
comando.Append([Ô]Observacoes=[Ô])
comando.Append([Ô][ô][Ô] & txtobservacoes.Text & [Ô][ô],[Ô])
comando.Append([Ô]WHERE IdCliente=[Ô] & Val(txtcodigo.Text))
Dim cm As New OleDbCommand
Try
cm.Connection = cn
cm.CommandText = comando.ToString
cm.ExecuteNonQuery()
Catch ex As Exception
MsgBox([Ô]Ocorreu o erro: [Ô] & ex.Message, MsgBoxStyle.Critical)
cn.Close()
End Try
MsgBox([Ô]Cliente [Ô] & txtnome.Text & [Ô], alterado com sucesso[Ô], 64, [Ô]Aviso[Ô])
btnAlterar.Enabled = True
btnExcluir.Enabled = True
btnPesquisar.Enabled = True
btnIncluir.Enabled = True
btnCancelar.Enabled = True
txtcodigo.Enabled = True
For Each ctl As Control In GroupBox1.Controls
If TypeOf ctl Is TextBox Then ctl.Text = [Ô][Ô]
If TypeOf ctl Is ComboBox Then ctl.Text = [Ô][Ô]
Next ctl
cn.Close()
txtcodigo.Focus()
End Sub
End Class
ROBIU 05/04/2012 20:12:08
#399249 
comando.Append([Ô]UPDATE Clientes [Ô]) [ô]Um espaço aqui depois de clientes
        comando.Append([Ô]SET NomeRazao=[Ô])
        comando.Append([Ô][ô][Ô] & TxtNome.Text & [Ô][ô],[Ô])
        comando.Append([Ô]Endereco=[Ô])
        comando.Append([Ô][ô][Ô] & TxtEndereco.Text & [Ô][ô],[Ô])
        comando.Append([Ô]Bairro=[Ô])
        comando.Append([Ô][ô][Ô] & TxtBairro.Text & [Ô][ô],[Ô])
        comando.Append([Ô]Cep=[Ô])
        comando.Append([Ô][ô][Ô] & TxtCep.Text & [Ô][ô],[Ô])
        comando.Append([Ô]Telefone=[Ô])
        comando.Append([Ô][ô][Ô] & TxtTelefone.Text & [Ô][ô],[Ô])
        comando.Append([Ô]Cidade=[Ô])
        comando.Append([Ô][ô][Ô] & TxtCidade.Text & [Ô][ô],[Ô])
        comando.Append([Ô]Estado=[Ô])
        comando.Append([Ô][ô][Ô] & ComboEstado.Text & [Ô][ô],[Ô])
        comando.Append([Ô]Observacoes=[Ô])
        comando.Append([Ô][ô][Ô] & TxtObservacoes.Text & [Ô][ô] [Ô]) [ô]Um espaço aqui e tira a vírgula
        comando.Append([Ô]WHERE IdCliente=[Ô] & Val(TxtCodigo.Text))
ALDRINEY 09/04/2012 22:41:07
#399413
Valeu ROBIU!!! Deu certo!!!
Tópico encerrado , respostas não são mais permitidas
Voltar