Kaip pasiekti VBA užklausos rezultatus

...

Gaukite užklausos rezultatus programoje Access naudodami VBA.

Žinodami, kaip nuskaityti „Microsoft Access“ užklausos rezultatus, galite padaryti „Access“ programą dinamiškesnę. „Access“ yra „Microsoft Office“ rinkinio dalis ir naudojama reliacinėms duomenų bazėms kurti. „Visual Basic for Applications“ (VBA) gali būti naudojamas programoje „Access“, kuriant „Windows“ programas ir nuskaityti duomenų bazės duomenis. Užklausa kuriama naudojant struktūrinės užklausos kalbos (SQL) sakinius, kad būtų galima gauti informacijos iš duomenų bazės.

1 žingsnis

Paleiskite „Microsoft Office Access 2007“ ir pasirinkite „Tuščia duomenų bazė“, tada spustelėkite „Sukurti“. Spustelėkite „Duomenų bazės įrankiai“ ir pasirinkite „Visual Basic“. Spustelėkite lauką „Įterpti“ ir pasirinkite „Modulis“.

Dienos vaizdo įrašas

Įveskite „Private sub readQueryResults“ ir paspauskite „Enter“, kad sukurtumėte naują paprogramę.

2 žingsnis

Norėdami deklaruoti kintamuosius, kuriuos naudosite skaitydami užklausos rezultatus, įveskite:

Dim RecordSt kaip įrašų rinkinys Dim dBase kaip duomenų bazė Dim stringSQL kaip eilutė Dim rCnt kaip sveikasis skaičius

3 veiksmas

Norėdami sukurti „CityTbl“ lentelę, įveskite:

stringSQL = "KURTI LENTELĘ CityTbl (Miesto TEKSTAS(25), Būsena TEKSTAS(25));" DoCmd. RunSQL (stringSQL)

4 veiksmas

Norėdami pridėti du naujus įrašus į lentelę „CityTbl“, įveskite:

stringSQL = "INSERT INTO CityTbl ([Miestas], [valstybė] ) " stringSQL = stringSQL & "VALUES ("Fort Worth", "Teksasas");" DoCmd. SetWarnings False DoCmd. RunSQL (stringSQL)

stringSQL = "ĮTERPTI Į CityTbl ([Miestas], [valstybė] ) " stringSQL = stringSQL & "VERTĖS ('Dallas', "Teksasas");" DoCmd. SetWarnings False DoCmd. RunSQL (stringSQL)

5 veiksmas

Norėdami apibrėžti užklausą ir atidaryti įrašų rinkinį, įveskite:

stringSQL = "SELECT CityTbl.* FROM CityTbl;" Nustatykite RecordSt = dBase. OpenRecordset (stringSQL)

6 veiksmas

Įveskite toliau pateiktą informaciją, kad sukurtumėte „For Loop“ ir pranešimo laukelyje būtų rodomi užklausos rezultatai:

RecordSt. MoveFirst For rCnt = 0 To RecordSt. RecordCount MsgBox (RecordSt. Fields("Miestas").Value & ", " & RecordSt. Fields("Būsena").Value) RecordSt. MoveNext Kitas rCnt

Paspauskite „F5“, kad paleistumėte paprogramę.