Imagen genérica del Canal Informática y TICS

Recuperar datos de Access en VB .NET

07/03/2013
Número de visualizaciones

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
Categorizado en: Informática y TICS

No hay comentarios

  1. victor dice:

    no funciona con access 2016

Deja un comentario

Tu dirección de correo electrónico no será publicada.

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.

Descubre MasterClass de INESEM. Una plataforma en la que profesionales enseñan en abierto

Profesionales enseñando en abierto

Universidades colaboradoras
La universidad Antonio de Nebrija es Universidad colaboradora con INESEM Business School La universidad a Distancia de Madrid es Universidad colaboradora con INESEM Business School