Sapere come aprire e query più database è possibile risparmiare tempo quando è necessario utilizzare i dati provenienti da più file di database. Microsoft Office Access è un sistema di gestione di database relazionale sviluppato da Microsoft. Access è un'applicazione popolare usato per la progettazione di database locali. Una query viene utilizzato per recuperare informazioni da una tabella del database. Visual Basic, Applications, noto anche come VBA, è un linguaggio di programmazione che può essere usato per interrogare più database.

istruzione

1 Avviare Microsoft Office Access, selezionare "Database vuoto" quindi fare clic su "Crea". Fai clic su "Strumenti di database", quindi selezionare "Visual Basic". Selezionare il menu "Inserisci" quindi su "Modulo".

2 Digitare quanto segue per creare la subroutine "queryMultipleDbs":

queryMultipleDbs Private Sub ()

Premere Invio."

3 Digitare la seguente per dichiarare nuove variabili:

Dim rst come Recordset

DBS fiochi come database

Dim dbs2 Come Database

4 Digitare quanto segue per aprire il primo database:

Set dbs = OpenDatabase ( "C: \ Northwind 2007.accdb")

Modificare il percorso e digitare il percorso del database.

5 Digitare quanto segue per aprire il secondo database:

Set dbs2 = OpenDatabase ( "C: \ copia di Northwind 2007.accdb")

Modificare il percorso e digitare il percorso del database.

6 Digitare il seguente per interrogare 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 Non rst.EOF

Debug.Print rst.Fields ( "Cognome"). Valore

rst.MoveNext

Ciclo continuo

rst.Close

7 Digitare quanto segue per interrogare la 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 Non rst.EOF

Debug.Print rst.Fields ( "Codice Prodotto"). Valore

rst.MoveNext

Ciclo continuo

rst.Close

Set dbs = Nothing

Set dbs2 = Nothing

Premere il tasto "F5" per eseguire la subroutine e visualizzare i risultati attraverso la finestra immediata.