A lekérdezés eredményeinek lekérése az Accessben VBA használatával.
A Microsoft Access-lekérdezések eredményeinek kiolvasásának ismerete segíthet az Access-alkalmazás dinamikusabbá tételében. Az Access a Microsoft Office programcsomag része, és relációs adatbázisok létrehozására szolgál. A Visual Basic for Applications (VBA) az Accessben Windows-alkalmazások létrehozására és adatbázisadatok lekérésére használható. A lekérdezések a Structured Query Language (SQL) utasítások használatával készülnek információk lekéréséhez az adatbázisból.
1. lépés
Indítsa el a Microsoft Office Access 2007 alkalmazást, és válassza az „Üres adatbázis” lehetőséget, majd kattintson a „Létrehozás” gombra. Kattintson az "Adatbáziseszközök" elemre, és válassza a "Visual Basic" lehetőséget. Kattintson a "Beszúrás" mezőre, és válassza a "Modul" lehetőséget.
A nap videója
Írja be a „Private sub readQueryResults” parancsot, és nyomja meg az „Enter” gombot egy új szubrutin létrehozásához.
2. lépés
Írja be a következőket a lekérdezés eredményeinek olvasásához használt változók deklarálásához:
Dim RecordSt As Recordset Dim dBase As Database Dim stringSQL As String Dim rCnt As Integer
3. lépés
A "CityTbl" tábla létrehozásához írja be a következőket:
stringSQL = "CREATE TABLE CityTbl (City TEXT(25), State TEXT(25));" DoCmd. RunSQL (stringSQL)
4. lépés
Írja be a következőket két új rekord hozzáadásához a "CityTbl" táblához:
stringSQL = "INSERT INTO CityTbl ([város], [állam] ) " stringSQL = stringSQL & "VALUES ('Fort Worth', 'Texas');" DoCmd. SetWarnings False DoCmd. RunSQL (stringSQL)
stringSQL = "INSERT INTO CityTbl ([város], [állam] ) " stringSQL = stringSQL & "VALUES ('Dallas', 'Texas');" DoCmd. SetWarnings False DoCmd. RunSQL (stringSQL)
5. lépés
Írja be a következőket a lekérdezés meghatározásához és a rekordkészlet megnyitásához:
stringSQL = "Válasszon CityTbl.* FROM CityTbl;" Állítsa be a RecordSt = dBase értéket. OpenRecordset (stringSQL)
6. lépés
Írja be a következőket a "For Loop" létrehozásához és a lekérdezés eredményeinek üzenetmezőben történő megjelenítéséhez:
RecordSt. MoveFirst For rCnt = 0 To RecordSt. RecordCount MsgBox (RecordSt. Fields("Város").Érték & ", " & RecordSt. Fields("Állam").Érték) RecordSt. MoveNext Következő rCnt
Nyomja meg az "F5" billentyűt az alprogram végrehajtásához.
