Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte databázu Northwind a kliknite na " Databázové nástroje " kartu . . Kliknite na " Visual Basic " , otvorte Basic Editor Window jazyka
2
Začnite zadaním nasledujúci kód vytvoriť novú čiastkové proces :
Private Sub readQueryValue ( )
Sims 3
skopírujte a vložte nasledujúci kód jazyka VBA deklarovať premenné použiť na čítanie dotazu :
Dim nwDBS ako databáza
Dim nwRST ako Recordset
Dim nwSQL As String
Set nwDBS = CurrentDb
4
Vytvoriť SQL dotazu zadaním nasledujúci kód : .
nwSQL = " SELECT zamestnanca [ Posledná meno ] , zamestnanci [ Meno ] "
nwSQL = nwSQL & " FROM zamestnanci ; "
5
Otvorenie novej Recordset pomocou SQL dotazu vytvorili v predchádzajúcom kroku . :
Set nwRST = nwDBS.OpenRecordset ( nwSQL )
6
Presuňte Recordset prvom rade výsledkov dotazu a potom sa presunúť Recordset dopredu dvakrát čítať " Priezvisko " na treťom riadku zadaním nasledujúci kód :
nwRST.MoveFirst
nwRST.MoveNext
nwRST.MoveNext
Debug.Print nwRST.Fields . ( " [ Priezvisko ] " ) Hodnota
7
ukončite postup zadaním nasledujúci kód :
nwRST.Close
nwDBS.Close klipart
End Sub
8
Stlačením tlačidla " Ctrl " a " G " sa otvorí okno Immediate . Stlačením tlačidla " F5 " na spustenie procedúry a zobrazenie výsledkov do okna Immediate .
Copyright © počítačové znalosti Všetky práva vyhradené