Cómo transferir datos entre tablas

Conocer cómo transferir datos entre tablas de bases de datos puede hacer que sus aplicaciones de base de datos más dinámico. Microsoft Office Access se utiliza comúnmente para diseñar bases de datos pequeñas y locales . En Access , puede utilizar Microsoft Visual Basic para Aplicaciones ( VBA) para automatizar tareas rutinarias, como la transferencia de datos de una tabla a otra . VBA es un lenguaje de programación que le proporcionará más flexibilidad para manipular los datos . Una consulta se utiliza recuperar información de una tabla de base de datos. Cosas que necesitará
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
.