Muligheten til å søke i databaser andre enn den du bruker for øyeblikket kan gjøre Access-programmet mer dynamisk , du kan oppnå dette ved hjelp av Visual Basic for Applications ( VBA ) . I VBA , kan du bruke " OpenDatabase " metode for å definere banen og navnet på databasen som du ønsker å søke . Når du har definert i databasen , kan du bruke " Recordset " objekt for å vise resultatene av spørringen. Du trenger
Northwind 2007 database
Vis flere instruksjoner
en

Launch Access 2007 , klikk "Blank Database " og deretter på "Create "-knappen . Velg "Database Verktøy" og deretter " Visual Basic. "
2

Opprett en ny prosedyre ved å skrive følgende kode :

Private Sub queryDatabase ( )

3

Lag tre nye variabler ved å skrive følgende VBA -kode:

Dim rst Som Recordset

Dim dBS Som Database

Dim SQLStr As String

4

Definer databasen du vil søke ved å legge inn følgende kode :

Set dBS = OpenDatabase ( "C : \\ Northwind 2007.accdb ")
5 < p> Lag en SQL streng ved å skrive følgende kode for å bygge en spørring : en

SQLStr = " . . SELECT Orders [ Ship Name] , bestillinger [ Ship adresse] "

SQLStr = SQLStr & " FRA Orders"

SQLStr = SQLStr & " GROUP BY Orders [ Skipets Navn ] , Ordre [ Ship adresse] ; . ».
6

Kopier og lim inn følgende kode for å åpne spørringen gjennom en " Recordset " og vise resultatene til Immediate-vinduet : en

Sett rst = dbs.OpenRecordset ( SQLStr )

rst.MoveLast

rst.MoveFirst

Mens Ikke rst.EOF

Debug.Print rst.Fields ( " Ship Name" ) . Verdi

Debug.Print rst.Fields ( " Ship -adresse" ) . Verdi

rst.MoveNext

Loop
7

End din prosedyren ved å skrive følgende kode :

rst.Close
< p > dbs.Close

End Sub