VBA abil saate Accessis päringutulemusi hankida.
Microsoft Accessi päringu tulemuste lugemise teadmine võib aidata teil muuta oma Accessi rakenduse dünaamilisemaks. Access on osa Microsoft Office'i komplektist ja seda kasutatakse relatsiooniandmebaaside loomiseks. Visual Basic for Applications (VBA) saab Accessis kasutada Windowsi rakenduste loomiseks ja andmebaasiandmete toomiseks. Päring koostatakse struktureeritud päringukeele (SQL) lausete abil, et küsida andmebaasist teavet.
Samm 1
Käivitage Microsoft Office Access 2007 ja valige "Blank Database", seejärel klõpsake "Loo". Klõpsake "Andmebaasitööriistad" ja valige "Visual Basic". Klõpsake väljal "Lisa" ja valige "Moodul".
Päeva video
Tippige "Private sub readQueryResults" ja vajutage uue alamprogrammi loomiseks "Enter".
2. samm
Päringutulemuste lugemiseks kasutatavate muutujate deklareerimiseks sisestage järgmine:
Dim RecordSt as Recordset Dim dBase as Database Dim stringSQL stringina Dim rCnt täisarvuna
3. samm
Tabeli "CityTbl" loomiseks tippige järgmine:
stringSQL = "LOO TABEL CityTbl (Linna TEKST(25), Olek TEKST(25));" DoCmd. RunSQL (stringSQL)
4. samm
Sisestage järgmine tekst, et lisada tabelisse "CityTbl" kaks uut kirjet:
stringSQL = "INSERT INTO CityTbl ([linn], [osariik] ) " stringSQL = stringSQL & "VALUES ('Fort Worth', 'Texas');" DoCmd. SetWarnings False DoCmd. RunSQL (stringSQL)
stringSQL = "INSERT INTO CityTbl ([linn], [osariik] ) " stringSQL = stringSQL & "VALUES ('Dallas', 'Texas');" DoCmd. SetWarnings False DoCmd. RunSQL (stringSQL)
5. samm
Päringu määratlemiseks ja kirjekomplekti avamiseks tippige järgmine:
stringSQL = "SELECT CityTbl.* FROM CityTbl;" Määra RecordSt = dBase. OpenRecordset (stringSQL)
6. samm
"For Loop" loomiseks ja päringu tulemuste kuvamiseks sõnumikasti kaudu tippige järgmine:
RecordSt. MoveFirst For rCnt = 0 To RecordSt. RecordCount MsgBox (RecordSt. Fields("Linn").Väärtus & ", " & RecordSt. Fields("Olek").Väärtus) RecordSt. MoveNext Järgmine rCnt
Alamprogrammi käivitamiseks vajutage "F5".
