| Save table from ADOSamples | |
|---|---|
'Create Recordset and DBF objects
Set ADORS = CreateObject("ADODB.Recordset")
Set DBF = CreateObject("RSConvert.DBF")
'Open table
ADORS.Open "Customers", "DSN=ADOSamples"
'Save table to the disk
DBF.SaveRS "c:\dbfexport\Custo", ADORS
'Close recordset
ADORS.Close
ADORS.Open "Products", "DSN=ADOSamples"
DBF.SaveRS "c:\dbfexport\Products", ADORS
ADORS.Close | |