Saper leggere i risultati di una query di Microsoft Access può aiutare a rendere la vostra applicazione di accesso più dinamico . L'accesso è parte della suite di 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 i dati del database . Una query è costruito utilizzando Query Language istruzioni SQL (Structured ) per richiedere informazioni da un database . Cose che ti serviranno
Microsoft Office Access 2007
Mostra più istruzioni
1

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

Tipo "sub readQueryResults privati ​​" e premere " Invio" per creare un nuovo sottoprogramma .
2

digitare quanto segue per dichiarare variabili che si userà per leggere i risultati della query :

Dim RecordSt come Recordset

Dim dBase come database

Dim stringSQL As String Dim

RCNT As Integer
3

digitare quanto segue per creare la tabella " CityTbl " :

stringSQL = " CREATE tABLE CityTbl ( TESTO Città ( 25 ) , TESTO Stato ( 25) ) ; "

DoCmd.RunSQL ( stringSQL ) economici 4

digitare quanto segue per aggiungere due nuovi record al tuo " CityTbl " tavolo :

stringSQL =" INSERT INTO CityTbl ( [ Città ] , [ Stato ] ) "

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

DoCmd.SetWarnings False

DoCmd.RunSQL ( stringSQL ) per

stringSQL = " INSERT INTO CityTbl ( [ Città ] , [ Stato ] ) "

stringSQL = stringSQL & " VALUES ( 'Dallas ', ' Texas '); "

DoCmd.SetWarnings False

DoCmd.RunSQL ( stringSQL ) economici 5

digitare quanto segue per definire la query e aprire il vostro Recordset :
< p > stringSQL = "SELECT * FROM CityTbl CityTbl ; ».

RecordSt = dBase.OpenRecordset ( stringSQL ) economici 6

Digitare quanto segue per creare un " ciclo For " e visualizzare il proprio i risultati delle query attraverso una finestra di messaggio :

RecordSt.MoveFirst

RCNT = 0 Per RecordSt.RecordCount

MsgBox ( RecordSt.Fields ( " City" ) Value & " . , "& RecordSt.Fields ( " Stato " ) . Valore ) per

RecordSt.MoveNext

Avanti RCNT

Premere" F5 "per eseguire la subroutine .