erro de sintaxe na instrução update

Question

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

Answer 1

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!

Answer 2

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

---

XD

Answer 3

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.

Answer 4

OleDbCommand cmd = new OleDbCommand();
            cmd.Connection = cn;
            cmd.CommandText = "UPDATE produtos Set nome = '" + txtNome.Text + "'," + txtValor.Text + "'," + "Imagem = " + strImagem + " WHERE Codigo =" + txtCodigo.Text;

            if (strImagem == "?")
            {
                cmd.Parameters.Add(strImagem, OleDbType.Binary).Value = arrImagem;
            }

            cmd.ExecuteNonQuery();
            MessageBox.Show("Registos foram editados com sucesso!");
            cn.Close();
            CarregaDados();

OleDbCommand cmd = new OleDbCommand();
            cmd.Connection = cn;
            cmd.CommandText = "insert into produtos(codigo, nome, valor, imagem) VALUES( '" + txtCodigo.Text + "'," + txtNome.Text + "'," + txtValor.Text + "'," + strImagem + ")";

            if (strImagem == "?")
            {
                cmd.Parameters.Add(strImagem, OleDbType.Binary).Value = arrImagem;
            }

            cmd.ExecuteNonQuery();
            MessageBox.Show("Os dados foram registados com sucesso!");
            cn.Close();
            CarregaDados();

tou com erro aqui pode me ajudar por favor? tenho que apresentar o projeto e tou com erro nos comandos de adicionar, remover, editar, com uma base de dados do acess, por favor tenho que entregar o projeto daqui a 15 dias, e nao consigo sair daqui, tou a começar agora nesta area, porem este projeto ja vai decidir muita coisa

Answer 5

Olá, 

abre outro post para separar... Esse já foi marcado como resposta.

 

--
Abrs.

---

Reginaldo Villela

Answer 6

por favor, nos diz o erro que esta, sem o erro nao podemos te ajudar muito. mas seu codigo esta pouco estranho uma unica rotina que sobre carrega com 2 função. vamos entender melhor