ubiquitour.com

Cómo consultar una base de datos de Microsoft Access mediante DSN

Cómo consultar una base de datos de Microsoft Access mediante DSN

Es útil saber cómo consultar una base de datos de Microsoft Access utilizando un nombre de origen de datos (DSN) a través de una conexión de conectividad abierta de base de datos (ODBC). Microsoft Access es una aplicación de base de datos relacional que se utiliza comúnmente para bases de datos más pequeñas. Visual Basic.NET utiliza a menudo para conectar a una base de datos de Access. Programadores requieren generalmente consultando un contenido base de datos para la manipulación de datos más. Utilizando un DSN es conveniente porque se puede actualizar manualmente el DSN que señale a una base de datos sin tener que editar el código de Visual Basic.

Instrucciones

1 Inicie Microsoft Visual Basic 2010 Express, haga clic en "Archivo" y seleccione "Nuevo proyecto...". Haga clic en "Elementos de formularios de Windows" y seleccionar "Aceptar".

Haga doble clic en "Botón" en el menú "Herramientas" para añadir un nuevo botón a "Form1". Haga doble clic en "Button1" para abrir "Form1.vb". Escriba "System.Data.Odbc.OdbcConnection de las importaciones" en la primera línea del módulo "Form1.vb".

2 Haga clic dentro de "Private Sub Button1_Click" y escriba lo siguiente para declarar tus variables y abrir su conexión DSN:

Dim loopCounter As Integer

Dim odbcConn como Odbc.OdbcConnection

odbcConn = New Odbc.OdbcConnection("DSN=myDSN")

odbcConn.Open()

Editar "DSN = myDSN" para agregar su nombre de "DSN".

3 Escriba lo siguiente para consultar su base de datos de Access:

OdbcDataAdapter DIM como nuevo Odbc.OdbcDataAdapter("SELECT TABLE1.* FROM TABLE1;", odbcConn)

Dim odbcDataSet como New Data.DataSet

odbcDataAdapter.Fill(odbcDataSet)

Edición "SELECT TABLE1.* FROM TABLE1;" para agregar tu consulta particular.

4 Escriba lo siguiente para bucle a través de la consulta y mostrar un cuadro de mensaje con información del primer campo:

Para loopCounter = 0 para odbcDataSet.Tables(0). Rows.Count - 1

MsgBox(odbcDataSet.Tables(0). Rows(loopCounter). Item(0))

Siguiente

5 Escriba lo siguiente para liberar las variables de memoria:

odbcConn.Close()

odbcConn.Dispose()

odbcConn = nada

Presione "F5" para ejecutar el programa y haga clic en "Button1".