Cómo transferir datos entre tablas

Conocer cómo transferir datos entre tablas de bases puede hacer que sus aplicaciones de bases 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 tales como la transferencia de datos de una tabla a otra. VBA es un lenguaje de programación de computadoras que le proporcionará una mayor flexibilidad para manipular los datos. Una consulta se utiliza recuperar información de una tabla de base de datos.

Instrucciones

1 Iniciar la base de datos Northwind de Microsoft Office Access. La base de datos Northwind se incluye en el paquete de Microsoft Office. Seleccione el menú "Insertar" y haga clic en "módulos".

2 Escribe lo siguiente para crear un nuevo subprograma:

Private Sub transferData ()

Presione ENTRAR."

3 Escribe lo siguiente para declarar sus variables:

Dim como secuencia stringSQL

Dim db Como Base de Datos

Dim primera medida de registros

Dim rstTwo Como conjunto de registros

Set db = CurrentDb

4 Escribe lo siguiente para crear una nueva tabla de datos y la transferencia:

stringSQL = "CREATE TABLE employeeNames (texto Apellido (25), FirstName TEXTO (25));"

DoCmd.RunSQL (stringSQL)

Escribe lo siguiente para abrir la nueva tabla a través de un conjunto de registros para agregar datos:

Establecer rstTwo = db.OpenRecordset ( "employeeNames")

5 Escriba lo siguiente para consultar los "empleados" tabla:

stringSQL = "SELECT Employees.Company"

stringSQL = stringSQL y "Los empleados. [APELLIDO],"

stringSQL = stringSQL y "Los empleados. [Nombre]"

stringSQL = stringSQL y "de los empleados;"

Establecer primera = db.OpenRecordset (stringSQL)

rst.MoveLast

rst.MoveFirst

6 Escriba el siguiente colocar a través de la consulta y la transferencia "Apellido" y "Nombre" de la tabla "employeeNames":

Aunque no hacer rst.EOF

rstTwo.AddNew

rstTwo.Fields ( "Apellido"). Value = rst.Fields ( "[Apellido]"). Valor

rstTwo.Fields ( "Nombre"). Value = rst.Fields ( "[Nombre]"). Valor

rstTwo.Update

rst.MoveNext

Lazo

7 Escribe lo siguiente para liberar las variables de la memoria:

rst.Close

rstTwo.Close

db.Close

Pulse la tecla "F5" para ejecutar la subrutina.