De mogelijkheid om een query uit andere dan degene die u momenteel gebruikt databases kunt uw Access-toepassing dynamischer te maken , kunt u dit te bereiken met behulp van Visual Basic for Applications ( VBA ) . In VBA kunt u de " OpenDatabase " methode gebruiken om het pad en de naam van de database die u wilt opvragen definiëren . Nadat u de database hebt gedefinieerd, kunt u de " Recordset " object gebruiken om de resultaten van de query weer te geven . Wat je nodig hebt
Noordenwind 2007-database
Toon Meer Aanwijzingen
1 Launch Access 2007 , klikt u op " Lege database " en klik vervolgens op de knop "Create " . Selecteer " Database Tools" en klik op " Visual Basic . " Kopen van 2 Maak een nieuwe procedure door de volgende code : Private Sub queryDatabase
( ) op Twitter Goedkope 3 Maak drie nieuwe variabelen door het intikken van de volgende VBA- code : Dim rst
als Recordset
Dim dbs als Database Dim sqlstr
als Koord < br > Goedkope 4 Definieer de database die u opvragen door het invoeren van de volgende code : Set
dbs = OpenDatabase ( " C : \\ Noordenwind 2007.accdb " )
5 Maak een SQL-tekenreeks door de volgende code op te bouwen een query :
sqlstr = " . . SELECT Bestellingen [ Schip Naam ] , Bestellingen [ Schip adres] "
sqlstr = sqlstr & " FROM Orders " sqlstr = sqlstr & Breakfast " GROUP BY Bestellingen [ Schip Naam ] , Bestellingen [ Schip adres] ; . ".
Kopieer en plak de volgende code 6 te openen de query via een " Recordset " en toont de resultaten aan het venster Direct :
Set rst = dbs.OpenRecordset ( sqlstr ) rst.MoveLast rst.MoveFirst
< br > Do While Not rst.EOF Debug.Print rst.Fields
( " Ship Name " ) . Value Debug.Print rst.Fields
( " Ship Address" ) . waarde
rst.MoveNext Loop
End of 7 uw procedure door het intikken van de volgende code : rst.Close
dbs.Close
End Sub
|
