Ako Access VBA dotaz výsledky

Vedieť , ako čítať výsledky dotazu programu Microsoft Access vám môže pomôcť , aby vaše aplikácie Access dynamickejšie . Access je súčasťou balíka Microsoft Office , a to použiť na vytvorenie relačnej databázy . Visual Basic for Applications ( VBA ) možno použiť v programe Access na vytváranie aplikácií pre Windows a načítať dáta z databázy . Otázka je vyrobená s použitím Structured Query Language ( SQL ) vyhlásenie požadovať informácie z databázy . Veci , ktoré budete potrebovať v Microsoft Office Access 2007
Zobraziť ďalšie inštrukcie Cestuj 1

Spustite program Microsoft Office Access 2007 a ​​zvoľte " Prázdna databáza , " kliknite na tlačidlo " Vytvoriť " . Kliknite na " Databázové nástroje " a vyberte " Visual Basic " . Kliknite na " Vložiť " poľa a zvoľte " modul " .

Typu " Private Sub readQueryResults " a stlačte tlačidlo " Enter " pre vytvorenie novej podprogram .
2

Zadajte nasledujúce vyhlásiť , premenné , ktoré budete používať pre čítanie výsledkov dotazu :

Dim RecordSt ako záznamov

Dim dBase ako databáza

Dim stringSQL As String Dim

rCnt As Integer
3

Zadajte nasledujúci vytvoriť " CityTbl " tabuľka :

stringSQL = " CREATE TABLE CityTbl ( Mesto TEXT ( 25 ) , štátny TEXT ( 25 ) ) ; "

DoCmd.RunSQL ( stringSQL )
4

Zadajte nasledujúce pridať dva nové záznamy do " CityTbl " stola :

stringSQL = " INSERT INTO CityTbl ( [ město ] , [ stať ] ) "

stringSQL = stringSQL & " VALUES ( ' Fort Worth " , " Texas " ) ; " Spojené

DoCmd.SetWarnings False

DoCmd.RunSQL ( stringSQL )

stringSQL = " INSERT INTO CityTbl ( [ město ] , [ stať ] ) "

stringSQL = stringSQL & " VALUES ( " Dallas " , " Texas " ) ; " Spojené

DoCmd.SetWarnings False

DoCmd.RunSQL ( stringSQL )
5

Zadajte nasledujúce definovať svoj ​​dotaz a otvorte Recordset :

stringSQL = " SELECT * FROM CityTbl CityTbl ; . "

Set RecordSt = dBase.OpenRecordset ( stringSQL )
6

Zadajte nasledujúci vytvoriť " Pre Loop " a zobrazí vaše otázka vedie cez okno so správou : .

RecordSt.MoveFirst

rCnt = 0 RecordSt.RecordCount

MsgBox ( RecordSt.Fields ( " mesto" ) Hodnota & " , " a RecordSt.Fields ( " štát " ) . Value )

RecordSt.MoveNext

Ďalšie rCnt

Stlačte " F5 " na vykonanie podprogram .

• Predchádzajúca strana: Ako ušetriť VBA dotaz na prístupe 
• Ďalšia strana: Ako spustiť Access otázky v jazyku Visual Basic