Recuperar datos de Access en VB .NET

En este post veremos el código VB .NET para conectar con una base de datos Access y recuperar los datos de una tabla.

Para ello crearemos una función que recibirá como parámetros el nombre de la base de datos y de la tabla de la que deseamos recuperar los datos.

Sub RecuperarDatos(Optional ByVal nombreBaseDatos As String = "", _
                        Optional ByVal commandString As String = "")

        Dim ArchivoDatos = nombreBaseDatos
        If ArchivoDatos = "" Then
            Exit Sub
        End If
        'Si no mandamos el nombre de la tabla cogemos una por defecto
        Dim CadenaSelect = "SELECT * FROM Tabla_defecto"
        If commandString = "" Then
            commandString = CadenaSelect
        End If

        '
        CadenaConexion = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + ArchivoDatos
        '
        Try
            dbConnection = New OleDbConnection(CadenaConexion)
        Catch e As Exception
            MessageBox.Show("Error al crear la conexión:" + vbCrLf + e.Message)
            Exit Sub
        End Try
        '
        dbConnection.Open()
        '
        dbDataSet = New Data.DataSet()
        '
        dbDataAdapter = New OleDbDataAdapter(commandString, dbConnection)
        '
        Try
            dbDataAdapter.Fill(dbDataSet)
        Catch ex As Exception
            MessageBox.Show("Error al recuperar datos de la tabla:" + vbCrLf + ex.Message)
        End Try
       '''''''''''''''''''''''''' 
       '' Ahora en dbDataSet tenemos todos los datos recuperados de la tabla.
       ''''''''''''''''''''''''''
 End Sub