//string as_mdb
//string as_pwd
//网上找到得一个是没有密码输入功能,我加入密码功能后,调试完成贴在这里。pb11.2 test
///
//检查数据库文件是否存在
if not FIleExists(as_MDB) then return -1
//创建临时文件名
string ls_tmpFIle
ls_tmpFIle =Space(255)
GetTempPath(255,ls_tmpFIle)
ls_tmpFIle+="temp.mdb"
//创建DBEngine
integer result
oleobject ole_DBEngine
ole_DBEngine = create oleobject
result = ole_DBEngine.Connecttonewobject("JRO.JetEngine")
//创建失败
if result<>0 then return result
//通过DBEngine 压缩数据库文件
string sProvider = 'Provider=Microsoft.Jet.OLEDB.4.0;'
string sOldMDB,sNewMDB
sOldMDB = sProvider + 'Data Source= ' + as_MDB + ";Jet OLEDB:Database Password=" + as_pwd
sNewMDB = sProvider + 'Data Source= ' + ls_tmpFIle + ";Jet OLEDB:Database Password =" + as_pwd
ole_DBEngine.CompactDatabase(sOldMDB, sNewMDB)
destroy ole_DBEngine
//拷贝刚刚压缩过临时数据库文件至原来位置
FIleCopy(ls_tmpFIle,as_MDB,true)
//删除临时文件
FileDelete(ls_tmpFIle)
return 0