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

Vedieť , ako otvoriť a otázka viac databáz môže ušetriť čas , kedy je potrebné použiť dáta z viacerých databázových súborov . Microsoft Office Access je relačný databázový systém vyvinutý spoločnosťou Microsoft . Prístup je populárny aplikácia pre navrhovanie lokálnej databázy . Otázka sa používa na načítanie informácií z databázovej tabuľky . Visual Basic for Applications , tiež známy ako VBA je programovací jazyk počítač , ktorý môže byť použitý na dotaz viac databáz . Veci , ktoré budete potrebovať v Microsoft Office Access
Zobraziť ďalšie inštrukcie Cestuj 1

Spustite program Microsoft Office Access , zvoľte " Prázdna databáza " kliknite na tlačidlo " Vytvoriť " . Kliknite na tlačidlo " Databázové nástroje " , potom vyberte " Visual Basic " . Zvoľte menu " Vložiť " a potom kliknite na tlačidlo " . Modul "
2

Zadajte nasledujúci vytvoriť " queryMultipleDbs " podprogram :

Private Sub queryMultipleDbs ( )

stlačte tlačidlo " ENTER " .
3

Zadajte nasledujúce vyhlásiť nové premenné :

Dim rst ako Recordset

Dim dbs ako databáza

Dim dbs2 Ako databáza
4

Zadajte nasledujúce otvoriť prvú databázu :

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

Upraviť cestu a zadajte cestu databázy
5

zadajte nasledujúce otvorte druhú databázu : . klipart

Nastaviť dbs2 = OpenDatabase ( " C : \\ Kópia Northwind 2007 . accdb " )

Upravte cestu a zadajte cestu databázy .
6

Zadajte nasledujúci dotaz tabuľka" zamestnanci " v prvej databáze a zobrazenie hodnôt v " posledný Názov " stĺpec :

Set rst = dbs.OpenRecordset ( " . SELECT * FROM Zamestnanci Zamestnanci " )

rst.MoveLast

rst.MoveFirst

robiť , keď nie rst.EOF

Debug.Print rst.Fields ( " Last Name " ) . Hodnota

rst.MoveNext

Loop

rst . zavrieť
7

Zadajte nasledujúci dotaz " produkty " tabuľku v prvej databáze a zobrazenie hodnôt v " Kód produktu " stĺpca : Autor

Set rst = dbs2.OpenRecordset ( " SELECT produkty . * FROM produkty " )

rst.MoveLast

rst.MoveFirst

robiť , keď nie je rst.EOF

Debug.Print rst . pole ( " Kód produktu " ) . Hodnota

rst.MoveNext

Loop

rst.Close

Set DBS = Nothing

nastaviť dbs2 = Nothing

Stlačte " F5 " spustiť podprogram a zobrazenie výsledkov pomocou okna Immediate .

• Predchádzajúca strana: Čo je Mirage Driver ? 
• Ďalšia strana: Ako otvoriť správy MS Access 2003 S Visual Basic 6