Nwlapcug.com


Come eseguire una Query più database in Access

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.Close7

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.