Guardar Datagridview en base de datos Access

Hola amigos pensando en que talvez no fui muy explicito en esta entrada anteriormente, me decidi por realizarla poco a poco y exponerles el codigo que conectara muy bien su Datagridview con base de datos Access. Primeramente les expongo una captura nueva.

Siguiendo, creamos los campos en la Datagridview como la captura de diseño:




Continuando lo que haremos es generar y llenar la tabla con el codigo en el form:

Public Class Form1
    Public conex As New Conectar.ConectarBase 'llama la clase Conectarbase
    Dim datafila As DataRow
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'GENERAR Y RELLENAR EL DATAGRIDVIEW
        Try
            Dim n As Integer = 6 ' cualquier valor para sumar
            Dim cantidad(n) As Integer 'matriz para almacenar hasta n valores
            Dim valor As Double = 0.18 'valor de un articulo en común ....para ejemplificar
            Dim subtotal(n) As Double ' matriz que almacena los subtotales de cada compra
            Dim suma As Double 'total de la suma de la columna subtotal
            For i As Integer = 0 To n - 1
                cantidad(i) = i 'Val(InputBox("Ingresar cantidad Nº" & i + 1)) 'Entrada manual
            Next
            For i As Integer = 0 To n - 1
                subtotal(i) = cantidad(i) * valor
                suma = suma + subtotal(i)
            Next
            DataGridView1.Rows.Add(n + 1) 'numero de filas del grid
            For r As Integer = 0 To n - 1
                DataGridView1.Item(0, r).Value = r + 1
                DataGridView1.Item(1, r).Value = Format(cantidad(r), "0.00")
                DataGridView1.Item(2, r).Value = Format(valor, "0.00")
                DataGridView1.Item(3, r).Value = Format(subtotal(r), "0.00")
                DataGridView1.Item(2, n).Value = "TOTALES="
                DataGridView1.Item(3, n).Value = Format(suma, "0.00")
            Next
        Catch ex As KeyNotFoundException
            MessageBox.Show("Error de concurrencia:" & vbCrLf & ex.Message)
        End Try
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim contador As Integer = DataGridview1.Rows.Count - 1
            Dim ruta As String
            Dim tab As String = "SELECT * FROM Tdata  ORDER BY n"
            ruta = System.AppDomain.CurrentDomain.BaseDirectory
            ruta &= "\datac.mdb"
            conex.Conectar(ruta, tab) 'direccion de la base de datos
            For i As Integer = 0 To contador
                datafila = conex.dt.NewRow
                datafila("n") = DataGridview1.Item(0, i).Value
                datafila("Cantidad") = DataGridview1.Item(1, i).Value
                datafila("Valor") = DataGridview1.Item(2, i).Value
                datafila("Subtotal") = DataGridview1.Item(3, i).Value
                conex.dt.Rows.Add(datafila)
                conex.da.Update(conex.dt)
                ' Guardar físicamente los datos en la base
                conex.dt.AcceptChanges()
            Next
        Catch ex As Exception
            MessageBox.Show("ERROR al conectar o recuperar los datos:" & vbCrLf & _
ex.Message, "Conectar con la base", _
 MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub
End Class

Generando, sale la siguiente captura:

 

  Y aca  les presento la clase para conectar la base:

Imports System.Data
Imports System.Data.OleDb

Public Class Conectar
    Public Class ConectarBase
        Public dt As DataTable
        Public da As OleDbDataAdapter
        Public fila As Integer
        Public ds As New DataSet
        Public Function Conectar(ByVal dirPath As String, ByVal tabla As String) As String
            Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & dirPath
            ' La cadena de selección
            Dim sSel As String = tabla
            ' Comprobar si hay algún error
            Try
                ' Crear un nuevo objeto del tipo DataAdapter
                da = New OleDbDataAdapter(sSel, sCnn)
                ' Crear los comandos de insertar, actualizar y eliminar
                Dim cb As New OleDbCommandBuilder(da)
                ' Como hay campos con caracteres especiales,
                ' al usarlos incluirlos entre corchetes.
                cb.QuotePrefix = "["
                cb.QuoteSuffix = "]"
                ' Asignar los comandos al DataAdapter
                ' (se supone que lo hace automáticamente, pero...)
                '   da.UpdateCommand = cb.GetUpdateCommand
                da.InsertCommand = cb.GetInsertCommand
                '  da.DeleteCommand = cb.GetDeleteCommand
                ' Esta base de datos usa el ID con valores automáticos
                ' da.MissingSchemaAction = MissingSchemaAction.AddWithKey
                dt = New DataTable
                ' Llenar la tabla con los datos indicados
                da.Fill(dt)
            Catch ex As Exception
                MessageBox.Show("ERROR al conectar o recuperar los datos:" & vbCrLf & _
      ex.Message, "Conectar con la base", _
                                                  MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
            Return Conectar
        End Function
    End Class
End Class



Y listo es todo lo necesario para conectar y guardar en Access, si tienen duda alguna comenten para darles o tratar de buscar solucion...Nos vemos !!

Mi link: https://docs.google.com/open?id=0B-UGWA03tc5ZSURoOVQ0dE1iQkU