Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Začnite tým , že vytvorí nový čiastkové postup , pomocou nasledujúci kód :
Private Sub useVariablesInQuery ( )
2
zadajte nasledujúci kód pre vytvorenie premenné , ktoré budete používať vo vašom dotaze :
Dim strSQL As String Dim
companyName As String
Dim lastName As String
Dim rst ako Recordset
Dim dbs ako databáza
Set DBS = CurrentDb
3
Zadajte nasledujúce definovať hodnoty premenných použitých v dotaze :
firmy = " Matador "
lastName = " Freehafer "
4
Sem nasledujúce vytvoriť dotaz pomocou premenných v predchádzajúcom kroku :
strSQL = " .. SELECT Employees.Company , zamestnancov [ Priezvisko ] , zamestnanci [ Meno ] , "
strSQL = strSQL a " Zamestnanci . [ E - mailová adresa ] "
strSQL = strSQL & " FROM Zamestnanci "
strSQL = strSQL & " WHERE ( ( ( Employees.Company ) = ' " & ( companyName ) & " ' ) "
strSQL = strSQL & " A ( ( Employees. [ Priezvisko ] ) = ' " & ( lastName ) & " " ) ) ; "
5
Zadajte nasledujúci otvoriť sadu záznamov a zobrazenie výsledkov dotazu :
Set rst = dbs.OpenRecordset ( strSQL )
Debug.Print rst.Fields ( 0 ) Hodnota < . br >
Debug.Print rst.Fields ( 1 ) . Hodnota
Debug.Print rst.Fields ( 2 ) . Hodnota
Debug.Print rst.Fields ( 3 ) . Hodnota
6
Zadajte nasledujúci na koniec svojej čiastkové postup :
rst.Close
dbs.Close
End Sub
7
Stlačte " F5 " pre spustenie kódu .