Cómo utilizar el acceso de registros en una consulta

El acceso es un sistema que proporciona todas las herramientas necesarias para diseñar una base de datos. Una consulta se utiliza para recuperar datos de una tabla de base de datos. La propiedad de registros se utiliza para acceder a los registros devueltos por una consulta. Saber utilizar un conjunto de registros de acceso puede hacer que su aplicación de base de datos más dinámico. Visual Basic para Aplicaciones (VBA) es un lenguaje de programación utilizado para automatizar tareas rutinarias de acceso y otras aplicaciones de Microsoft Office. Puede utilizar VBA para recuperar los resultados de la consulta.

Instrucciones

1 Abra la base de datos Northwind de Microsoft Access. La base de datos Northwind se incluye en el paquete de Office. Haga clic en "Herramientas de base de datos" y seleccione "Visual Basic". Haga clic en el menú "Insertar" y seleccione "Módulo".

2 Escribe lo siguiente para crear un nuevo subprograma:

Private Sub useRecordset ()

Presione ENTRAR."

3 Escribe lo siguiente para declarar nuevas variables:

Dim como secuencia strSQL

DBS dévil como Base de Datos

Dim primera medida de registros

Dim como secuencia tmpStr

Set dbs = CurrentDb

4 Escribe lo siguiente a los nombres de campo de salida en la "Ventana Inmediato":

tmpStr = "Empresa | Apellidos |"

tmpStr = tmpStr y "Nombre |"

tmpStr = tmpStr y "Cargo |"

tmpStr = tmpStr y "Teléfono de la empresa"

Debug.Print tmpStr

5 Escribe lo siguiente para consultar la tabla "clientes":

strSQL = "SELECT Customers.Company, Clientes. [Apellido],"

strSQL = strSQL y "Clientes. [Nombre],"

strSQL = strSQL y "Clientes. [Título del trabajo], Clientes. [Teléfono de la empresa]"

strSQL = strSQL y "FROM Clientes;"

6 Escribe lo siguiente para abrir el conjunto de registros:

Establecer primera = dbs.OpenRecordset (strSQL)

rst.MoveLast

rst.MoveFirst

7 Escriba lo siguiente para recorrer el conjunto de registros y mostrar los resultados de la consulta en la ventana Inmediato:

Aunque no hacer rst.EOF

tmpStr = rst.Fields (0) .Value

tmpStr = tmpStr y "|" & rst.Fields (1) .Value

tmpStr = tmpStr y "|" & rst.Fields (2) .Value

tmpStr = tmpStr y "|" & rst.Fields (3) .Value

tmpStr = tmpStr y "|" & rst.Fields (4) .Value

Debug.Print tmpStr

rst.MoveNext

Lazo

8 Escribe lo siguiente para borrar las variables de la memoria:

rst.Close

dbs.Close

Pulse la tecla "F5" para ejecutar la subrutina.