none
istrução update RRS feed

  • Pergunta

  • 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

     

    quarta-feira, 3 de novembro de 2010 01:19

Respostas

Todas as Respostas