spørring data fra en database tabell ved hjelp av jokertegn i Microsoft Access er ikke så vanskelig som du kanskje tror. I Access kan du bruke Visual Basic for Applications ( VBA ) til å automatisere prosesser som spørring data . I VBA kan du bygge SQL-setninger til å spørre en tabell for å finne verdier som samsvarer med et mønster du angir. The "Like" operator kan brukes i SQL-setninger for å angi et kriterium som " Like" D * " " som vil returnere alle feltverdier som begynner med bokstaven D. Du trenger
Northwind database
Vis flere instruksjoner
en
klikk på " Database Tools "-kategorien , klikk på " Visual Basic ", og klikk på "Insert "-menyen . Klikk på " Module" for å sette inn en ny kode modul
2
Opprett en ny sub prosedyre ved å skrive følgende : .
Private Sub useLikeCommand ( )
3
Erklærer variablene du vil bruke til å søke en database tabell ved å tilføye følgende VBA -kode:
Dim dataString As String
Dim dBS Som database
Dim rst Som RecordSet
Dim X As Integer
Set dBS = CurrentDb
4
Definer strengen du vil passere til SQL-setning : en
dataString = " A * "
5
Skriv inn følgende kode for å åpne en Recordset ved hjelp av en SQL -setning som bruker Like-operatoren : en
Set rst = dbs.OpenRecordset ( " SELECT ansatte . [ etternavn ] , ansatte . [ fornavn ] "_
&" FROM ansatte "_
&" WHERE ( ( ( Employees. [ fornavn ] ) Som ' "& ( dataString ) & " ' )); ")
6
Lag et "For ... Loop " for å vise resultatene som returneres av spørringen bruker Immediate -vinduet : en
rst . MoveFirst
For X = 0 For å rst.RecordCount
Debug.Print rst.Fields ("[ fornavn ] ") . Verdi
Debug.Print rst.Fields ( " [ etternavn ] ") Verdi
rst.MoveNext
Neste X
7
Avslutt prosedyren ved å legge følgende kode: .
< p > rst.Close
dbs.Close
End Sub
8
Trykk " Ctrl" og " G " for å vise det gjeldende vinduet . Trykk "F5 " for å kjøre prosedyren.