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.