Sapendo come trasferire i dati tra le tabelle del database può rendere più dinamico le applicazioni di database. Microsoft Office Access è comunemente utilizzato per la progettazione di piccole e locali dei database. In Access, è possibile utilizzare Microsoft Visual Basic, Applications Edition (VBA) per automatizzare le attività di routine, come il trasferimento di dati da una tabella all'altra. VBA è un linguaggio di programmazione che vi fornirà una maggiore flessibilità di manipolare i dati. Una query viene utilizzato recuperare informazioni da una tabella del database.

istruzione

1 Avviare il database Northwind di Microsoft Office Access. Il database Northwind è incluso nella suite Microsoft Office. Selezionare il menu "Inserisci" e fare clic su "Modulo".

2 Digitare la seguente per creare una nuova subroutine:

Private Sub TransferData ()

Premere Invio."

3 Digitare la seguente per dichiarare le variabili:

Dim stringSQL As String

db fioco come base di dati

Dim rst come Recordset

Dim rstTwo Come Recordset

Set db = CurrentDb

4 Digitare la seguente per creare una nuova tabella di dati e il trasferimento:

stringSQL = "CREATE TABLE employeeNames (LastName TEXT (25), Nome TEXT (25));"

DoCmd.RunSQL (stringSQL)

Digitare quanto segue per aprire la nuova tabella attraverso un Recordset per aggiungere dati:

Set rstTwo = db.OpenRecordset ( "employeeNames")

5 Digitare il seguente per interrogare i "Dipendenti" tabella:

stringSQL = "SELECT Employees.Company,"

stringSQL = stringSQL e "I dipendenti. [Cognome],"

stringSQL = stringSQL e "I dipendenti. [Nome]"

stringSQL = stringSQL & "FROM Impiegati;"

Set rst = db.OpenRecordset (stringSQL)

rst.MoveLast

rst.MoveFirst

6 Digitare quanto segue per scorrere la query e trasferimento "Cognome" e "Nome" al tavolo "employeeNames":

Do While Non rst.EOF

rstTwo.AddNew

rstTwo.Fields ( "Cognome"). Valore = rst.Fields ( "[Cognome]"). Valore

rstTwo.Fields ( "Nome"). Valore = rst.Fields ( "[Nome]"). Valore

rstTwo.Update

rst.MoveNext

Ciclo continuo

7 Digitare la seguente per rilasciare le variabili dalla memoria:

rst.Close

rstTwo.Close

db.Close

Premere il tasto "F5" per eseguire la subroutine.