Come accedere ai risultati delle query VBA

Sapere come leggere i risultati di una query di Microsoft Access può aiutarti a rendere più dinamica la tua applicazione Access. Access fa parte della suite Microsoft Office e viene utilizzato per creare database relazionali. Visual Basic, Applications Edition (VBA) può essere utilizzato in Access per creare applicazioni Windows e recuperare dati di database. Una query viene creata utilizzando istruzioni SQL (Structured Query Language) per richiedere informazioni da un database.

Passaggio 1

Avvia Microsoft Office Access 2007 e seleziona "Database vuoto", quindi fai clic su "Crea". Fare clic su "Strumenti database" e selezionare "Visual Basic". Fare clic sul campo "Inserisci" e selezionare "Modulo".

Digita "Private sub readQueryResults" e premi "Invio" per creare una nuova subroutine.

Passaggio 2

Digita quanto segue per dichiarare le variabili che utilizzerai per leggere i risultati della query:

Dim RecordSt As Recordset Dim dBase As Database Dim stringSQL As String Dim rCnt As Integer

Passaggio 3

Digita quanto segue per creare la tabella "CityTbl":

stringSQL ="CREA TABELLA CityTbl (Città TESTO(25), Stato TESTO(25));" DoCmd.RunSQL (stringSQL)

Passaggio 4

Digita quanto segue per aggiungere due nuovi record alla tabella "CityTbl":

stringSQL ="INSERT INTO CityTbl ([City], [Stato] ) " stringSQL =stringSQL &"VALUES ('Fort Worth', 'Texas');" DoCmd.SetWarnings Falso DoCmd.RunSQL (stringSQL)

stringSQL ="INSERT INTO CityTbl ([City], [Stato] ) " stringSQL =stringSQL &"VALUES ('Dallas', 'Texas');" DoCmd.SetWarnings Falso DoCmd.RunSQL (stringSQL)

Passaggio 5

Digita quanto segue per definire la tua query e aprire il tuo Recordset:

stringSQL ="SELEZIONA Tbl città.* DA Tbl città;" Imposta RecordSt =dBase.OpenRecordset(stringSQL)

Passaggio 6

Digita quanto segue per creare un "Ciclo For" e visualizzare i risultati della query tramite una finestra di messaggio:

RecordSt.MoveFirst For rCnt =0 A RecordSt.RecordCount MsgBox (RecordSt.Fields ("Città"). Valore &", " &RecordSt.Fields ("Stato"). Valore) RecordSt.MoveNext Avanti rCnt

Premere "F5" per eseguire il sottoprogramma.