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

       下面直接给出方法函数：

       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")



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

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

最新文章

PB中协调多数据窗口数据操纵的一种解决方法[01-04]

PB中消息对话框的居中显示[01-04]

PB中实现可监控的数据备份[01-04]

PB中读取地磅BCD解码[01-04]

PB中的数据窗口自动刷新技术[01-04]

PB中表的修改对数据窗口和报表的影响的解决办法[01-04]

相关文章

PB修改数据库表结构的技巧[01-04]

C++ Builder下数据库报表Master/Detail..[01-03]

用C++ Builder开发多层数据库应用程序[01-03]

C++ Builder操纵多媒体数据库[01-03]

在C＋＋ Builder中使用Access数据库[01-03]

在C++Builder 5中使用ADO数据库编程[01-03]