Sapere come trasferire i dati tra tabelle di database, le applicazioni di database può rendere più dinamico. Microsoft Office Access viene comunemente utilizzata per progettare i database di piccoli e locali. In Access, è possibile utilizzare Microsoft Visual Basic for Applications (VBA) per automatizzare operazioni di routine come il trasferimento di dati da una tabella a altra. VBA è un linguaggio di programmazione che vi fornirà una maggiore flessibilità per modificare i dati. Una query è usato recupera informazioni da una tabella di database.
Istruzioni
1
Avviare il database Northwind Microsoft Office Access. Il database Northwind è incluso nella suite Microsoft Office. Selezionare dal menu "Inserisci" e fare clic su "Modulo".
2
Digitare il comando seguente per creare una nuova subroutine:
Private Sub transferData()
Premere "Enter".
3
Digitare quanto segue per dichiarare le variabili:
Dim stringSQL As String
Dim db As Database
Dim rst As Recordset
Dim rstTwo As Recordset
Set db = CurrentDb
4
Digitare il comando seguente per creare una nuova tabella e trasferire i dati:
stringSQL = "Crea tabella employeeNames (Text (25) LastName, FirstName TEXT(25));"
DoCmd.RunSQL (stringSQL)
Digitare quanto segue per aprire la nuova tabella attraverso un Recordset per aggiungere dati:
Impostare rstTwo = db. OpenRecordset("employeeNames")
5
Digitare il comando seguente per eseguire una query la tabella "Impiegati":
stringSQL = "SELECT Employees.Company,"
stringSQL = stringSQL & "dipendenti. [Cognome] "
stringSQL = stringSQL & "dipendenti. [Nome] "
stringSQL = stringSQL + "FROM"Employees;
Set rst = db. OpenRecordset(stringSQL)
RST. MoveLast
RST. MoveFirst
6
Digitare quanto segue per scorrere in ciclo la query e trasferire "Last Name" e "First Name" alla tabella "employeeNames":
While Not rst. EOF
rstTwo.AddNew
rstTwo.Fields("LastName").Value = rst.Fields("[Last Name]").Value
rstTwo.Fields("FirstName").Value = rst.Fields("[First Name]").Value
rstTwo.Update
RST. MoveNext
Loop
7
Digitare quanto segue per rilasciare variabili dalla memoria:
RST. Chiudere
rstTwo.Close
DB. Chiudere
Premere "F5" per eseguire la subroutine.