Microsoft Office Access
Northwind Database
Mostrar más instrucciones
1
Inicie la base de datos Access Northwind de Microsoft Office. La base de datos Northwind se incluye en la suite de Microsoft Office. Seleccione el menú "Insertar" y haga clic en
2
Escriba lo siguiente para crear un nuevo subprograma "Módulo ". :
Private Sub TransferData ()
Prensa " Escriba "
3
Escriba lo siguiente para declarar las variables : .
stringSQL dévil como secuencia
db As Database
rst As Recordset
rstTwo As Recordset
Set db = CurrentDb
4
Escriba el siguiente para crear una nueva tabla y la transferencia de datos :
< p> stringSQL = "CREATE TABLE employeeNames ( TEXTO Apellidos ( 25 ) , texto Nombre ( 25 )); "
DoCmd.RunSQL ( stringSQL )
Escriba lo siguiente para abrir la nueva tabla a través de un conjunto de registros para agregar datos :
Set rstTwo = db.OpenRecordset ( " employeeNames ")
5
Escriba lo siguiente para consultar la tabla "Empleados" :
stringSQL = "SELECT Employees.Company , "
stringSQL = stringSQL y " empleados . [ apellido] ",
stringSQL = stringSQL y " empleados . [ Nombre ]"
< p> stringSQL = stringSQL y "FROM Empleados ; "
Set rst = db.OpenRecordset ( stringSQL )
rst.MoveLast
rst.MoveFirst
6
Escriba lo siguiente para recorrer la consulta y la transferencia de "Last Name" y " Nombre" de la tabla " employeeNames ":
Do While Not rst.EOF
rstTwo . AddNew
rstTwo.Fields ( " Apellido" ) . Valor = rst.Fields ( " [ Apellidos ]" ) . Valor
rstTwo.Fields ( " Nombre" ) . Valor = rst . Fields ( " [ Nombre ]" ) . Valor
rstTwo.Update
rst.MoveNext
Loop
7
Escriba lo siguiente para variables de liberación de la memoria :
rst.Close
rstTwo.Close
db.Close
Press "F5 " para ejecutar la subrutina
.