Nwlapcug.com


Come utilizzare le variabili in una Query di Access VBA

Come utilizzare le variabili in una Query di Access VBA


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 l'applicazione di accesso più dinamico. In VBA è possibile costruire istruzioni SQL che contengono le variabili come variabili di stringa per recuperare i dati. Una volta che si genera l'istruzione SQL è possibile utilizzare l'oggetto Recordset per recuperare i risultati della query. Variabili utente invece di spendere tempo a costruire molte istruzioni SQL con parametri hardcoded.

Istruzioni

1

Iniziare creando una nuova routine sub utilizzando il seguente codice:

Private Sub useVariablesInQuery()

2

Digitare il seguente codice per creare le variabili che si utilizzerà nella query:

Dim strSQL As String

String companyName As String

Dim lastName As String

Dim rst As Recordset

() Dim dbs As Database

Set dbs = CurrentDb

3

Digitare quanto segue per definire i valori delle variabili utilizzate nella query:

companyName = "Northwind Traders"

lastName = "Freehafer"

4

Digitare il comando seguente per creare una query utilizzando le variabili nel passaggio precedente:

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

strSQL = strSQL & "dipendenti. [Indirizzo e-mail] "

strSQL = strSQL & "FROM Employees"

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

strSQL = strSQL & "AND ((dipendenti. [ Last Name]) ='"& (lastName) &" "));"

5

Digitare il comando seguente per aprire un Recordset e visualizzare i risultati della query:

Set rst = dbs. OpenRecordset(strSQL)

Debug. Print rst. Fields(0). Valore

Debug. Print rst. Fields(1). Valore

Debug. Print rst. Fields(2). Valore

Debug. Print rst. Fields(3). Valore

6

Digitare il comando seguente per terminare la routine sub:

RST. Chiudere

DBS. Chiudere

End Sub

7

Premere "F5" per eseguire il codice.