Microsoft Access è una parte della suite Microsoft Office . Usando questo software , è possibile creare i singoli database, report e moduli . L'accesso consente di creare le proprie applicazioni utilizzando questi componenti. Per aggiungere ancora più funzionalità alle applicazioni o database , è possibile programmare le attività in Visual Basic, Applications Edition (VBA ) . VBA è il linguaggio di sviluppo standard di Microsoft per i prodotti Office . Il linguaggio è basato fuori di Visual Basic 6.0 e utilizza una sintassi simile . Una delle tante cose che puoi fare con questo linguaggio è l'esecuzione di query sui dati. Istruzioni
1

Eseguire una query e mettere i risultati in un set di record per la manipolazione . Copia e incolla il codice VBA di seguito per caricare i dati dalla query .

Dim dbMyDatabase Come DAO.Database

Dim rsMyRecords Come DAO.Recordset

dbMyDatabase = CurrentDb

rsMyRecords = dbMyDatabase.OpenRecordset ( " myQuery " ) economici 2

Eseguire una query con parametri di input utilizzando un oggetto di definizione della query e quindi caricare i suoi risultati in un set di record utilizzando il codice di esempio qui di seguito.

Dim dbMyDatabase Come DAO.Database

Dim rsMyRecords Come dao.recordset

Dim qdMyParameters Come DAO.QueryDef

dbMyDatabase = CurrentDb < br >

qdMyParameters = dbMyDatabase.QueryDefs ( " myQuery " )

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

rsMyRecords = qdMyParameters.OpenRecordset ( ) per
3

loop attraverso ogni record restituito e di eseguire un'azione . L'esempio che segue è un modo per fare questo

Do While Not rsMyRecords.EOF

Debug.Print " Il contenuto del mio articolo : " . ! & RsMyRecords [ MyColumnName ]
< p > rsMyRecords.MoveNext

loop
4

eseguire una query SQL invece di una query di Access di nome e mettere i suoi risultati in un set di record per la manipolazione . Copia e incolla il codice VBA di seguito .

Dim dbMyDatabase Come DAO.Database

Dim rsMyRecords Come DAO.Recordset

Dim strQuery As String

strQuery = " SELECT * FROM MyTable "

dbMyDatabase = CurrentDb

rsMyRecords = dbMyDatabase.OpenRecordset ( strQuery ) economici 5

eseguire un comando che non restituisce alcun record utilizzando questo codice VBA . Aggiornare e cancellare i comandi sono esempi di istruzioni che non restituiscono alcun record .

CurrentDb.Execute " MyQueryName "