Access è un sistema che fornisce tutti gli strumenti necessari per la progettazione di un database. Una query viene utilizzato per recuperare i dati da una tabella del database. La proprietà di record viene utilizzato per accedere ai record restituiti da una query. Saper utilizzare un set di record di accesso può rendere l'applicazione di database più dinamico. Visual Basic, Applications Edition (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.

istruzione

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

2 Digitare la seguente per creare una nuova subroutine:

Private Sub useRecordset ()

Premere Invio."

3 Digitare la seguente per dichiarare nuove variabili:

Dim strSQL As String

DBS fiochi come database

Dim rst come Recordset

Dim tmpStr As String

Set dbs = CurrentDb

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

tmpStr = "Società | Cognome |"

tmpStr = tmpStr e "Nome |"

tmpStr = tmpStr e "Professione |"

tmpStr = tmpStr e "Business Phone"

Debug.Print tmpStr

5 Digitare quanto segue per interrogare la tabella "Clienti":

strSQL = "SELECT Customers.Company, i clienti. [Cognome],"

strSQL = strSQL e "I clienti. [Nome],"

strSQL = strSQL e "I clienti. [qualifica], i clienti. [Business Phone]"

strSQL = strSQL & "dalla clientela;"

6 Digitare quanto segue per aprire il recordset:

Set rst = dbs.OpenRecordset (strSQL)

rst.MoveLast

rst.MoveFirst

7 Digitare quanto segue per scorrere il set di record e visualizzare i risultati della query nella finestra immediata:

Do While Non rst.EOF

tmpStr = rst.Fields (0) .Value

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

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

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

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

Debug.Print tmpStr

rst.MoveNext

Ciclo continuo

8 Digitare la seguente per cancellare dalla memoria le variabili:

rst.Close

dbs.Close

Premere il tasto "F5" per eseguire la subroutine.