Northwind base de datos
Ver Más instrucciones
1
Abrir la base de datos Northwind y haga clic en la pestaña "Herramientas de base de datos " . Haga clic en " Visual Basic " para abrir la ventana del editor de Visual Basic
2
inicio escribiendo el siguiente código para crear una nueva subprocedimiento : .
Private Sub readQueryValue ()
3
Copia y pega el siguiente código VBA para declarar variables a utilizar para leer una consulta:
nwDBS Dim As Database
nwRST As Recordset
< p> nwSQL dévil como secuencia
Set nwDBS = CurrentDb
4
Crear una consulta SQL , escriba el siguiente código: .
nwSQL = " Empleados SELECT [Último Nombre] Empleados [ Nombre ] "
nwSQL = nwSQL y " FROM Empleados ; "
5
Abra un nuevo conjunto de registros utilizando la consulta SQL creada en el paso anterior. :
Set nwRST = nwDBS.OpenRecordset ( nwSQL )
6
mueva el conjunto de registros a la primera fila de los resultados de la consulta y luego mover el conjunto de registros hacia adelante dos veces para leer la "Apellido " de la tercera fila , escriba el siguiente código:
nwRST.MoveFirst
nwRST.MoveNext
nwRST.MoveNext
Debug.Print nwRST.Fields . ( " [ Apellidos ]" ) Valor
7
Fin del procedimiento escribiendo el siguiente código:
nwRST.Close
nwDBS.Close
End Sub
8
Presione " Ctrl " y "G " para abrir la ventana Inmediato . Pulse la tecla "F5 " para ejecutar el procedimiento y ver los resultados a través de la ventana Inmediato .