Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Spustite program Microsoft Office Access 2007 a kliknite na tlačidlo " Prázdna databáza " a potom kliknite na tlačidlo " Vytvoriť " . Vyberte " Databázové nástroje " a kliknite na " Visual Basic " . Zvoľte menu " Vložiť " a vyberte " modul " . 
 2 
 typu " Private Sub exportAccessData " a stlačte tlačidlo " Enter " pre vytvorenie novej podprogram . 
 3 
 skopírujte a vložte nasledujúci kód do vášho nového podprogramu vytvoriť novú tabuľku , pridajte štyri záznamy do tabuľky , a exportovať dáta z tabuľky do textového súboru . 
 
 Dim SQLString As String 
 
 SQLString = " CREATE TABLE exportAccessData ( CITY TEXT , TEXT STATE ) " 
 
 DoCmd.SetWarnings False 
 
 DoCmd.RunSQL ( SqlString ) 
 
 strSQL = " INSERT INTO exportAccessData VALUES ( " DALLAS " , " TEXAS " ) " 
 
 DoCmd.RunSQL ( strSQL ) 
 
 strSQL = " INSERT INTO exportAccessData VALUES ( ' Arlington " , " TEXAS " ) " 
 
 DoCmd.RunSQL ( strSQL ) 
 
 strSQL = " INSERT INTO exportAccessData VALUES ( ' Los Angeles ' , ' Kalifornia ' ) " 
 
 DoCmd.RunSQL ( strSQL ) 
 
 strSQL = " INSERT INTO exportAccessData VALUES ( " San Diego " , " Kalifornia " ) " 
 
 DoCmd.RunSQL ( strSQL ) 
 
 SQLString = " SELECT exportAccessData.CITY , exportAccessData.STATE DO dataToExport " 
 
 SQLString = SQLString & " Z exportAccessData " 
 
 SQLString = SQLString & " WHERE ( ( ( exportAccessData.STATE ) = ' Kalifornia ' ) ) ; " 
 
 DoCmd . RunSQL ( SqlString ) 
 
 DoCmd.OutputTo acOutputTable , " dataToExport " , acFormatTXT , "c : \\ dataToExport.txt " . " F5 " 
 4 
 Spustiť podprogram stlačením tlačidla