![](/icons/27431hanshu.gif)
1、申明外部
![](/icons/27431hanshu.gif)
![](/icons/27431dou.gif)
![](/icons/27431de.gif)
![](/icons/27431dou2.gif)
![](/icons/27431string.gif)
2、核心思路方法:
global type gf_CompactAndRepairAccessDB from function_object
end type
forward prototypes
global function
![](/icons/27431int.gif)
![](/icons/27431string.gif)
end prototypes
global function
![](/icons/27431int.gif)
![](/icons/27431string.gif)
//检查数据库文件是否存在
![](/icons/27431if.gif)
![](/icons/27431return.gif)
//创建临时文件名
![](/icons/27431string.gif)
ls_tmpFIle =Space(255)
GetTempPath(255,ls_tmpFIle)
ls_tmpFIle
![](/icons/27431jiadeng.gif)
//创建DBEngine
![](/icons/27431int.gif)
oleobject ole_DBEngine
ole_DBEngine = create oleobject
result =ole_DBEngine.connectto
![](/icons/27431new.gif)
//创建失败
![](/icons/27431if.gif)
![](/icons/27431return.gif)
//通过DBEngine 压缩数据库文件
![](/icons/27431string.gif)
![](/icons/27431string.gif)
sOldMDB = sProvider + 'Data Source= ' + as_MDB
sNewMDB = sProvider + 'Data Source= ' + ls_tmpFIle
ole_DBEngine.CompactDatabase(sOldMDB, sNewMDB)
destroy ole_DBEngine
//拷贝刚刚压缩过临时数据库文件至原来位置
FIleCopy(ls_tmpFIle,as_MDB,true)
//删除临时文件
FileDelete(ls_tmpFIle)
![](/icons/27431return.gif)
end function
3、
![](/icons/27431diaoyong.gif)
gf_compactandrepairaccessdb("E:\eNo\collect.mdb")
应注意
![](/icons/27431de.gif)
![](/icons/27431dou.gif)
![](/icons/27431de.gif)
![](/icons/27431dou.gif)
![](/icons/27431de.gif)
![](/icons/27431dou.gif)
![](/icons/27431dou.gif)
![](/icons/27431de.gif)
![](/icons/27431dou.gif)
![](/icons/27431dou2.gif)
此外这个
![](/icons/27431hanshu.gif)
![](/icons/27431dou.gif)
![](/icons/27431de.gif)
![](/icons/27431dou.gif)
![](/icons/27431yi.gif)
![](/icons/27431dou.gif)
![](/icons/27431dou2.gif)
最新评论