Prístup : VBA Spustiť otázku

Microsoft Access je súčasťou balíka Microsoft Office . Pomocou tohto softvéru môžete vytvoriť jednotlivé databázy , zostavy a formuláre . Prístup umožňuje vytvárať vlastné aplikácie pomocou týchto komponentov . Ak chcete pridať ešte ďalšie funkcie pre vaše aplikácie alebo databázy , môžete naprogramovať úlohy v jazyku Visual Basic for Applications ( VBA ) . VBA je štandardný jazyk vývoja spoločnosti Microsoft pre produkty balíka Office . Jazyk vychádza z jazyka Visual Basic 6.0 a používa podobnú syntax . Jednou z mnohých vecí , ktoré môžete robiť s týmto jazykom je spúšťať dotazy na vaše dáta . Pokyny dovolená 1

Spustenie dotazu a dať svoje výsledky do sady záznamov pre manipuláciu . Skopírujte a vložte nižšie uvedený kód VBA načítať dáta z vášho dotazu .

Dim dbMyDatabase Ako DAO.Database

Dim rsMyRecords Ako DAO.Recordset

Set dbMyDatabase = CurrentDb

Nastaviť rsMyRecords = dbMyDatabase.OpenRecordset ( " MyQuery " )
2

Spustenie dotazu sa vstupných parametrov pomocou objektu definícia dotazu a potom nahrať svoje výsledky do záznamu nastaviť pomocou príkladu kódu nižšie .

Dim dbMyDatabase Ako DAO.Database

Dim rsMyRecords Ako DAO.Recordset

Dim qdMyParameters Ako DAO.QueryDef

Set dbMyDatabase = CurrentDb

Nastaviť qdMyParameters = dbMyDatabase.QueryDefs ( " MyQuery " )

qdMyParameters.Parameters ( " MyParameter " ) = " hodnota "

Set rsMyRecords = qdMyParameters.OpenRecordset ( )

3

Loop through každého záznamu sa vrátil a vykonať nejakú akciu . Nižšie uvedený príklad je jeden spôsob , ako to urobiť

robiť , keď nie je rsMyRecords.EOF

Debug.Print " obsah môjho stĺpika : " . ! A rsMyRecords [ MyColumnName ]

rsMyRecords.MoveNext

Loop
4

Execute SQL dotazu namiesto dotazu s názvom Access a dať svoje výsledky do sady záznamov pre manipuláciu . Skopírujte a vložte kód VBA nižšie .

Dim dbMyDatabase Ako DAO.Database

Dim rsMyRecords Ako DAO.Recordset

Dim strQuery As String

strQuery = " SELECT * FROM MojeTabulka "

Set dbMyDatabase = CurrentDb

Set rsMyRecords = dbMyDatabase.OpenRecordset ( strQuery )
5

Spustiť príkaz , ktorý nevracia žiadne záznamy pomocou tohto kódu VBA . Aktualizácie a odstrániť príkazy sú príklady príkazov , ktoré nevracia žiadne záznamy .

CurrentDb.Execute " MyQueryName "

• Predchádzajúca strana: Ako vypočítať čas vo VB6 
• Ďalšia strana: Popis jazyka