Actualizar BD Access desde DataGridView
Pregunta
-
Hola, lo que sucede es que tengo una base de datos access y muestro los datos de la tabla "PRODUCTOS" en un DataGridView, el tema es quiero que presionar un menú de "GUARDAR", para que actualice la base de datos con los cambios realizados, he buscado en foros y no me resulta mi código, debo comentar que soy programador por iniciativa propia, tal vez si me reparan el código, con mucha atención puedo entender su estructura, mas abajo pongo mi código, desde ya muy agradecido por cualquier aporte.
<marquee>PD: LA BASE DE DATOS ESTA ESCRITA EN UNA ETIQUETA EN UN MDIFORM.</marquee>
Imports System.Data.OleDb
Imports System.Data.Odbc
Public Class PRODUCTOS
Dim oCB As OleDbCommandBuilder
Dim changes As DataSet
Dim Conexion As New OleDbConnection
Dim MyDataSet As DataSet
Dim MyDataAdapter As OleDbDataAdapter
Private Sub PRODUCTOS_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Conexion = New OleDbConnection With {.ConnectionString = "Provider=Microsoft.ACE.OleDb.12.0;Data Source= " & VPrincipal.conexion.Text & ";"}
' crear commandbuilder
Dim oCB As OleDbCommandBuilder = New OleDbCommandBuilder(MyDataAdapter)
MyDataSet = New DataSet
Try
MyDataAdapter = New OleDbDataAdapter("SELECT * FROM PRODUCTOS", Conexion)
MyDataAdapter.Fill(MyDataSet, "PRODUCTOS")
'Cargamos BindingSource con el DataSet
' BindingSource1.DataSource = MyDataSet
'BindingSource1.DataMember = "PRODUCTOS"
DataGridView1.DataSource = MyDataSet.Tables("PRODUCTOS")
DataGridView1.AlternatingRowsDefaultCellStyle.BackColor = Color.PeachPuff
Me.WindowState = FormWindowState.Maximized
Catch EX As Exception
MsgBox(EX.Message)
End Try
End Sub
Private Sub CerrarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CerrarToolStripMenuItem.Click
Me.Close()
End Sub
ESTA PARTE ES PARA UPDATE, PERO AL EJECUTAR EL CODIGO ME DICE QUE FALTA OPERADOR EN LA SENTENCIA SQL Y NO HACE NADA
Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
Try
oCB = New OleDbCommandBuilder(MyDataAdapter)
oCB.GetUpdateCommand()
changes = MyDataSet.GetChanges()
If changes IsNot Nothing Then
oCB.SetAllValues = True
MyDataAdapter.Update(MyDataSet.Tables("PRODUCTOS"))
End If
MsgBox("Changes Done")
Catch ex As Exception
MsgBox(ex.ToString)
End Try
'MyDataAdapter.UpdateCommand = New OleDbCommand("UPDATE PRODUCTOS SET CODIGO=*, NOMBRE=*", Conexion)
'Me.MyDataAdapter.Update(MyDataSet, "PRODUCTOS")
End Sub
End ClassY ESTE ES EL FORMULARIO
