Veta hur man överför data mellan databastabeller kan göra dina databasapplikationer mer dynamisk . Microsoft Office Access används ofta för att designa små och lokala databaser . I Access kan du använda Microsoft Visual Basic for Applications ( VBA ) för att automatisera rutinuppgifter som att överföra data från en tabell till en annan . VBA är en dator programmeringsspråk som ger dig mer flexibilitet att manipulera data . En fråga används hämta information från en databastabell. Saker du behöver
Microsoft Office Access
Northwind databas
Visa fler instruktioner
1
Starta Northwind Microsoft Office Access-databas . Northwind-databasen ingår i Microsoft Office-paketet . Välj " Infoga " -menyn och klicka
2
Skriv följande för att skapa en ny subrutin " Modul . " :
Private Sub Dataöverföring ( ) katalog
Tryck " Ange " Addera 3
Skriv följande för att deklarera dina variabler : .
Dim stringSQL As String
Dim db som databas
Dim rst som Recordset
Dim rstTwo som Recordset
Set db = CurrentDb
4
Skriv följande för att skapa en ny tabell och dataöverföring :
stringSQL = " CREATE TABLE employeeNames ( Efternamn TEXT ( 25 ) , Förnamn TEXT ( 25 ) ) ; "
DoCmd.RunSQL ( stringSQL ) katalog
Skriv följande för att öppna den nya tabellen genom ett Recordset för att lägga till data :
Set rstTwo = db.OpenRecordset ( " employeeNames " )
5
Skriv följande för att söka i tabellen "employees" :
stringSQL = " SELECT Employees.Company , "
stringSQL = stringSQL & " Medarbetare . [ Efternamn ] , "
stringSQL = stringSQL & " Medarbetare . [ Förnamn ] "
stringSQL = stringSQL & " FROM Anställda ; "
Set rst = db.OpenRecordset ( stringSQL ) katalog
rst.MoveLast
rst.MoveFirst
6
Skriv följande för att loopa igenom frågan och överföring " Efternamn " och " förnamn " till " employeeNames " table :
Do While Not rst.EOF
rstTwo . SparNy
rstTwo.Fields ( "Efternamn " ) . Standard = rst.Fields ( " [ Efternamn ] " ) . Standard
rstTwo.Fields ( " Förnamn " ) . Value = RST . fält ( " [ Förnamn ] " ) . Value
rstTwo.Update
rst.MoveNext
Loop
7
Skriv följande för att frisättning variabler från minnet :
rst.Close
rstTwo.Close
db.Close
Tryck " F5 " för att köra din subrutin
. Addera ditt
