Pridobite rezultate poizvedbe v Accessu z uporabo VBA.
Poznavanje branja rezultatov poizvedbe Microsoft Access vam lahko pomaga narediti vašo aplikacijo Access bolj dinamično. Access je del zbirke Microsoft Office in se uporablja za ustvarjanje relacijskih baz podatkov. Visual Basic za aplikacije (VBA) se lahko uporablja v Accessu za ustvarjanje aplikacij Windows in pridobivanje podatkov baze podatkov. Poizvedba je zgrajena z uporabo stavkov strukturiranega jezika poizvedb (SQL) za zahtevo po informacijah iz baze podatkov.
Korak 1
Zaženite Microsoft Office Access 2007 in izberite »Prazna zbirka podatkov«, nato kliknite »Ustvari«. Kliknite »Orodja za bazo podatkov« in izberite »Visual Basic«. Kliknite polje »Vstavi« in izberite »Modul«.
Video dneva
Vnesite "Private sub readQueryResults" in pritisnite "Enter", da ustvarite nov podprogram.
2. korak
Vnesite naslednje, da razglasite spremenljivke, ki jih boste uporabili za branje rezultatov poizvedbe:
Dim RecordSt As Recordset Dim dBase As Database Dim stringSQL As String Dim rCnt As Integer
3. korak
Vnesite naslednje, da ustvarite tabelo "CityTbl":
stringSQL = "USTVARI TABELE CityTbl (BESEDILO mesta (25), BESEDILO stanja (25));" DoCmd. RunSQL (stringSQL)
4. korak
Vnesite naslednje, da dodate dva nova zapisa v svojo tabelo "CityTbl":
stringSQL = "VSTAVI V CityTbl ([Mesto], [država] ) " stringSQL = stringSQL & "VREDNOSTI ('Fort Worth', 'Texas');" DoCmd. SetWarnings False DoCmd. RunSQL (stringSQL)
stringSQL = "VSTAVI V CityTbl ([Mesto], [država] ) " stringSQL = stringSQL & "VREDNOSTI ('Dallas', 'Texas');" DoCmd. SetWarnings False DoCmd. RunSQL (stringSQL)
5. korak
Vnesite naslednje, da definirate svojo poizvedbo in odprete nabor zapisov:
stringSQL = "IZBERI CityTbl.* IZ CityTbl;" Nastavite RecordSt = dBase. OpenRecordset (stringSQL)
6. korak
Vnesite naslednje, da ustvarite "Zanko" in prikažete rezultate poizvedbe v polju za sporočilo:
RecordSt. MoveFirst Za rCnt = 0 Za RecordSt. RecordCount MsgBox (RecordSt. Fields("City").Value & ", " & RecordSt. Fields("State").Value) RecordSt. MoveNext Next rCnt
Pritisnite "F5", da izvedete podprogram.
