Sapendo come aprire ed eseguire query più database possono risparmiare tempo quando è necessario utilizzare i dati da più file di database. Microsoft Office Access è un relational database management system sviluppato da Microsoft. L'accesso è una popolare applicazione utilizzata per progettare i database locali. Una query viene utilizzata per recuperare informazioni da una tabella di database. Visual Basic for Applications, noto anche come VBA, è un linguaggio di programmazione che può essere utilizzato per eseguire query più database di computer.
Istruzioni
1
Avviare Microsoft Office Access, selezionare "Database vuoto" quindi fare clic su "Crea". Fare clic su "Strumenti di Database" e poi selezionare "Visual Basic". Selezionare dal menu "Inserisci" e scegliere "Modulo".
2
Digitare il comando seguente per creare la subroutine "queryMultipleDbs":
Private Sub queryMultipleDbs()
Premere "Enter".
3
Digitare quanto segue per dichiarare nuove variabili:
Dim rst As Recordset
() Dim dbs As Database
Dim dbs2 come Database
4
Digitare il comando seguente per aprire il primo database:
Set dbs = OpenDatabase ("C:\Northwind 2007.accdb")
Modificare il percorso e digitare il percorso del database.
5
Digitare il comando seguente per aprire il secondo database:
Impostare dbs2 = OpenDatabase ("2007.accdb di C:\Copy di Northwind")
Modificare il percorso e digitare il percorso del database.
6
Digitare quanto segue per eseguire una query la tabella "Impiegati" nel primo database e visualizzare i valori nella colonna "Nome":
Set rst = dbs.OpenRecordset("SELECT Employees.* FROM Employees")
rst.MoveLast
rst.MoveFirst
Do While Not rst.EOF
Debug.Print rst.Fields("Last Name").Value
rst.MoveNext
Loop
rst.Close
7
Digitare quanto segue per eseguire query nella tabella "Prodotti" nel primo database e visualizzare i valori nella colonna "Codice prodotto":
Set rst = dbs2.OpenRecordset("SELECT Products.* FROM Products")
rst.MoveLast
rst.MoveFirst
Do While Not rst.EOF
Debug.Print rst.Fields("Product Code").Value
rst.MoveNext
Loop
rst.Close
Set dbs = Nothing
Set dbs2 = Nothing
Premere "F5" per eseguire la subroutine e visualizzare i risultati attraverso la finestra immediata.