Usuário com melhor resposta
erro de sintaxe na instrução update

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
Respostas
-
Obrigado meu amigo deu certo, so editei umas coisa o codigo integer.parse Deus lhe abençoe
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.
XD
- Marcado como Resposta jose_down sábado, 17 de junho de 2017 02:02
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
-
-
Obrigado meu amigo deu certo, so editei umas coisa o codigo integer.parse Deus lhe abençoe
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.
XD
- Marcado como Resposta jose_down sábado, 17 de junho de 2017 02:02
-
OleDbCommand cmd = new OleDbCommand();
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();
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
-
-