Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte databázu Northwind Access . Databáza Northwind je súčasťou balíka Microsoft Office .
2
Kliknite na " Vytvoriť " a vyberte " Návrh dotazu . " Vyberte " tabuľky " kartu , zvoľte " Zamestnanci " a potom kliknite na tlačidlo " Pridať " . Zvoľte " Close " .
3
Double - kliknite na " spoločnosť " , " Priezvisko " a " Meno " pridať pole . Zvoľte " Zobrazenie SQL " v " Výsledky " panelu . Stlačte tlačidlo " Ctrl " a " C " skopírovať výberový dotaz .
4
Kliknite na " Databázové nástroje " a potom vyberte " Visual Basic " . Zadajte nasledujúci príkaz na vytvorenie novej podprogram : " . Enter "
Private Sub createVBAQuery ( )
Tlačové
5
Zadajte nasledujúce deklarovať svoje premenné :
Dim strSQL As String
Dim rst ako Recordset
Dim dbs ako databáza
Set DBS = CurrentDb
6
Press " Ctrl " a " V " pre vloženie výberový dotaz vnútri podprogramu . Pridať " strSQL = " na začiatku svojho dotazu a pridať koncovej úvodzovky na konci vášho dotazu takto : ..
strSQL = " SELECT Employees.Company , zamestnancov [ Priezvisko ] , zamestnanci [ Meno ] FROM Zamestnanci ; "
7
zadajte nasledujúce otvorte výberový dotaz a zobrazte výsledky
Set rst = dbs.OpenRecordset ( strSQL )
rst . . MoveLast
rst.MoveFirst
robiť , keď nie je rst.EOF
Debug.Print rst.Fields ( 0 ) Value & . "