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 :
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 .
Programmazione © www.354353.com