Microsoft Office Access stelt programmeurs in staat om Visual Basic for Applications ( VBA ) om applicaties in Access te maken . VBA is een programmeertaal gebruikt om routinematige taken in Microsoft Office-toepassingen te automatiseren . Access is een relationeel databasesysteem vaak gebruikt voor kleinere databases . Een selectiequery wordt gebruikt om gegevens uit een database tabel te halen . Een Recordset wordt gebruikt om het geretourneerd door de selectiequery inhoud lezen . In een paar stappen kunt u VBA code om een tabel te maken en bekijk de inhoud door middel van een selectiequery te schrijven . Instructies
1 Open Microsoft Office Access , klikt u op " Lege database , " en selecteer "Create . " Klik op ' Hulpmiddelen voor databases , " selecteer " Visual Basic "om de Visual Basic- venster van Microsoft te openen . Klik op het veld " Insert " en selecteer " Module . "
Copy 2 en plak de volgende code in uw nieuwe module : Private Sub runSelectQuery
( ) op Dim db als Database Dim rcrdSet
als Recordset Dim strSQL
als Koord Dim Xcntr
als Geheel
Set db = CurrentDb
strSQL = " CREATE TABLE selectQueryData ( NumField NUMBER , huurder TEKST , Apt TEXT ) ; " DoCmd.RunSQL ( strSQL ) strSQL
= " INSERT INTO selectQueryData ( NumField , Tenant , Apt ) "
strSQL = strSQL & " VALUES ( 1 , ' John ' , ' A ' ) ; " DoCmd.SetWarnings
False DoCmd.RunSQL ( strSQL ) op Twitter strSQL = " INSERT INTO selectQueryData ( NumField , Tenant , Apt ) " strSQL = strSQL & Breakfast " VALUES ( 2 , ' Susie ' , ' B ' ) ; " DoCmd
. SetWarnings Valse DoCmd.RunSQL ( strSQL ) strSQL
= " INSERT INTO selectQueryData ( NumField , Tenant , Apt ) "
strSQL = strSQL & " VALUES ( 3 , ' luis ' , ' C ' ) ; . " DoCmd.SetWarnings
False DoCmd.RunSQL ( strSQL ) strSQL
= " Selecteer selectQueryData * van selectQueryData "
strSQL = strSQL & " WHERE selectQueryData.Tenant = ' Luis ' ; " Set
rcrdSet = db.OpenRecordset ( strSQL ) rcrdSet.MoveLast rcrdSet
. MoveFirst
Xcntr = 0 Om rcrdSet.RecordCount - 1 MsgBox " huurder : "
& rcrdSet.Fields ( " huurder " ) Value & " , Woont in apt : " & _ < . br rcrdSet.Fields ( " Apt " ) > . Waarde rcrdSet.MoveNext Volgende Xcntr rcrdSet.Close db.Close
End Sub
Druk op " F5 " Goedkope 3 om uw subroutine draaien . Het programma zal een tabel te maken , plaatst u de gegevens in de tabel en gebruik een select query om gegevens voor een bepaalde rij weer te geven .
|
