Access è un sistema che fornisce tutti gli strumenti necessari per la progettazione di un database. Una query viene utilizzata per recuperare dati da una tabella di database. Il recordset viene utilizzata per accedere ai record restituiti da una query. Saper utilizzare un recordset di Access, l'applicazione di database può rendere più dinamica. Visual Basic for Applications (VBA) è un linguaggio di programmazione utilizzato per automatizzare le attività di routine in Access e altre applicazioni di Microsoft Office. È possibile utilizzare VBA per recuperare i risultati della query.

Istruzioni

1

Aprire il database Northwind di Microsoft Access. Il database Northwind è incluso nella suite Office. Fare clic su "Strumenti di Database" e selezionare "Visual Basic". Fare clic sul menu "Inserisci" e selezionare "Modulo".

2

Digitare il comando seguente per creare una nuova subroutine:

Private Sub useRecordset()

Premere "Enter".

3

Digitare quanto segue per dichiarare nuove variabili:

Dim strSQL As String

() Dim dbs As Database

Dim rst As Recordset

Dim tmpStr As String

Set dbs = CurrentDb

4

Digitare quanto segue per i nomi dei campi di output nella finestra"immediata":

tmpStr = "azienda | Last Name | "

tmpStr = tmpStr & "nome |"

tmpStr = tmpStr & "Job Title |"

tmpStr = tmpStr & "Telefono ufficio"

Debug. Print tmpStr

5

Digitare il comando seguente per eseguire una query sulla tabella "Clienti":

strSQL = "SELECT clienti., clienti. [Cognome] "

strSQL = strSQL & "clienti. [Cognome] "

strSQL = strSQL & "clienti. [Titolo di lavoro], clienti. [Telefono]"

strSQL = strSQL & "da parte dei"clienti;

6

Digitare il comando seguente per aprire il recordset:

Set rst = dbs. OpenRecordset(strSQL)

RST. MoveLast

RST. MoveFirst

7

Digitare quanto segue per scorrere in ciclo il recordset e visualizzare i risultati della query nella finestra immediata:

While Not rst. EOF

tmpStr = rst. Fields(0). Valore

tmpStr = tmpStr & "|" & rst. Fields(1). Valore

tmpStr = tmpStr & "|" & rst. Fields(2). Valore

tmpStr = tmpStr & "|" & rst. Fields(3). Valore

tmpStr = tmpStr & "|" & rst. Fields(4). Valore

Debug. Print tmpStr

RST. MoveNext

Loop

8

Digitare il comando seguente per cancellare variabili dalla memoria:

RST. Chiudere

DBS. Chiudere

Premere "F5" per eseguire la subroutine.