none
erro de sintaxe na instrução update RRS feed

  • Pergunta

  • Galera, boa tarde. como estao? bom galera eu fiz um projeto aqui na parte final ja, porem nao programo em vb.net mais achei legal a plataforma, entao eu to com um projeto para atualizar so um registro do banco de dados que é total_devendo atravez do comando UPDATE na instrucao diz que esta errado e da erro (quero atualizar so um registro do banco de dados, pois esta atualizando todos os registro antes fiz uma modificacao e agora ta dando erro)

    Private Sub PCadastrarValortotalDevendo()
            Using con As OleDbConnection = geetConectionCadClientes()
                Try
                    con.Open()
                    Dim sql As String = "UPDATE tbl_Clientes SET Total_Devendo WHERE codigo)"
                    Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
                    Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd)
                    cmd.Parameters.Add(New OleDb.OleDbParameter("@Total_Devendo", Total_DevendoTextBox.Text))
    
    
                    cmd.ExecuteNonQuery()
    
                    MsgBox("Alterado com sucesso")
    
    
                Catch ex As Exception
                    MsgBox(ex.Message)
                Finally
                    con.Close()
                End Try
            End Using
        End Sub


    XD

    sexta-feira, 16 de junho de 2017 18:44

Respostas

  • Obrigado meu amigo deu certo, so editei umas coisa o codigo integer.parse Deus lhe abençoe

    XD


    Perfeito, José! Não esqueça de marcar a resposta que atendeu ao seu post, pois assim outras pessoas que tenham dúvida semelhante também poderão localizá-la.
    • Marcado como Resposta jose_down sábado, 17 de junho de 2017 02:02
    sexta-feira, 16 de junho de 2017 21:44

Todas as Respostas

  • Olá!

       Tente assim:

     Dim sql As String = "UPDATE tbl_Clientes SET Total_Devendo = @Total_Devendo WHERE codigo = @Codigo"
     Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
     Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd)
     cmd.Parameters.Add(New OleDb.OleDbParameter("@Total_Devendo", Total_DevendoTextBox.Text))
     cmd.Parameters.Add(New OleDb.OleDbParameter("@Codigo", CodigoDoRegistro)) // Substitua "CodigoDoRegistro" pelo campo referente ao código que você quer alterar

    Bom trabalho!

    • Sugerido como Resposta Rodrigo CdS sábado, 17 de junho de 2017 13:31
    sexta-feira, 16 de junho de 2017 19:03
  • Obrigado meu amigo deu certo, so editei umas coisa o codigo integer.parse Deus lhe abençoe

    XD


    • Editado jose_down sexta-feira, 16 de junho de 2017 21:25
    sexta-feira, 16 de junho de 2017 21:20
  • Obrigado meu amigo deu certo, so editei umas coisa o codigo integer.parse Deus lhe abençoe

    XD


    Perfeito, José! Não esqueça de marcar a resposta que atendeu ao seu post, pois assim outras pessoas que tenham dúvida semelhante também poderão localizá-la.
    • Marcado como Resposta jose_down sábado, 17 de junho de 2017 02:02
    sexta-feira, 16 de junho de 2017 21:44