VFP如何压缩ACCESS数据库
请各位同仁指点一下如何使用VFP压缩ACCESS数据库,谢谢!
通过自己研究以方式就可以压缩ACCESS数据库,谢谢各位朋友的支持!
db=SYS(5)+CURDIR()+"Temp001.mdb"
db1=SYS(5)+CURDIR()+'my.mdb'
IF FILE(db)
ERASE (db)
ENDIF
myacc=CreateObject("Access.Application")
(db1,db,.f.)
ERASE (db1)
COPY FILE (db) TO (db1)
ERASE (db)
myAcc.quit
RELEASE myAcc