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
0
Categorizado en: Desarrollo de Aplicaciones

2 Comentarios

  1. victor dice:

    no funciona con access 2016

    0

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

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