Å vite hvordan du overfører data mellom databasetabeller kan lage dine databaseapplikasjoner mer dynamisk . Microsoft Office Access er vanlig å designe små og lokale databaser . I Access kan du bruke Microsoft Visual Basic for Applications ( VBA ) til å automatisere rutineoppgaver som overfører data fra én tabell til en annen. VBA er et programmeringsspråk som vil gi deg mer fleksibilitet til å manipulere data . En spørring brukes hente informasjon fra en database tabell . Du trenger
Microsoft Office Access
Northwind Database
Vis flere instruksjoner
en

Start Northwind Microsoft Office Access database. The Northwind database er inkludert i Microsoft Office-pakken. Velg " Insert "-menyen og klikk
2

Skriv inn følgende for å opprette en ny subrutine " Module ". : En

Private Sub transferData ( )

Trykk " Enter "
3

skriv inn følgende å erklære variabler : .

Dim stringSQL As String

Dim db As Database

Dim rst Som Recordset

Dim rstTwo Som Recordset

Sett db = CurrentDb
4

Skriv inn følgende for å opprette en ny tabell og overføre data :
< p> stringSQL = "CREATE tABLE employeeNames ( Etternavn TEKST ( 25 ) , Fornavn TEKST ( 25 )); "

DoCmd.RunSQL ( stringSQL )

Skriv inn følgende for å åpne den nye tabellen gjennom en Recordset å legge data : en

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

Skriv inn følgende for å søke på " Ansatte " tabellen : en

stringSQL = "SELECT Employees.Company , "

stringSQL = stringSQL & " ansatte . [ etternavn ],"

stringSQL = stringSQL & " ansatte . [ fornavn ] "
< p> stringSQL = stringSQL & " FROM Ansatte ; "

Sett rst = db.OpenRecordset ( stringSQL )

rst.MoveLast

rst.MoveFirst
6

Skriv inn følgende å sløyfe gjennom spørringen og overføring "Etternavn " og " Fornavn " til " employeeNames " tabellen : en

Mens Ikke rst.EOF

rstTwo . AddNew

rstTwo.Fields ( "Etternavn" ) . Verdi = rst.Fields ("[ etternavn ] ") . Verdi

rstTwo.Fields ( " Fornavn" ) . Verdi = rst . felt (" [ fornavn ] ") . Verdi

rstTwo.Update

rst.MoveNext

Loop
7

Skriv inn følgende til utgivelsen variabler fra minnet : en

rst.Close

rstTwo.Close

db.Close

Trykk " F5 " for å kjøre din subrutine
.