opvragen van gegevens uit een database tabel met jokertekens in Microsoft Access is niet zo moeilijk als u misschien denkt . In Access kunt u Visual Basic for Applications ( VBA ) om processen zoals het bevragen van gegevens te automatiseren . In VBA kunt u bouwen SQL-statements om een tafel te bevragen naar waarden die overeenkomen met een patroon dat u opgeeft . De "Like" -operator kan worden gebruikt in SQL-instructies tot een criteria zoals "Like" D * " " waarin alle veldwaarden die beginnen met de letter D. Wat je nodig hebt
database Noordenwind
zal terugkeren opgeven < br > Toon Meer Aanwijzingen
1 Klik op het tabblad " Database tools" op " Visual Basic , " en klik op het menu "Insert " . Klik op " Module " om een nieuwe code -module plaatsen kopen van 2 Maak een nieuwe sub- procedure door het volgende te typen : . Private Sub useLikeCommand
( )
< br > 3 Verklaar de variabelen die je zal gebruiken om een database tabel bevragen door toevoeging van de volgende VBA- code : Dim dataString
als Koord
Dim dbs Als Database
Dim rst als Recordset Dim X
als Geheel Set dbs = CurrentDb
4
Definieer de snaar die u passeert aan de SQL-instructie :
dataString = " a * "
Type 5 de volgende code om een record set met behulp van een SQL-instructie die de operator Like gebruikt openen : Set rst
= dbs.OpenRecordset ( " SELECT Werknemers . [ Naam ] , Werknemers . [ Voornaam ] " _
& " FROM Employees " _
& " WHERE ( ( ( Employees. [ Voornaam ] ) Like ' " & ( dataString ) & " " ) ) ; " )
6 Maak een" For ... Loop " aan de geretourneerd door de query met behulp van het venster Direct resultaten weer te geven : rst
. MoveFirst
Voor X = 0 Om rst.RecordCount Debug.Print rst.Fields
( " [ Voornaam ] " ) . Value Debug.Print rst.Fields
( " [ Naam ] " ) Value rst.MoveNext
volgende X
7 uw procedure Eindig door toevoeging van de volgende code : .
rst.Close dbs.Close
End Sub
Druk op " Ctrl " en " G "
8 om het venster Direct weer te geven . Druk op " F5 " om de procedure uit te voeren.
|
