La capacità di query da database diversi da quello che stai attualmente utilizzando può rendere l'applicazione di accesso più dinamico; è possibile farlo 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 eseguire query. Dopo aver definito il database, è possibile utilizzare l'oggetto "Recordset" per visualizzare i risultati della query.
Istruzioni
1
Avviare Access 2007, fare clic su "Database vuoto" e quindi fare clic sul pulsante "Crea". Selezionare "Strumenti di Database" e quindi fare clic su "Visual Basic".
2
Creare una nuova procedura digitando il codice riportato di seguito:
Private Sub queryDatabase()
3
Creare tre nuove variabili digitando il seguente codice VBA:
Dim rst As Recordset
() Dim dbs As Database
Dim SQLStr As String
4
Definire il database di cui eseguirà la query inserendo il seguente codice:
Set dbs = OpenDatabase ("C:\Northwind 2007.accdb")
5
Creare una stringa SQL digitando il codice seguente per creare una query:
SQLStr = "SELECT Orders. [Nome della nave], ordini. [Indirizzo nave] "
SQLStr = SQLStr & "Dagli ordini"
SQLStr = SQLStr & "gruppo di ordini. [Nome della nave], ordini. [Nave indirizzo];"
6
Copiare e incollare il codice seguente per aprire la query tramite un "Recordset" e visualizzare i risultati nella finestra controllo immediato:
Set rst = dbs. OpenRecordset(SQLStr)
RST. MoveLast
RST. MoveFirst
While Not rst. EOF
Debug.Print rst.Fields("Ship Name").Value
Debug.Print rst.Fields("Ship Address").Value
RST. MoveNext
Loop
7
Terminare la procedura digitando il codice riportato di seguito:
RST. Chiudere
DBS. Chiudere
End Sub