Weten hoe u gegevens tussen database tabellen overzetten kan uw database applicaties dynamischer te maken . Microsoft Office Access wordt vaak gebruikt om kleine en lokale databases te ontwerpen . In Access kunt u Microsoft Visual Basic for Applications ( VBA ) om routinetaken zoals het overbrengen van gegevens van de ene tafel naar de andere te automatiseren . VBA is een programmeertaal die u zal voorzien van meer flexibiliteit om gegevens te manipuleren . Een query wordt gebruikt informatie ophalen uit een database tabel . Wat je nodig hebt
Microsoft Office Access
Noordenwind Database
Toon Meer Aanwijzingen
1 Start de Noordenwind Microsoft Office Access-database . De database Noordenwind is opgenomen in de Microsoft Office suite . Selecteer in het menu "Invoegen " en klik
Type 2 het volgende om een nieuwe subroutine creëren " Module . " : Private Sub transferData
( ) Pers Nieuws " Voer "
Type 3 de volgende om uw variabelen te verklaren : . Dim stringSQL
als Koord Dim db
Als Database
Dim rst als Recordset Dim rstTwo
als Recordset
Set db = CurrentDb
Type 4 het volgende om een nieuwe tafel en overdracht van gegevens te maken :
stringSQL = " CREATE tABLE employeeNames ( Achternaam TEXT ( 25 ) , Voornaam TEXT ( 25 ) ) ; " DoCmd.RunSQL ( stringSQL ) Type
het volgende aan de nieuwe tafel te openen door middel van een Recordset om gegevens toe te voegen :
Stel rstTwo = db.OpenRecordset ( " employeeNames " )
5 Typ het volgende om de " Werknemers " table opvragen:
stringSQL = " SELECT Employees.Company , "
stringSQL = stringSQL & " Werknemers . [ Naam ] , "
stringSQL = stringSQL & " Werknemers . [ Voornaam ] "
stringSQL = stringSQL & " FROM Werknemers ; "
Set rst = db.OpenRecordset ( stringSQL ) op rst.MoveLast
rst.MoveFirst
Type 6 de volgende voor het doorlussen van de query en de overdracht van "Achternaam " en "Voornaam " om de " employeeNames " tabel:
Do While Not rst.EOF rstTwo
. AddNew rstTwo.Fields
( " Achternaam " ) . Value = rst.Fields ( " [ Naam ] " ) . Value rstTwo.Fields
( " Voornaam " ) . Value = rst . velden ( " [ Voornaam ] " ) . Value
rstTwo.Update
rst.MoveNext
Loop
Type 7 de volgende te vrijlating variabelen uit het geheugen : rst.Close rstTwo.Close db.Close Druk op "F5 "
uw subroutine draaien
.
|
