Evnen til at forespørge fra databaser andre end den, du bruger i øjeblikket kan gøre din Access-program mere dynamisk , og du kan opnå dette ved hjælp af Visual Basic for Applications ( VBA ) . I VBA kan du bruge " OpenDatabase " metode til at definere stien og navnet på den database , du vil forespørge . Når du definerer databasen, kan du bruge " Recordset " objekt til at vise resultaterne af din forespørgsel. Ting du skal
Northwind 2007-databasen
Vis Flere Instruktioner
1

Launch Access 2007 , klik på " Tom database " og derefter klikke på knappen "Opret" . Vælg " Database Tools" og derefter klikke på "Visual Basic ".
2

Opret en ny procedure ved at skrive følgende kode : Hej

Private Sub queryDatabase ()

3

Opret tre nye variabler ved at skrive følgende VBA-kode : Hej

Dim rst som Recordset

Dim dbs som database

Dim SQLStr As String < br >
4

Definer den database, du vil forespørge ved at indtaste følgende kode : Hej

Set dbs = OpenDatabase ( "C: \\ Northwind 2007.accdb " )
5 < p > Opret en SQL streng ved at skrive følgende kode til at opbygge en forespørgsel : Hej

SQLStr = " . . SELECT ordrer [ Ship Name] , ordrer [ Ship adresse] "

SQLStr = SQLStr & " FROM Ordrer "

SQLStr = SQLStr & " GROUP BY ordrer [ Ship navn], ordrer [ Ship adresse ] . ".
6

Kopier og indsæt følgende kode til at åbne forespørgslen via et " Recordset " og vise resultaterne til Immediate -vinduet : Hej

Set rst = dbs.OpenRecordset ( SQLStr )

rst.MoveLast

rst.MoveFirst < br >

Do While Ikke rst.EOF

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

Debug.Print rst.Fields ( " Ship Address" ) . value

rst.MoveNext

Loop
7

Afslut din procedure ved at skrive følgende kode : Hej

rst.Close
< p > dbs.Close

End Sub