pb中压缩整理access数据库文件(mdb)_access

其实实现方法别的语言已经很明确了,我这里只是用pb整理了一下,方便需要这个功能的同学。

下面直接给出方法函数：

1、申明外部函数，用来取系统的临时路径。

FUNCTION ulong GetTempPath(ulong nBufferLength,ref string lpBuffer)

LIBRARY "kernel32.dll" ALIAS FOR "GetTempPathA"

2、核心方法：

global type gf_CompactAndRepairAccessDB from function_objectend type forward prototypesglobal function integer gf_compactandrepairaccessdb (string as_mdb)end prototypesglobal function integer gf_compactandrepairaccessdb (string as_mdb);//检查数据库文件是否存在 if not FIleExists(as_MDB) then return -1//创建临时文件名string ls_tmpFIlels_tmpFIle =Space(255)GetTempPath(255,ls_tmpFIle)ls_tmpFIle+="temp.mdb"//创建DBEngineinteger resultoleobject ole_DBEngineole_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,sNewMDBsOldMDB = sProvider + ‘Data Source= ‘ + as_MDBsNewMDB = sProvider + ‘Data Source= ‘ + ls_tmpFIleole_DBEngine.CompactDatabase(sOldMDB, sNewMDB)destroy ole_DBEngine//拷贝刚刚压缩过临时数据库文件至原来位置 FIleCopy(ls_tmpFIle,as_MDB,true)//删除临时文件FileDelete(ls_tmpFIle)return 0end function

3、调用方法

gf_compactandrepairaccessdb("E:/eNo/collect.mdb")

应注意的是，在压缩和修复数据库的过程中，不能有其它的操作打开该数据库，否则操作会失败，因此请先关闭掉该数据库的连接，否则执行会报错。

此外这个函数经过修改后，可实现备份数据库的功能，相比较更简单一些，这里就不提供了。

欢迎大家阅读《pb中压缩整理access数据库文件(mdb)_access》,跪求各位点评,若觉得好的话请收藏本文，by 搞代码

搞代码网（gaodaima.com）提供的所有资源部分来自互联网，如果有侵犯您的版权或其他权益，请说明详细缘由并提供版权或权益证明然后发送到邮箱[email protected]‍，我们会在看到邮件的第一时间内为您处理，或直接联系QQ：872152909。本网站采用BY-NC-SA协议进行授权
转载请注明原文链接：pb中压缩整理access数据库文件(mdb)_access