INESEM Business School
Contactar por whatsappWhatsapp

Contacta con nosotros

Teléfono de INESEM 958 050 205
Imagen genérica del Canal Informática y TICS
Te ayudamos a elegir tu formación

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

Solicita información




    Información básica sobre Protección de Datos. Haz clic aquí

    Acepto el tratamiento de mis datos con la finalidad prevista en la información básica

    ¿Quieres más artículos de Informática y TICS ?

    Selecciona la categoría que más te interese

      Comentarios

    1. victor dice:

      no funciona con access 2016

    Ver más comentarios

    ¡Descubre los secretos de inesem en nuestro canal de Telegram!

    Artículos más leídos

    Descubre Territorio Inesem

    Disfruta del mejor contenido con los últimos podcast y webinars

    ES EL MOMENTO

    Comienza tu futuro de la mano de INESEM Business School con el programa de

    EXECUTIVE MASTERS

    Únete al selecto grupo de alumnos que han conseguido alcanzar una carrera de éxito en las profesiones más demandadas.

    ÚNETE AL EQUIPO DE REDACCIÓN

    Comparte tu conocimiento con otros profesionales

    Saber más