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_object end type forward prototypes global function integer gf_compactandrepairaccessdb (string as_mdb) end prototypes global function integer gf_compactandrepairaccessdb (string as_mdb); //检查数据库文件是否存在 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 sNewMDB = sProvider + 'Data Source= ' + ls_tmpFIle ole_DBEngine.CompactDatabase(sOldMDB, sNewMDB) destroy ole_DBEngine //拷贝刚刚压缩过临时数据库文件至原来位置 FIleCopy(ls_tmpFIle,as_MDB,true) //删除临时文件 FileDelete(ls_tmpFIle) return 0 end function

    3、调用方法 

     
     

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

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

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

评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值