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