Hae kyselytulokset Accessista VBA: n avulla.
Kun osaat lukea Microsoft Access -kyselyn tulokset, voit tehdä Access-sovelluksestasi dynaamisemman. Access on osa Microsoft Office -pakettia ja sitä käytetään relaatiotietokantojen luomiseen. Visual Basic for Applications (VBA) -ohjelmistoa voidaan käyttää Accessissa Windows-sovellusten luomiseen ja tietokantatietojen hakemiseen. Kysely rakennetaan Structured Query Language (SQL) -käskyjen avulla tietojen pyytämiseksi tietokannasta.
Vaihe 1
Käynnistä Microsoft Office Access 2007 ja valitse "Tyhjä tietokanta" ja napsauta sitten "Luo". Napsauta "Tietokantatyökalut" ja valitse "Visual Basic". Napsauta "Lisää" -kenttää ja valitse "Moduuli".
Päivän video
Kirjoita "Private sub readQueryResults" ja paina "Enter" luodaksesi uuden aliohjelman.
Vaihe 2
Kirjoita seuraava ilmoittaaksesi muuttujat, joita käytät kyselyn tulosten lukemiseen:
Dim RecordSt tietuejoukona Dim dBase tietokantana Dim stringSQL merkkijonona Dim rCnt kokonaislukuna
Vaihe 3
Luo "CityTbl" -taulukko kirjoittamalla seuraava:
stringSQL = "LUO TABLE CityTbl (Kaupunkiteksti(25), Tila TEKSTI(25));" DoCmd. RunSQL (stringSQL)
Vaihe 4
Kirjoita seuraava lisätäksesi kaksi uutta tietuetta "CityTbl"-taulukkoon:
stringSQL = "LISÄÄ CityTbl ([Kaupunki], [osavaltio] ) " stringSQL = stringSQL & "ARVOT ('Fort Worth', 'Texas');" DoCmd. SetWarnings False DoCmd. RunSQL (stringSQL)
stringSQL = "LISÄÄ CityTbl ([Kaupunki], [osavaltio] ) " stringSQL = stringSQL & "ARVOT ('Dallas', 'Texas');" DoCmd. SetWarnings False DoCmd. RunSQL (stringSQL)
Vaihe 5
Kirjoita kyselysi ja avaa tietuesarjasi:
stringSQL = "SELECT CityTbl.* FROM CityTbl;" Aseta RecordSt = dBase. OpenRecordset (stringSQL)
Vaihe 6
Kirjoita seuraava luodaksesi "For Loop" ja näyttää kyselyn tulokset viestiruudun kautta:
RecordSt. MoveFirst For rCnt = 0 To RecordSt. RecordCount MsgBox (RecordSt. Fields("Kaupunki").Arvo & ", " & RecordSt. Fields("State").Arvo) RecordSt. MoveNext Next rCnt
Paina "F5" suorittaaksesi aliohjelman.
