Vide, hvordan man overføre data mellem databasetabeller kan gøre din database applikationer mere dynamisk. Microsoft Office Access er almindeligt anvendt til at designe små og lokale databaser. I Access kan du bruge Microsoft Visual Basic for Applications ( VBA ) til at automatisere rutineopgaver såsom overførsel af data fra én tabel til en anden. VBA er en computer programmeringssprog, der vil give dig mere fleksibilitet til at manipulere data. En forespørgsel bruges hente information fra en database tabel . Ting du skal
Microsoft Office Access
Northwind Database
Vis Flere Instruktioner
1

Start Northwind Microsoft Office Access -database. Databasen Northwind er inkluderet i Microsoft Office-pakken. Vælg "Indsæt " menuen og klik
2

Skriv følgende for at oprette en ny subrutine " Modul ". : Hej

Private Sub transferData ()

Tryk på " Enter "
3

Skriv følgende at erklære dine variabler : .

Dim stringSQL As String

Dim db Som Database

Dim rst Som Recordset

Dim rstTwo Som Recordset

Set db = CurrentDb
4

Skriv følgende for at oprette en ny tabel og overføre data : Hej < p> stringSQL = " CREATE TABLE employeeNames ( LastName TEXT ( 25) , Fornavn TEXT ( 25 )), "

DoCmd.RunSQL ( stringSQL )

Skriv følgende for at åbne den nye tabel gennem en Recordset til at tilføje data : Hej

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

Skriv følgende for at søge i "Medarbejderne " table : Hej

stringSQL = " SELECT Employees.Company , "

stringSQL = stringSQL & " Medarbejdere . [ Efternavn ] , "

stringSQL = stringSQL & " Medarbejdere . [First Name]"
< p> stringSQL = stringSQL & " FROM Medarbejdere , "

Set rst = db.OpenRecordset ( stringSQL )

rst.MoveLast

rst.MoveFirst
6

Skriv følgende at sløjfe gennem forespørgslen og overførsel "Last Name" og "First Name" til " employeeNames " table : Hej

Do While Not rst.EOF

rstTwo . TilføjNy

rstTwo.Fields ( "Efternavn "). Værdi = rst.Fields ( " [ Efternavn ] "). Værdi

rstTwo.Fields ( " Fornavn" ) . Value = rst . felter (" [First Name]" ) . Value

rstTwo.Update

rst.MoveNext

Loop
7

Skriv følgende til frigivelse variable fra hukommelsen : Hej

rst.Close

rstTwo.Close

db.Close

Tryk på " F5 " for at køre din subrutine
.