Access DB压缩函数gf_compactandrepairaccessdb

//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