UPDATE NO BANCO DE DADOS ACCESS

Citação:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim provider As String

Dim dataFile As String

Dim connString As String

Dim myConnection As OleDb.OleDbConnection = New OleDb.OleDbConnection


provider = [Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source =[Ô]

dataFile = [Ô]C:\Users\USER\Desktop\Banco4.accdb[Ô]

connString = provider & dataFile

myConnection.ConnectionString = connString

myConnection.Open()

Dim str As String

str = [Ô]UPDATE [TbVencimento] set [EAN] = [ô][Ô] & TxtEAN.Text & [Ô][ô] , [Descrição] = [ô][Ô] & TxtDescricao.Text & [Ô][ô], [Qtd Estoque] = [ô][Ô] & TxtQtd.Text & [Ô][ô], [Preço Atual] = [ô][Ô] & TxtPreco.Text & [Ô][ô], [Vencimento] = [ô][Ô] & TxtVencimento.Text & [Ô][ô], [Data Cadastro] = [ô][Ô] & TxtData.Text & [Ô][ô], [Usuário] = [ô][Ô] & TxtUsuario.Text & [Ô][ô], [Loja] = [ô][Ô] & CbLoja.Text & [Ô][ô] Where [ID] = [ô][Ô] & TxtId.Text & [Ô][ô][Ô]

Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand(str, myConnection)

Try

cmd.ExecuteNonQuery()

Catch ex As Exception

MsgBox(ex.Message)

End Try


End Sub