none
Erro de sintaxe UPDATE RRS feed

  • Pergunta

  • O comando UPDATE abaixo está com erro de sintaxe e não localizo o problema, a mensagem "Erro de sintaxe na instrução UPDATE." aparece na linha  Command.ExecuteNonQuery() 

    Private Sub alterar()
            Dim Conn As New OleDbConnection(My.Settings.SIADSConecte)
            Dim Command As New OleDbCommand
            Dim Query As String = ""
            Query = "UPDATE tb_Finan_Lancamentos SET cod_PlanoContasResumo=@cod_PlanoContasResumo,cod_Origem=@cod_Origem,data_Lancamento=@data_Lancamento,data_Pagto=@data_Pagto,valor=@valor,cod_Destino=@cod_Destino,historico@historico" & _
                    " WHERE (cod_Lancamento=@cod_Lancamento)"
            Command.Connection = Conn
            Command.CommandText = Query
            Command.Parameters.Add("@cod_PlanoContasResumo", OleDbType.Integer).Value = Convert.ToInt32(rblLancamento.SelectedValue)
            Command.Parameters.Add("@cod_Origem", OleDbType.Integer).Value = Convert.ToInt32(ddlFormaPagto.SelectedValue)
            Command.Parameters.Add("@data_Lancamento", OleDbType.Date).Value = Convert.ToDateTime(txtDataDespesa.Text)
            Command.Parameters.Add("@data_Pagto", OleDbType.Date).Value = Convert.ToDateTime(lblDataPgto1.Text)
            Command.Parameters.Add("@valor", OleDbType.Currency).Value = String.Format("{0:c}", Val(txtValorDespesa.Text.Replace(",", ".")))
            Command.Parameters.Add("@cod_Destino", OleDbType.Integer).Value = Convert.ToInt32(ddlDestinoDespesa.SelectedValue)
            Command.Parameters.Add("@historico", OleDbType.WChar).Value = txtHistoricoDespesa.Text
            Command.Parameters.Add("@cod_Lancamento", OleDbType.Integer).Value = gwvDespesa.SelectedRow.Cells(1).Text
            Conn.Open()
            Command.ExecuteNonQuery()
            Conn.Dispose()
            If Me.IsValid Then
                Label4.Text = "Registro alterado e gravado"
            End If
            ddlFormaPagto.Focus()
            cargaGrid()
        End Sub

    quinta-feira, 11 de outubro de 2012 19:27

Respostas

Todas as Respostas