Weten hoe u de resultaten lezen uit een Microsoft Access-query kan u helpen om uw Access-toepassing dynamischer . Access is een onderdeel van de Microsoft Office suite en het wordt gebruikt om relationele databases te creëren . Visual Basic for Applications ( VBA ) kan worden gebruikt in Toegang tot Windows-applicaties te creëren en database gegevens op te halen . Een query is gebouwd met behulp van Structured Query Language ( SQL ) statements om informatie uit een database te vragen . Wat je nodig hebt
Microsoft Office Access 2007
Toon Meer Aanwijzingen
1 Start Microsoft Office Access 2007 en selecteer " Lege database , " en klik op "Create . " Klik op " Database Tools" en selecteer " Visual Basic . " Klik op het veld " Insert " en selecteer " Module " . Type " Private sub readQueryResults "
en druk op " Enter " om een nieuwe subroutine maken .
Type 2 het volgende te verklaren variabelen die je zal gebruiken om de query resultaten te lezen : Dim RecordSt
als Recordset Dim dBase
Als Database Dim stringSQL
als Koord Dim rCnt
als Geheel
Type 3 het volgende aan de " CityTbl " tabel te maken : stringSQL
= " CREATE tABLE CityTbl ( Stad TEXT ( 25 ) , de Staat TEXT ( 25 ) ) ; " DoCmd.RunSQL ( stringSQL )
Type Goedkope 4 de volgende twee nieuwe records aan uw toe te voegen " CityTbl " tabel: stringSQL =
" INSERT INTO CityTbl ( [ Stad ] , [ staat ] ) "
stringSQL = stringSQL & " VALUES ( ' Fort Worth ' , ' Texas ' ) ; " DoCmd.SetWarnings
False
DoCmd.RunSQL ( stringSQL ) op stringSQL = " INSERT INTO CityTbl ( [ Stad ] , [ staat ] ) "
stringSQL = stringSQL & " VALUES ( ' Dallas ' , ' Texas' ) ; " DoCmd.SetWarnings
False
DoCmd.RunSQL ( stringSQL )
5 Typ het volgende om uw vraag te definiëren en open je Recordset :
stringSQL = "SELECT * FROM CityTbl CityTbl ; . " Set RecordSt = dBase.OpenRecordset ( stringSQL )
Type
6 het volgende om een " For Loop" en uw query resultaten door middel van een bericht doos : RecordSt.MoveFirst
Voor rCnt = 0 Om RecordSt.RecordCount MsgBox
( RecordSt.Fields ( " Stad " ) Value & " . , " & RecordSt.Fields ( " State " ) . Value ) RecordSt.MoveNext
Volgende rCnt Pers Nieuws" F5 "om de subroutine uit te voeren .
< br >
|
