Access is een systeem dat alle tools die nodig zijn om een database te ontwerpen biedt . Een query wordt gebruikt om gegevens uit een database tabel te halen . Het pand recordset wordt gebruikt om toegang te krijgen tot het geretourneerd door een query records. Weten hoe je een Access- recordset gebruiken kan uw database applicatie dynamischer te maken . Visual Basic for Applications ( VBA ) is een programmeertaal gebruikt om routinematige taken in Access en andere Microsoft Office-toepassingen te automatiseren . U kunt VBA gebruiken om je zoekresultaten te halen . Instructies
1 Open de Microsoft Access- database Noordenwind . De database Noordenwind is opgenomen in de Office-suite . Klik op " Database Tools" en selecteer " Visual Basic . " Klik op het menu "Invoegen" en selecteer
Type 2 het volgende om een nieuwe subroutine creëren " Module . " : Private Sub useRecordset
( ) Pers Nieuws " Voer "
Type 3 de volgende nieuwe variabelen op te geven : . Dim strSQL
als Koord
Dim dbs Als Database
Dim rst als Recordset Dim tmpStr
als Koord
Set dbs = CurrentDb
Type 4 het volgende om de productie veldnamen in het " Immediate Window " : < br tmpStr = " Bedrijf | Naam | " > tmpStr = tmpStr & " voornaam | "
tmpStr = tmpStr & " Job Title | "
tmpStr
= tmpStr & "Business Phone " Debug.Print tmpStr
5 Typ
het volgende aan de " klanten " table opvragen: strSQL = " SELECT Klanten
. bedrijf , Klanten . [ Naam ] , "
strSQL = strSQL & " Klanten . [ Voornaam ] , "
strSQL = strSQL & " Klanten . [ Job Title ] , Klanten . [ ,"zakelijke telefoon ] "
strSQL = strSQL & " FROM Klanten ; "
Type 6 het volgende om de recordset te openen :
Set rst = dbs.OpenRecordset ( strSQL ) rst.MoveLast
rst.MoveFirst
Type
7 de volgende voor het doorlussen van de record en weer query resultaten in het venster Direct :
Do While Not rst.EOF tmpStr
= rst.Fields ( 0 ) Value
tmpStr = tmpStr & . " | " . & rst.Fields ( 1 ) Value
tmpStr = tmpStr & " | " . & rst.Fields ( 2 ) Waarde
tmpStr = tmpStr & " | " . & rst.Fields ( 3 ) Waarde
tmpStr = tmpStr & " | " . & rst.Fields ( 4 ) Waarde Debug.Print tmpStr
rst.MoveNext Loop
Type
8 de volgende variabelen te wissen uit het geheugen : rst.Close dbs.Close Druk op "F5 "
uw subroutine draaien
.
|
