Hvordan overføre data mellom tabeller

Å vite hvordan å overføre data mellom databasetabeller kan gjøre databaseapplikasjoner mer dynamisk. Microsoft Office Access er ofte brukt til å designe små og lokale databaser. I Access, kan du bruke Microsoft Visual Basic for Applications (VBA) for å automatisere rutinemessige oppgaver som å overføre data fra en 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.

Bruksanvisning

1 Start North Microsoft Office Access database. The Northwind database er inkludert i Microsoft Office-pakken. Velg "Insert" -menyen og klikk på "Module".

2 Skriv inn følgende for å opprette en ny subrutine:

Private Sub transferData ()

Trykk enter."

3 Skriv inn følgende å erklære variabler:

Dim stringSQL As String

Dim db As Database

Dim rst As Recordset

Dim rstTwo As Recordset

Sett db = CurrentDb

4 Skriv inn følgende for å opprette en ny tabell og overføre data:

stringSQL = "CREATE TABLE employeeNames (Lastname TEKST (25), Fornavn TEKST (25));"

DoCmd.RunSQL (stringSQL)

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

Sett rstTwo = db.OpenRecordset ( "employeeNames")

5 Skriv inn følgende til søket "ansatte" tabell:

stringSQL = "SELECT Employees.Company,"

stringSQL = stringSQL & "Ansatte. [etternavn]"

stringSQL = stringSQL & "Ansatte. [fornavn]"

stringSQL = stringSQL & "fra de ansatte;"

Sett rst = db.OpenRecordset (stringSQL)

rst.MoveLast

rst.MoveFirst

6 Skriv inn følgende å sløyfe gjennom spørringen og transfer "etternavn" og "Fornavn" til "employeeNames" tabell:

Gjør Mens Ikke rst.EOF

rstTwo.AddNew

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

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

rstTwo.Update

rst.MoveNext

Loop

7 Skriv inn følgende for å frigjøre variabler fra minnet:

rst.Close

rstTwo.Close

db.Close

Trykk "F5" for å kjøre subrutine.