Sapere come trasferire i dati tra tabelle di database può rendere le applicazioni di database più dinamico. Microsoft Office Access è comunemente usato per la progettazione di basi di dati piccole e locali. 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 di computer che vi fornirà maggiore flessibilità per manipolare i dati . Una query viene utilizzato recuperare informazioni da una tabella di database . Cose che ti serviranno
Microsoft Office Access
Northwind Database
Show More Istruzioni
1

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

Digitare quanto segue per creare un nuovo sottoprogramma "Modulo ". :

Private Sub TransferData ( ) per

Press " Inserire "
3

digitare quanto segue per dichiarare le variabili : .

Dim stringSQL As String

Dim db As Database

dim rst come Recordset

dim rstTwo come Recordset

Set db = CurrentDb
4

Digitare quanto segue per creare una nuova tabella e il trasferimento dei dati :
< p > stringSQL = " CREATE tABLE employeeNames ( testo Cognome ( 25 ) , TESTO Nome ( 25) ) ; "

DoCmd.RunSQL ( stringSQL ) per

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

rstTwo = db.OpenRecordset ( " employeeNames " ) economici 5

digitare quanto segue per interrogare la tabella " Dipendenti" :

stringSQL = "SELECT Employees.Company , "

stringSQL = stringSQL & " Dipendenti . [ Cognome ] , "

stringSQL = stringSQL & " Dipendenti . [ Nome ] "
< p > stringSQL = stringSQL & " FROM Impiegati ; "

Set rst = db.OpenRecordset ( stringSQL ) per

rst.MoveLast

rst.MoveFirst
6

Digitare quanto segue al ciclo attraverso la query e di trasferimento "Cognome" e "Nome" al tavolo " employeeNames " :

Do While Not rst.EOF

rstTwo . AddNew

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

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

rstTwo.Update

rst.MoveNext

loop
7

digitare quanto segue per variabili di rilascio dalla memoria :

rst.Close

rstTwo.Close

db.Close

Premere " F5 " per eseguire la subroutine
.