Avviare Microsoft Office Access 2007 e fare clic su " Database vuoto ", quindi fare clic su "Crea ". Selezionare "Strumenti database" e fare clic su " Visual Basic " . Selezionare il menu "Inserisci" e selezionare " Modulo ".
2
tipo "Private sub exportAccessData " e premere " Invio" per creare un nuovo sottoprogramma .
3
Copia e incolla il seguente codice nel nuovo sottoprogramma per creare una nuova tabella , aggiungere quattro record al tuo tavolo , ed esportare i dati da una tabella in un file di testo .
Dim sqlstring Come
String
sqlstring = " CREATE TABLE exportAccessData (CITY TESTO , TESTO DI STATO ) "
DoCmd.SetWarnings False
DoCmd.RunSQL ( SqlString ) per
strSQL = " INSERT INTO exportAccessData VALUES ( ' FORT WORTH ', ' Texas' ) "
DoCmd.RunSQL ( strSQL ) per
strSQL =" INSERT INTO exportAccessData VALUES ( ' ARLINGTON ', ' Texas' ) "
DoCmd.RunSQL ( strSQL ) per
strSQL = " INSERT INTO exportAccessData VALUES ( 'Los Angeles' , 'California ') "
DoCmd.RunSQL ( strSQL ) per
strSQL = " INSERT INTO exportAccessData VALUES ( ' SAN DIEGO ', ' California' ) "
DoCmd.RunSQL ( strSQL ) per
sqlstring = " exportAccessData.CITY SELECT, exportAccessData.STATE INTO dataToExport "
sqlstring = sqlstring & " FROM exportAccessData "
sqlstring = sqlstring & " WHERE ( ( ( exportAccessData.STATE ) = ' CALIFORNIA ')); "
DoCmd . EseguiSQL ( SqlString ) per
DoCmd.OutputTo acOutputTable , " dataToExport " , acFormatTXT , "c : \\ dataToExport.txt " . " F5 "
4
Eseguire il sottoprogramma premendo
Programmazione © www.354353.com