Sapere come aprire e interrogare più database consente di risparmiare tempo quando si ha bisogno di utilizzare i dati dai file di database. Microsoft Office Access è un sistema di gestione di database relazionali sviluppato da Microsoft . Access è un'applicazione popolare usato per la progettazione di database locali . Una query viene utilizzato per recuperare informazioni da una tabella di database . Visual Basic for Applications , noto anche come VBA , è un linguaggio di programmazione di computer che può essere utilizzato per interrogare più database . Cose che ti serviranno
Microsoft Office Access
Show More Istruzioni
1

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

digitare quanto segue per creare il " queryMultipleDbs " subroutine "Modulo ". :

QueryMultipleDbs Private Sub ( ) per

Premere il tasto " Enter ".
3

digitare quanto segue per dichiarare nuove variabili :

Dim rst come Recordset

Dim dbs Come base di dati < p > Dim dbs2 Come Database
4

Digitare quanto segue per aprire il primo database :

Set dbs = OpenDatabase ( " C : \\ Northwind 2007.accdb " ) per < p > Modificare il percorso e digitare il percorso del database
5

digitare quanto segue per aprire il secondo database : .

dbs2 = OpenDatabase ( " C : \\ Copia di Northwind 2007. accdb " ) per

Modificare il percorso e digitare il percorso del database .
6

digitare quanto segue per interrogare la " " tabella nel primo database e visualizzare i valori nel" Dipendenti Ultimo nome " :

Set rst = dbs.OpenRecordset ( " Dipendenti SELECT * FROM Dipendenti " . ) per

rst.MoveLast

rst.MoveFirst

do While Not rst.EOF

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

rst.MoveNext

loop

RST . chiudere
7

digitare quanto segue per interrogare la tabella "Prodotti" nel primo database e visualizzare i valori nel " Codice di prodotto " colonna :

Set rst = dbs2.OpenRecordset ( " selezionare i prodotti . * FROM Prodotti " ) per

rst.MoveLast

rst.MoveFirst

Do While Not rst.EOF

Debug.Print RST . Fields ( "Codice prodotto") . Valore

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 .