Dohvatite rezultate upita u Accessu pomoću VBA.
Poznavanje čitanja rezultata iz upita za Microsoft Access može vam pomoći da svoju Access aplikaciju učinite dinamičnijom. Access je dio Microsoft Office paketa i koristi se za stvaranje relacijskih baza podataka. Visual Basic za aplikacije (VBA) može se koristiti u Accessu za izradu Windows aplikacija i dohvaćanje podataka baze podataka. Upit je izgrađen pomoću izraza jezika strukturiranih upita (SQL) za traženje informacija iz baze podataka.
Korak 1
Pokrenite Microsoft Office Access 2007 i odaberite "Prazna baza podataka", a zatim kliknite "Kreiraj". Kliknite "Alati baze podataka" i odaberite "Visual Basic". Kliknite polje "Insert" i odaberite "Module".
Video dana
Upišite "Private sub readQueryResults" i pritisnite "Enter" za stvaranje novog potprograma.
Korak 2
Upišite sljedeće da biste deklarirali varijable koje ćete koristiti za čitanje rezultata upita:
Dim RecordSt As Recordset Dim dBase As Database Dim stringSQL As String Dim rCnt As Integer
Korak 3
Upišite sljedeće da biste stvorili tablicu "CityTbl":
stringSQL = "KREIRAJ TABLICU CityTbl (TEKST grada (25), TEKST države (25));" DoCmd. RunSQL (stringSQL)
4. korak
Upišite sljedeće da dodate dva nova zapisa u svoju tablicu "CityTbl":
stringSQL = "INSERT INTO CityTbl ([Grad], [Država] ) " stringSQL = stringSQL & "VRIJEDNOSTI ('Fort Worth', 'Texas');" DoCmd. SetWarnings False DoCmd. RunSQL (stringSQL)
stringSQL = "INSERT INTO CityTbl ([Grad], [Država] ) " stringSQL = stringSQL & "VRIJEDNOSTI ('Dallas', 'Texas');" DoCmd. SetWarnings False DoCmd. RunSQL (stringSQL)
Korak 5
Upišite sljedeće da definirate svoj upit i otvorite svoj Recordset:
stringSQL = "ODABIR CityTbl.* IZ CityTbl;" Postavite RecordSt = dBase. OpenRecordset (stringSQL)
Korak 6
Upišite sljedeće da biste stvorili "Za petlju" i prikazali rezultate upita u okviru za poruku:
RecordSt. MoveFirst za rCnt = 0 Za snimanje St. RecordCount MsgBox (RecordSt. Fields("Grad").Vrijednost & ", " & RecordSt. Fields("State").Value) RecordSt. MoveNext Next rCnt
Pritisnite "F5" da izvršite potprogram.
