Ako vyhľadávať databázy v programe Access 2007

Schopnosť vyhľadávať z iných zdrojov než ten , ktorý práve používate databáz môže vaše aplikácie Access dynamickejší , môžete to urobiť pomocou jazyka Visual Basic for Applications ( VBA ) . Vo VBA , môžete použiť metódu " OpenDatabase " definovať cestu a názov databázy , ktorú chcete dotaz . Po definovaní databázy , môžete použiť " Recordset " objekt zobrazenie výsledkov dotazu . Veci , ktoré budete potrebovať
Northwind 2007 databázy
Zobraziť ďalšie inštrukcie Cestuj 1

Spustite program Access 2007 , kliknite na tlačidlo " Prázdna databáza " a potom kliknite na tlačidlo " Vytvoriť " . Vyberte " Databázové nástroje " a potom kliknite na " Visual Basic " .
2

Vytvoriť nový postup zadaním nasledujúci kód :

Private Sub queryDatabase ( )
sims 3

Vytvorte tri nové premenné zadaním nasledujúci kód jazyka VBA :

Dim rst ako Recordset

Dim dbs ako databáza

Dim SQLStr As String
Stránka 4

Definujte databázu , ktorú bude dotaz zadaním nasledujúci kód :

Set dbs = OpenDatabase ( " C : \\ Northwind 2007.accdb " )
5

Vytvoriť reťazec SQL zadaním nasledujúci kód vybudovanie otázka:

SQLStr = " .. SELECT príkazy [ Názov lode ] , objednávky [ Adresa lodi ] "

SQLStr = SQLStr & " objednávok "

SQLStr = SQLStr & " .. GROUP BY príkazov [ Názov lode ] , objednávky [ Adresa lodi ] ; "
6

skopírujte a vložte nasledujúci kód na otvorenie dotaz prostredníctvom " Recordset " a zobraziť výsledky v okamžitom okne :

Set rst = dbs.OpenRecordset ( SQLStr )

rst.MoveLast

rst.MoveFirst

robiť , keď nie je rst.EOF

Debug.Print rst.Fields ( " loď Name " ) . Hodnota

Debug.Print rst.Fields ( " Address loď " ) . hodnota

rst.MoveNext

Loop
7

Ukončite postup zadaním nasledujúci kód :

rst.Close

dbs.Close

End Sub

• Predchádzajúca strana: Typy Salesforce Opportunity 
• Ďalšia strana: Ako pridať čas na časovú pečiatku v MS SQL