Le query sono un potente strumento in Microsoft Access per recuperare informazioni da una tabella di database e avere la conoscenza su come utilizzare le variabili nelle query può rendere la vostra applicazione di accesso più dinamico. In VBA è possibile costruire istruzioni SQL che contengono variabili come variabili stringa per recuperare i dati. Una volta creato l'istruzione SQL, è possibile utilizzare l'oggetto Recordset per recuperare i risultati delle query. Le variabili utente, invece di passare il tempo costruendo molte istruzioni SQL con criteri hard-coded.

istruzione

1 Inizia con la creazione di una nuova procedura secondaria utilizzando il seguente codice:

Private Sub useVariablesInQuery ()

2 Digitare il seguente codice per creare le variabili si intende utilizzare nella query:

Dim strSQL As String

Dim companyName As String

Dim lastName As String

Dim rst come Recordset

DBS fiochi come database

Set dbs = CurrentDb

3 Digitare la seguente per definire i valori delle variabili utilizzate nella query:

COMPANYNAME = "Northwind Traders"

lastName = "Freehafer"

4 Digitare quanto segue per creare una query utilizzando le variabili nel passaggio precedente:

strSQL = "SELECT Employees.Company, dipendenti. [Cognome], dipendenti. [Nome],"

strSQL = strSQL e "I dipendenti. [E-mail]"

strSQL = strSQL & "FROM Impiegati"

strSQL = strSQL & "WHERE (((Employees.Company) = '" & (companyName) & "')"

strSQL = strSQL & "e (. (dipendenti [Cognome]) = '" & (lastName) & "'));"

5 Digitare la seguente per aprire un recordset e visualizzare i risultati della query:

Set rst = dbs.OpenRecordset (strSQL)

Debug.Print rst.Fields (0) .Value

Debug.Print rst.Fields (1) .Value

Debug.Print rst.Fields (2) .Value

Debug.Print rst.Fields (3) .Value

6 Digitare la seguente per terminare la procedura di sub:

rst.Close

dbs.Close

End Sub

7 Premere il tasto "F5" per eseguire il codice.