istrução update

Question

Boa noite galera, estou com dificulade de fazer uma UPDATE na minha tabela, acho que esta errado e a minha SQL pois quando mando gravar ele me dar um erro (Instrução SQL inválida. 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT' ou 'UPDATE' esperado.), alguem pode me ajudar?

 

 

Private Sub Alterar()

 

 

Dim Leitor As String

 

 

Dim cont As Integer = 0

Leitor =

 

"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\AutoPe\DB_CLS_CAR.accdb"

 

 

Dim connect As New OleDb.OleDbConnection(Leitor)

connect.Open()

 

 

Dim sqlUpdate As String

sqlUpdate =

 

"UPDATE PRODUTO SET DESCRICAO = TESTE WHERE CODIPRO = 1"

 

 

Dim cmd As New OleDb.OleDbCommand(Leitor, connect)

cmd.ExecuteScalar()

connect.Close()

 

 

End Sub

 

Answer 1

Tente assim:

 

"UPDATE PRODUTO SET DESCRICAO = 'TESTE' WHERE CODIPRO = 1"

ou assim:

"UPDATE PRODUTO SET DESCRICAO = 'TESTE' WHERE CODIPRO = '1'"

---

Esta resposta lhe ajudou? Marque a como útil. -- www.EdgarEsteves.com.br

Answer 2

Usa paramtro. Fica muito facil de trabalhar e codificar.

Dim Sql as String= "Update Tabela Set Descricao =@Descricao Where Codigo=@Copdigo"

Agora no teu command faz assim:

Dim cmd As New OleDb.OleDbCommand(Sql, connect)

Aqui coloca o codigo para abrir a sua conecao.

conecao.open()

cmd.parameter.addwithvalue("@Codigo", textbox1.text)

cmd.parameter.addwithvalue("@Descricao", textbox2,text)

cmd.ExecuteNonQuery 

fecha a conecao.

http://msdn.microsoft.com/en-us/library/system.data.oledb.oledbcommand.executenonquery.aspx

---

Just Be Humble Malange!

Answer 3

Prezado(a),

Estou migrando seu post para o fórum de Acesso a Dados.

Por favor, das próximas vezes que for postar alguma dúvida referente a esse assunto, poste por lá.

Obrigado.

---

André Alves de Lima
Visite o meu site: http://www.andrealveslima.com.br
Me siga no Twitter: @andrealveslima