Wissen, wie man Daten zwischen Datenbanktabellen übertragen können Sie Ihre Datenbank-Anwendungen mehr Dynamik. Microsoft Office Access wird häufig verwendet, um kleine und lokale Datenbanken zu entwerfen. In Access können Sie Microsoft Visual Basic für Applikationen ( VBA) verwenden, um Routineaufgaben wie die Übertragung von Daten von einem Tisch zum anderen zu automatisieren. VBA ist eine Programmiersprache , die Ihnen mit mehr Flexibilität , um Daten zu manipulieren. Eine Abfrage wird Abrufen von Informationen aus einer Datenbank -Tabelle. Things You
Microsoft Office Access
Northwind Database
brauchen anzeigen Weitere Anweisungen
1

starten Northwind Microsoft Office Access-Datenbank. Die Nordwind-Datenbank wird der Microsoft Office-Suite enthalten. Wählen Sie das Menü "Einfügen" und klicken
2

Geben Sie den folgenden , um eine neue Subroutine erstellen "Module . ":

Private Sub transferData ()

Presse " Geben Sie "
3

Geben Sie den folgenden Ihre Variablen deklarieren: .

Dim stringSQL As String Dim db

As Database

Dim rst als Recordset

Dim rstTwo Als Recordset

Set db = CurrentDb
4

Geben Sie den folgenden um eine neue Tabelle zu erstellen und Daten zu übertragen :
< p> stringSQL = " CREATE TABLE EmployeeNames ( Name TEXT ( 25) , Vorname TEXT ( 25) ); "

DoCmd.RunSQL ( stringSQL )

Geben Sie den folgenden , um die neue Tabelle durch öffnen ein Recordset Daten hinzufügen :

Set rstTwo = db.OpenRecordset ( " EmployeeNames " )
5

Geben Sie den folgenden , um die "Mitarbeiter" Tabelle abzufragen :

stringSQL = "SELECT Employees.Company "

stringSQL = stringSQL & "Mitarbeiter . [ Nachname ] , "

stringSQL = stringSQL & "Mitarbeiter . [ Vorname ] "
< p> = stringSQL stringSQL & "FROM Employees; "

Set rst = db.OpenRecordset ( stringSQL )

rst.MoveLast

rst.MoveFirst
6

Geben Sie den folgenden in einer Schleife durch die Abfrage und Übertragung " Nachname " und " Vorname " zum " EmployeeNames " Tabelle :

Do While Not rst.EOF

rstTwo . AddNew

rstTwo.Fields ( " Name " ) . Value = rst.Fields ( " [ Nachname ]"). Wert

rstTwo.Fields ( " Vorname " ) . Value = rst . Fields ( " [ Vorname ]"). Wert

rstTwo.Update

rst.MoveNext

Schleife
7

Geben Sie den folgenden zu Release Variablen aus dem Speicher :

rst.Close

rstTwo.Close

db.Close

Presse "F5" auf Ihrer Unterroutine ausführen
.