cSourceDb = "SourceDB=C:\Program Files\vfp50\SAMPLES\DATA\Testdata.dbc" >cSQLStatement = "SELECT recno() as rcno,* FROM customer" > >.InsertDatabase(35,511,0, ; > cDSN+cSourceDb+cSourceType+cOther, ; > cSQLStatement,,,,,,,1)If you don't use DBC (free tables) then it would be like :
cDefDir = sys(5)+curdir() >cDataFile = "mytable.dbf" >cDataFullPath = dbf(cDataFile) >cDSN = "DSN=FoxPro Files;DBQ="+cDefDir+";DefaultDir="+cDefDir+";" >cSourceDB = "" >cSourceType = "" >cOther = "DriverId=536;MaxBufferSize=512;PageTimeout=5;" >cSQLStatement = "SELECT * FROM "+cDataFile > .InsertDatabase(35,511,0, ; > cDSN+cSourceDb+cSourceType+cOther, ; > cSQLStatement,,,,cDataFile,,,1)PS: Word expects excl access to source. For that reason in class a tempfile is created.