Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky

Domáce Hardware Siete Programovanie Softvér Otázka Systémy

Ako používať premenné v Access VBA otázku

Otázky sú mocným nástrojom v aplikácii Microsoft Access načítať informácie z databázovej tabuľky a majú vedomosti o tom , ako používať premenné v dotazoch môže vaše aplikácie Access dynamickejšie . Vo VBA môžete vytvárať príkazy SQL , ktoré obsahujú premenné , ako je String premennej načítať dáta . Akonáhle budete stavať svoj ​​príkaz SQL , potom môžete použiť na objekte Recordset načítať výsledky dotazu. Užívateľské premenné namiesto trávenia času budovanie veľa príkazov SQL s hard - kódované kritérií . Veci , ktoré budete potrebovať
databáze Northwind
Zobraziť ďalšie inštrukcie Cestuj 1

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 .

Najnovšie články

Copyright © počítačové znalosti Všetky práva vyhradené