Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> Programmazione >> Nozioni di base di Visual Programming >> .

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 possono rendere l'applicazione di accesso più dinamico . In VBA è possibile creare istruzioni SQL che contengono variabili come variabili String 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 spendere tanti costruzione istruzioni SQL volta con criteri di hard-coded. Cose che ti serviranno
Northwind database di
Mostra più istruzioni
1

Inizia con la creazione di una nuova procedura sub utilizzando il seguente codice : Private Sub

useVariablesInQuery ( ) economici 2

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

Dim strSQL As String Dim

companyName Come
String

Dim lastName As String

Dim rst come 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

Tipo l' seguito per creare una query utilizzando le variabili nel passaggio precedente :

strSQL = " . . SELEZIONA Employees.Company , Lavoratori [ Cognome ] , Lavoratori [ Nome ] , "

strSQL = strSQL & " Dipendenti . [E - mail] "

strSQL = strSQL & " FROM Impiegati "

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

strSQL = strSQL & "AND ( ( Employees. [ Cognome ] ) =' " & ( lastName ) & " ')); "
5

Digitare quanto segue per aprire un recordset e di visualizzare i risultati della query :

Set rst = dbs.OpenRecordset ( strSQL )

Debug.Print rst.Fields ( 0 ) Valore < . br>

Debug.Print rst.Fields (1). Valore

Debug.Print rst.Fields (2). Qualità

Debug.Print rst.Fields (3). Valore
6

digitare quanto segue per terminare la procedura di sub :

rst.Close

dbs.Close

End sub ​​

 

Programmazione © www.354353.com