Public Class Form1
Public cadenaconexion As String
Public miconexion As OleDbConnection
'Tabla gastos
Public gastosds As DataSet
Public gastosta As OleDbDataAdapter
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cadenaconexion = "provider = microsoft.jet.oledb.4.0;data source = C:\Users\MatY\Desktop\bases\Bases ver 1.1 2000.mdb"
miconexion = New OleDbConnection(cadenaconexion)
gastosta = New OleDbDataAdapter
gastosta.SelectCommand = New OleDbCommand("Select * from prueba", miconexion)
gastosds = New DataSet
gastosds.Tables.Add("prueba")
gastosta.Fill(gastosds.Tables("prueba"))
gastosta.UpdateCommand = New OleDbCommand("UPDATE prueba SET categorias = @cat")
gastosta.UpdateCommand.Parameters.AddWithValue("@c at", "asdasd")
gastosta.UpdateCommand.Parameters.Add("@cat", OleDbType.LongVarChar, 0, "Categorias")
gastosta.UpdateCommand.Connection = miconexion
gastosta.Update(gastosds.Tables("prueba"))
End Sub
End Class