La possibilità di eseguire query da database diversi da quello che si sta usando può rendere l'applicazione di Access più dinamico , è possibile eseguire questa operazione utilizzando Visual Basic, Applications Edition (VBA ) . In VBA , è possibile utilizzare il metodo " OpenDatabase " per definire il percorso e il nome del database che si desidera interrogare . Dopo aver definito il database, è possibile utilizzare l'oggetto " Recordset " per visualizzare i risultati della query . Cose che ti serviranno
Northwind 2007 database di
Mostra più istruzioni
1

lancio Access 2007 , fare clic su " Database vuoto " e quindi fare clic sul pulsante "Crea" . Selezionare "Strumenti database" e poi cliccare su " Visual Basic ".
2

Creare una nuova procedura digitando il seguente codice :

QueryDatabase Private Sub ( ) economici
3

creare tre nuove variabili digitando il seguente codice VBA :

Dim rst come Recordset

Dim dbs As Database Dim

sqlstr As String < br >
4

Definire il database che si interrogherà inserendo il seguente codice:

Set dbs = OpenDatabase ( " C : \\ Northwind 2007.accdb " ) economici 5 < p > Creare una stringa SQL digitando il seguente codice per creare una query :

sqlstr = " . . ordini SELECT [ Nome della nave ] , ordini [ indirizzo della nave ] "

sqlstr = sqlstr & "FROM ordini "

sqlstr = sqlstr & " GROUP BY ordini [Nome della nave ] , Ordini [ indirizzo della nave ] , . ».
6

Copia e incolla il seguente codice per aprire la query attraverso un " Recordset " e visualizzare i risultati nella finestra immediata:

Set rst = dbs.OpenRecordset ( sqlstr ) per

rst.MoveLast

rst.MoveFirst

Do While Not rst.EOF

Debug.Print rst.Fields ( " Nome della nave " ) . Valore

Debug.Print rst.Fields ( " l'indirizzo della nave " ) . valore

rst.MoveNext

loop
7

Fine vostra procedura digitando il seguente codice :

rst.Close
< p > dbs.Close

End Sub