Izgūstiet vaicājuma rezultātus programmā Access, izmantojot VBA.
Zinot, kā nolasīt Microsoft Access vaicājuma rezultātus, jūs varat padarīt savu Access lietojumprogrammu dinamiskāku. Access ir daļa no Microsoft Office komplekta, un to izmanto, lai izveidotu relāciju datu bāzes. Visual Basic for Applications (VBA) var izmantot programmā Access, lai izveidotu Windows lietojumprogrammas un izgūtu datu bāzes datus. Vaicājums tiek veidots, izmantojot strukturētās vaicājumu valodas (SQL) priekšrakstus, lai pieprasītu informāciju no datu bāzes.
1. darbība
Palaidiet Microsoft Office Access 2007 un atlasiet "Tukša datu bāze", pēc tam noklikšķiniet uz "Izveidot". Noklikšķiniet uz "Datubāzes rīki" un atlasiet "Visual Basic". Noklikšķiniet uz lauka "Ievietot" un atlasiet "Modulis".
Dienas video
Ierakstiet "Private sub readQueryResults" un nospiediet "Enter", lai izveidotu jaunu apakšprogrammu.
2. darbība
Ierakstiet šo, lai deklarētu mainīgos, ko izmantosit vaicājuma rezultātu lasīšanai:
Dim RecordSt kā ierakstu kopa Dim dBase kā datu bāze Dim stringSQL kā virkne Dim rCnt kā vesels skaitlis
3. darbība
Ierakstiet šo, lai izveidotu tabulu "CityTbl".
stringSQL = "IZVEIDOT TABULU CityTbl (Pilsētas TEKSTS(25), Valsts TEKSTS(25));" DoCmd. RunSQL (stringSQL)
4. darbība
Ierakstiet šo, lai pievienotu divus jaunus ierakstus savai "CityTbl" tabulai:
stringSQL = "INSERT INTO CityTbl ([pilsēta], [štats] ) " stringSQL = stringSQL & "VALUES ('Fort Worth', 'Teksasa');" DoCmd. SetWarnings False DoCmd. RunSQL (stringSQL)
stringSQL = "INSERT INTO CityTbl ([pilsēta], [štats] ) " stringSQL = stringSQL & "VALUES ('Dallas', 'Teksasa');" DoCmd. SetWarnings False DoCmd. RunSQL (stringSQL)
5. darbība
Ierakstiet šo, lai definētu vaicājumu un atvērtu ierakstu kopu:
stringSQL = "SELECT CityTbl.* FROM CityTbl;" Iestatiet RecordSt = dBase. OpenRecordset (stringSQL)
6. darbība
Ierakstiet šo, lai izveidotu "For Loop" un parādītu vaicājuma rezultātus, izmantojot ziņojumu lodziņu:
RecordSt. MoveFirst For rCnt = 0 uz RecordSt. RecordCount MsgBox (RecordSt. Fields("Pilsēta").Vērtība & ", " & RecordSt. Fields("State").Value) RecordSt. MoveNext Nākamais rCnt
Nospiediet "F5", lai izpildītu apakšprogrammu.
