Nwlapcug.com


Come trasferire i dati tra le tabelle

Come trasferire i dati tra le tabelle


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.