Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustite program Microsoft Access , kliknite na tlačidlo " Prázdna databáza " a kliknite na tlačidlo " Vytvoriť " . Double - kliknite na " Pridať nové pole " a zadajte " mesto" , vytvoriť prvý stĺpec . Stlačte tlačidlo " Enter . " Type " Meno " a stlačte " Enter " vytvoriť druhý stĺpec a zadajte " Priezvisko" vytvoriť tretí stĺpec .
2
Stlačte tlačidlo " Ctrl " a " S " pre uvedenie na trh " Uložiť ako " v dialógovom okne a kliknite na tlačidlo " OK " pre uloženie tabuľky . kliknite na záložku " Vytvoriť " a kliknite na ikonu " Tabuľka " , ak chcete vytvoriť novú tabuľku . Double - kliknite na " Pridať nové pole " a zadajte " stať " pre vytvorenie nového poľa . Stlačte tlačidlo " Enter " a napíšte " mesto" pre vytvorenie druhého poľa . Stlačte tlačidlo " Ctrl " a " S " pre uloženie spustiť " Uložiť ako " v dialógovom okne a kliknite na tlačidlo " OK " pre uloženie tabuľky .
3
Kliknite na záložku " Databázové nástroje " a kliknite na " vzťahy " definovať relácie medzi tabuľkami . Kliknite na " Tabuľka1 " a " tabulka2 " a vyberte je v dialógovom okne " Zobraziť tabuľku " . Kliknite na tlačidlo " Pridať " a kliknite na " Close " .
4
Kliknite na záložku " Databáza Nástroje " a kliknite na " Visual Basic " pre spustenie editora VBA . Kliknite na " Vložiť " poľa a kliknite na tlačidlo " modul " vložiť nový modul
5
Skopírujte a vložte nasledujúci kód k naplneniu obidve tabuľky s údajmi : .
Private Sub populateTables ( ) Dim strSQL Ako StringDoCmd.SetWarnings FalsestrSQL = " INSERT INTO Tabuľka 1 " strSQL = strSQL a " VALUES ( 1 , ' Dallas ' , ' John ' , ' Smith ' ) " DoCmd.RunSQL ( strSQL ) strSQL = " ; INSERT INTO Tabuľka 1 " strSQL = strSQL & " VALUES ( 2 , ' Los Angeles ' , ' Marie ' , ' Jones ' ) " DoCmd.RunSQL ( strSQL ) strSQL = " INSERT INTO Tabuľka 1 " strSQL = strSQL a " VALUES ( 3 , ' Los Angeles ' , ' Charles ' , ' Lopez ' ) " DoCmd.RunSQL ( strSQL ) strSQL = " INSERT INTO Tabuľka 1 " strSQL = strSQL a " VALUES ( 4 , ' dallas ' , ' Oscar ' , ' Ramos ' ) " DoCmd.RunSQL ( strSQL ) strSQL = " INSERT INTO Table2 " strSQL = strSQL a " VALUES ( 1 , ' Texas ' , ' Dallas ' ) " DoCmd . RunSQL ( strSQL ) strSQL = " INSERT INTO Table2 " strSQL = strSQL & " VALUES ( 2 , ' Kalifornia ' , ' Los Angeles ' ) " DoCmd.RunSQL ( strSQL ) End Sub
6
Stlačte klávesu " F5 " pre spustenie procedúry . Prepnite späť do aplikácie Microsoft Access a potom kliknite na tabuľku " Vytvoriť " a kliknite na " Návrh dotazu . " Kliknite na tlačidlo " Tabl1 " , " tabulka2 " a kliknite na tlačidlo " Pridať " . Double - kliknite na " Meno " a dvakrát kliknite na " Priezvisko " z " Table1 . " Double - kliknite na " štátne " a dvakrát kliknite na " mesto" od stola " Tabl2 . " Typ " Los Angeles " v " Kritériá " riadku pre " City " stĺpci . Kliknite na ikonu " Spustiť " sa spustí váš dotaz a zobraziť meno , priezvisko a stať pre ľudí , ktorí žijú v Lost Angeles .
Copyright © počítačové znalosti Všetky práva vyhradené