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.