fråge data från en databas tabell med jokertecken i Microsoft Access är inte så svårt som du kanske tror . I Access kan du använda Visual Basic for Applications ( VBA ) för att automatisera processer såsom fråge data. I VBA kan du bygga SQL-satser för att fråga en tabell för att hitta värden som matchar ett mönster som du anger . Den " Gilla " operatör kan användas i SQL-satser för att ange ett kriterium som " Gilla " D * " " som kommer att returnera alla fältvärden som börjar med bokstaven D. Du behöver
Northwind databas
Visa mer instruktioner
1
klicka på " Databas Verktyg " fliken , klicka på " Visual Basic ", och klicka på " Infoga " -menyn . Klicka på " modul " för att infoga en ny kodmodul
2
Skapa en ny sub förfarande genom att skriva följande : .
Private Sub useLikeCommand ( )
3
deklarera variabler som du kommer att använda för att söka en databas tabell genom att lägga till följande VBA -kod :
Dim dataString As String
Dim dbs som databas
Dim rst som Recordset
Dim x As Integer
Set dbs = CurrentDb
4
Definiera strängen passerar du till SQL-satsen :
dataString = "A * "
5
Skriv in följande kod för att öppna ett Recordset använder ett SQL-uttryck som använder Gilla operatör :
Set rst = dbs.OpenRecordset ( " SELECT Anställda . [ Efternamn ] , anställda . [ Förnamn ] " _
& " FROM Anställda " _
& " WHERE ( ( ( Employees. [ Förnamn ] ) Gilla ' " & ( dataString ) & " ' ) ) ; " )
6
Skapa ett " för ... Loop " för att visa resultaten som returneras av frågan med direktfönstret :
RST . MoveFirst
för x = 0 att rst.RecordCount
Debug.Print rst.Fields ( " [ Förnamn ] " ) .
Värde
Debug.Print rst.Fields ( " [ Efternamn ] " ) Value
rst.MoveNext
Nästa X
7
Avsluta proceduren genom att lägga till följande kod : .
rst.Close
dbs.Close
End Sub
8
Tryck " Ctrl " och " G " för att visa Immediate fönstret . Tryck " F5 " för att köra proceduren .
