At vide hvordan man læser resultaterne fra en Microsoft Access forespørgsel kan hjælpe dig med at gøre din Access-program mere dynamisk. Access er en del af Microsoft Office-pakken , og det bruges til at skabe relationsdatabaser . Visual Basic for Applications ( VBA ), kan bruges i Access til at oprette Windows-programmer og hente database data . En forespørgsel er bygget ved hjælp Structured Query Language (SQL ) erklæringer for at anmode om oplysninger fra en database. Ting du skal
Microsoft Office Access 2007
Vis Flere Instruktioner
1

Start Microsoft Office Access 2007 og vælg " Tom database " og derefter klikke på "Opret ". Klik på " Database Tools" og vælg " Visual Basic ". Klik på "Indsæt "-feltet og vælg " Modul " .

Type "Private sub readQueryResults " og tryk " Enter" for at oprette en ny subrutine .
2

Skriv følgende at erklære variabler, du vil bruge til at læse forespørgslen resultater :

Dim RecordSt Som Recordset

Dim dBase Som Database

Dim stringSQL As String

Dim rCnt As Integer
3

Skriv følgende for at skabe den " CityTbl " table : Hej

stringSQL = " CREATE TABLE CityTbl (By TEXT ( 25) , State TEXT ( 25) ) ; "

DoCmd.RunSQL ( stringSQL )
4

Skriv følgende for at tilføje to nye poster til din" CityTbl " table : Hej

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

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

DoCmd.SetWarnings False

DoCmd.RunSQL ( stringSQL )

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

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

DoCmd.SetWarnings False

DoCmd.RunSQL ( stringSQL )
5

skrive følgende for at definere din forespørgsel og åbne din Recordset : Hej

stringSQL = " SELECT CityTbl * FROM CityTbl ; . "

Set RecordSt = dBase.OpenRecordset ( stringSQL )
6

Skriv følgende for at oprette en "For Loop " og vise din forespørgsel resultater gennem en besked boks :

RecordSt.MoveFirst

rCnt = 0 Til RecordSt.RecordCount

MsgBox ( RecordSt.Fields ( "By" ) Value & " . , "& RecordSt.Fields ( " stat " ) . Value)

RecordSt.MoveNext

Næste rCnt

Tryk på" F5 "for at udføre underprogram.
< br >