Weten hoe je meerdere databases te openen en query's kunt u tijd besparen wanneer u gegevens uit meerdere database- bestanden te gebruiken . Microsoft Office Access is een relationele database management systeem ontwikkeld door Microsoft . Access is een populaire toepassing die wordt gebruikt om lokale databases te ontwerpen . Een query wordt gebruikt om informatie op te halen uit een database tabel . Visual Basic for Applications , ook wel bekend als VBA , is een programmeertaal die kan worden gebruikt om meerdere databases bevragen . Wat je nodig hebt
Microsoft Office Access
Toon Meer Aanwijzingen
1 Start Microsoft Office Access , selecteer " Lege database " en klik op "Create . " Klik op " Database Tools" en selecteer vervolgens " Visual Basic . " Selecteer in het menu "Invoegen " en klik
Type 2 het volgende om de " queryMultipleDbs " subroutine creëren " Module . " : Private Sub queryMultipleDbs
( ) op Druk op ' Enter '.
Type 3 het volgende tot nieuwe variabelen op te geven : Dim rst
als Recordset
Dim dbs Als Database
Dim dbs2 Als Database
Type 4 het volgende aan de eerste database te openen : Set dbs = OpenDatabase
( " C : \\ Noordenwind 2007.accdb " ) op Bewerk het pad en typ uw database pad
5 typ het volgende op de tweede database te openen : .
Set dbs2 = OpenDatabase ( " C : \\ Kopie van Noordenwind 2007 . accdb " ) op Bewerk het pad en typ uw database pad .
Type 6 het volgende om de query " Werknemers " tabel in de eerste databank en geeft de waarden in de " Last naam "kolom :
Set rst = dbs.OpenRecordset ( " SELECT * FROM Werknemers Werknemers " . ) rst.MoveLast rst.MoveFirst
do While Not rst.EOF Debug.Print rst.Fields
( "Achternaam " ) . Value rst.MoveNext Loop rst
. Sluit
Type 7 het volgende om de " producten " tabel een query in de eerste databank en geeft de waarden in de " Product Code " column :
Set rst = dbs2.OpenRecordset ( " SELECT producten . * FROM producten " ) rst.MoveLast rst.MoveFirst
Heb Terwijl Niet rst.EOF Debug.Print rst
. Fields ( " Product Code " ) . Value rst.MoveNext
Loop rst.Close Set
dbs = Nothing
set dbs2 = Nothing Druk op " F5 "
uw subroutine uit te voeren en de resultaten via het venster Direct .
|
