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
  • 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

    sábado, 9 de abril de 2022 10:55
  • Olá, 

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

     

    --
    Abrs.


    Reginaldo Villela

    domingo, 10 de abril de 2022 00:18
  • 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
    segunda-feira, 18 de abril de 2022 15:29