Komma åt VBA frågeresultat

Att veta hur man läser resultaten från en Microsoft Access-frågan kan hjälpa dig att göra din Access applikation mer dynamiskt . Access är en del av Microsoft Office-paketet och det används för att skapa relationsdatabaser . Visual Basic for Applications ( VBA ) kan användas i Access för att skapa Windows-program och hämta databas data . En fråga är byggd med hjälp av Structured Query Language ( SQL ) uttalanden att begära information från en databas . Saker du behöver
Microsoft Office Access 2007
Visa fler instruktioner
1

Starta Microsoft Office Access 2007 och välj " Tom databas , " klicka sedan på " Skapa ". Klicka på " Databas Verktyg " och välj " Visual Basic . " Klicka på " Infoga "-fältet och välj " modul " .

Typ " Private Sub readQueryResults " och tryck på " Enter " för att skapa en ny subrutin .
2

Skriv följande för att förklara variabler som du använder för att läsa frågeresultat :

Dim RecordSt som Recordset

Dim dBase som databas

Dim stringSQL As String

Dim rCnt As Integer Addera 3

Skriv följande för att skapa den " CityTbl " table :

stringSQL = " CREATE tABLE CityTbl (City TEXT ( 25 ) , statligt TEXT ( 25 ) ) ; "

DoCmd.RunSQL ( stringSQL )
4

Skriv följande för att lägga till två nya poster till din " CityTbl " table :

stringSQL = " INSERT INTO CityTbl ( [ City] , [ State ] ) "

stringSQL = stringSQL & " VALUES ( ' Fort Worth ' , ' Texas ' ) ; "

DoCmd.SetWarnings False

DoCmd.RunSQL ( stringSQL ) katalog

stringSQL = " INSERT INTO CityTbl ( [ City] , [ stat ] ) "

stringSQL = stringSQL & " VALUES ( ' Dallas ' , ' Texas ' ) ; "

DoCmd.SetWarnings False

DoCmd.RunSQL ( stringSQL )
5

Skriv följande för att definiera din fråga och öppna ditt Recordset :

stringSQL = " SELECT CityTbl * FROM CityTbl , . "

Set RecordSt = dBase.OpenRecordset ( stringSQL )
6

Skriv följande för att skapa en " för loop " och visa din frågeresultat genom en meddelanderuta :

RecordSt.MoveFirst

För rCnt = 0 att RecordSt.RecordCount

MsgBox ( RecordSt.Fields ( " City" ) Value & " . , " & RecordSt.Fields ( " staten " ) . Value ) katalog

RecordSt.MoveNext

Nästa rCnt

Tryck " F5 " för att köra subrutinen .

Addera