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

         其实实现方法别的语言已经很明确了,我这里只是用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")



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

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