Cómo ejecutar una consulta de Access en VB

Microsoft Access proporciona a las pequeñas empresas con una solución de base de datos. El acceso está incluido en el Microsoft Office Suite de aplicaciones, por lo que es más asequible que las bases de datos de la empresa, tales como Oracle o SQL Server. El acceso tiene la capacidad para ejecutar consultas, por lo que puede recuperar los registros para la aplicación Web desde el archivo de base de datos. Desde Visual Basic (VB) es también un producto de Microsoft, la recuperación de registros sólo requiere unas pocas líneas de código.

Instrucciones

1 Crear las variables necesarias para el proceso de consulta. Un objeto de conexión, consulta y conjunto de registros son necesarios para recuperar los registros desde Visual Basic. El siguiente código define cada objeto VB requerido:

Dim conn Como ADODB.Connection
SQL Dim como secuencia
Dim rs As ADODB.Recordset

2 Crear la conexión a su base de datos Access. La conexión se encuentra el archivo de base de datos y lo abre, por lo que puede ejecutar consultas en el archivo. El código siguiente abre su base de datos de acceso:

conn.Open \ "Provider = Microsoft.Jet.OleDb.4.0; Data Source = c: \ theDB.mdb \"

3 Cree su cadena de consulta. El \ "SQL \" variable definida en el paso uno se utiliza para crear la consulta. En este ejemplo, la consulta devuelve el primer nombre de una lista de clientes. El código siguiente crea una consulta de Access:

SQL = \ "select nombre FROM cliente \"

4 Ejecutar la consulta en su base de datos Access utilizando el objeto de conexión. El siguiente código ejecuta la consulta y asigna los resultados de la \ "rs \" variable creada en el primer paso:

rs.Open SQL, conn

5 Imprima un registro para verificar la consulta se ha realizado correctamente. Usted puede probar sus resultados mediante la creación de un cuadro de mensaje que muestra el primer registro de los resultados. Los siguientes imprime la primera \ "nombre apellido \" en su conjunto de registro:

MsgBox \ "El primer registro es \" & primera [0] .ToString