Nwlapcug.com


Come eseguire una Query di un Database in Access 2007

Come eseguire una Query di un Database in Access 2007


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