Ako sa k prístupu a spustiť výberový dotaz v jazyku VBA

Microsoft Office Access umožňuje programátorom používať Visual Basic for Applications ( VBA ) pre vytváranie aplikácií v programe Access . VBA je programovací jazyk použiť na automatizáciu rutinných úloh v aplikáciách Microsoft Office . Access je relačný databázový systém sa bežne používa pre menšie databázy . Výberový dotaz slúži na načítanie dát z databázovej tabuľky . Záznamov sa používa na čítanie obsahu vrátenej výberového dotazu. V niekoľkých krokoch môžete písať kód VBA k vytvoreniu tabuľky a zobraziť jeho obsah pomocou výberového dotazu. Návod dovolená 1

Otvorte program Microsoft Office Access , kliknite na tlačidlo " Prázdna databáza " a vyberte " Vytvoriť " . Kliknite na tlačidlo " Databázové nástroje " , potom vyberte " Visual Basic " , otvorte Visual Basic okno Microsoft . Kliknite na " Vložiť " poľa a vyberte
2

Skopírujte a vložte nasledujúci kód do vášho nového modulu " modul " . :

Private Sub runSelectQuery ( )

Dim db Ako databáza

Dim rcrdSet Ako Recordset

Dim strSQL As String Dim

Xcntr As Integer

Set db = CurrentDb

strSQL = " CREATE TABLE selectQueryData ( NumField číslo , nájomca tEXT , Apt znení ) ; "

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO selectQueryData ( NumField , nájomca , Apt ) "

strSQL = strSQL & " VALUES ( 1 , ' John ' , '' ) ; " Spojené

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO selectQueryData ( NumField , nájomca , Apt ) "

strSQL = strSQL a " VALUES ( 2 ​​, ' Susie ' , ' B ' ) ; "

DoCmd . NastavitVarování False

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO selectQueryData ( NumField , nájomca , Apt ) "

strSQL = strSQL a " VALUES ( 3 , ' luis " , " C " ) . "

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL )

strSQL = " Vyberte selectQueryData * od selectQueryData "

strSQL = strSQL & "where selectQueryData.Tenant = ' Luis ' , "

Set rcrdSet = db.OpenRecordset ( strSQL )

rcrdSet.MoveLast

rcrdSet . MoveFirst

Xcntr = 0 To rcrdSet.RecordCount - 1

MsgBox " nájomca " a rcrdSet.Fields ( " nájomca " ) Value & " , žije v apt : " & _ < . br >

rcrdSet.Fields ( " Apt " ) . Hodnota

rcrdSet.MoveNext

Ďalšie Xcntr

rcrdSet.Close

db.Close

End Sub
3

Stlačte " F5 " spustiť podprogram . Program vytvorí tabuľku , vložiť dáta do tabuľky a pomocou výberového dotazu na zobrazenie dát pre konkrétny riadok .

• Predchádzajúca strana: Ako nainštalovať tlačiarne s VBScript 
• Ďalšia strana: Ako Návrat na Form1 z formulář2 v jazyku Visual Basic