Haal queryresultaten op in Access met behulp van VBA.
Als u weet hoe u de resultaten van een Microsoft Access-query moet lezen, kunt u uw Access-toepassing dynamischer maken. Access maakt deel uit van de Microsoft Office-suite en wordt gebruikt om relationele databases te maken. Visual Basic for Applications (VBA) kan in Access worden gebruikt om Windows-toepassingen te maken en databasegegevens op te halen. Een query wordt gebouwd met behulp van SQL-instructies (Structured Query Language) om informatie uit een database op te vragen.
Stap 1
Start Microsoft Office Access 2007 en selecteer 'Lege database' en klik vervolgens op 'Maken'. Klik op 'Databasetools' en selecteer 'Visual Basic'. Klik op het veld "Invoegen" en selecteer "Module".
Video van de dag
Typ "Private sub readQueryResults" en druk op "Enter" om een nieuwe subroutine te maken.
Stap 2
Typ het volgende om variabelen te declareren die u gaat gebruiken om de queryresultaten te lezen:
Dim RecordSt As Recordset Dim dBase As Database Dim stringSQL As String Dim rCnt As Integer
Stap 3
Typ het volgende om de tabel "CityTbl" te maken:
stringSQL = "MAAK TABEL CityTbl (Stad TEXT(25), Staat TEXT(25));" DoCmd. RunSQL (stringSQL)
Stap 4
Typ het volgende om twee nieuwe records toe te voegen aan uw "CityTbl"-tabel:
stringSQL = "INSERT INTO CityTbl ([City], [State] ) " stringSQL = stringSQL & "VALUES ('Fort Worth', 'Texas');" DoCmd. SetWarnings False DoCmd. RunSQL (stringSQL)
stringSQL = "INSERT INTO CityTbl ([City], [State] ) " stringSQL = stringSQL & "VALUES ('Dallas', 'Texas');" DoCmd. SetWarnings False DoCmd. RunSQL (stringSQL)
Stap 5
Typ het volgende om uw query te definiëren en uw Recordset te openen:
stringSQL = "SELECT CityTbl.* FROM CityTbl;" Stel RecordSt = dBase in. OpenRecordset (stringSQL)
Stap 6
Typ het volgende om een "For Loop" te maken en uw zoekopdrachtresultaten weer te geven via een berichtvenster:
RecordSt. MoveFirst For rCnt = 0 To RecordSt. RecordCount MsgBox (RecordSt. Fields("Plaats").Value & ", " & RecordSt. Fields("State").Value) RecordSt. VerplaatsenVolgende Volgende rCnt
Druk op "F5" om de subroutine uit te voeren.
