Kako pristupiti rezultatima VBA upita

Znanje kako čitati rezultate iz Microsoft Access upita može vam pomoći da svoju Access aplikaciju učinite dinamičnijom. Access je dio paketa Microsoft Office i koristi se za stvaranje relacijskih baza podataka. Visual Basic za aplikacije (VBA) može se koristiti u programu Access za stvaranje Windows aplikacija i dohvaćanje podataka baze podataka. Upit se izrađuje korištenjem naredbi Structured Query Language (SQL) za traženje informacija iz baze podataka.

1. korak

Pokrenite Microsoft Office Access 2007 i odaberite "Prazna baza podataka", zatim kliknite "Stvori". Kliknite "Alati baze podataka" i odaberite "Visual Basic". Pritisnite polje "Umetni" i odaberite "Modul".

Upišite "Private sub readQueryResults" i pritisnite "Enter" za stvaranje nove podrutine.

2. korak

Upišite sljedeće za deklaraciju varijabli koje ćete koristiti za čitanje rezultata upita:

Dim RecordSt As Recordset Dim dBase As Database Dim stringSQL As String Dim rCnt As Integer

3. korak

Upišite sljedeće za izradu tablice "CityTbl":

stringSQL ="CREATE TABLE CityTbl (Grad TEXT(25), State TEXT(25));" DoCmd.RunSQL (stringSQL)

4. korak

Upišite sljedeće kako biste dodali dva nova zapisa u svoju tablicu "CityTbl":

stringSQL ="INSERT INTO CityTbl ([Grad], [Država] ) " stringSQL =stringSQL &"VRIJEDNOSTI ('Fort Worth', 'Teksas');" DoCmd.SetWarnings False DoCmd.RunSQL (stringSQL)

stringSQL ="INSERT INTO CityTbl ([Grad], [Država] ) " stringSQL =stringSQL &"VRIJEDNOSTI ('Dallas', 'Teksas');" DoCmd.SetWarnings False DoCmd.RunSQL (stringSQL)

Korak 5

Upišite sljedeće kako biste definirali svoj upit i otvorili skup zapisa:

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

Korak 6

Upišite sljedeće kako biste stvorili "petlju za" i prikazali rezultate upita u okviru s porukom:

RecordSt.MoveFirst For rCnt =0 To RecordSt.RecordCount MsgBox (RecordSt.Fields("City").Value &", " &RecordSt.Fields("State").Value) RecordSt.MoveNext Next rCnt

Pritisnite "F5" da biste izvršili potprogram.