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

       下面直接给出思路方法:

       1、申明外部用来取系统临时路径  FUNCTION ulong GetTempPath(ulong nBufferLength,ref lpBuffer) LIBRARY "kernel32.dll" ALIAS FOR "GetTempPathA"

      2、核心思路方法:

  global type gf_CompactAndRepairAccessDB from function_object
end type
forward prototypes
global function eger gf_compactandrepairaccessdb ( as_mdb)
end prototypes
global function eger gf_compactandrepairaccessdb ( as_mdb);
//检查数据库文件是否存在
not FIleExists(as_MDB) then -1
//创建临时文件名
ls_tmpFIle
ls_tmpFIle =Space(255)
GetTempPath(255,ls_tmpFIle)
ls_tmpFIle"temp.mdb"
//创建DBEngine
eger result
oleobject ole_DBEngine
ole_DBEngine = create oleobject
result =ole_DBEngine.connecttoobject("JRO.JetEngine")
//创建失败
  result<>0 then result
//通过DBEngine 压缩数据库文件
sProvider = 'Provider=Microsoft.Jet.OLEDB.4.0;'
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)
0
end function

    3、思路方法  

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



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

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

延伸阅读

• 2009-1-15-- 辅臣数据库浏览器:用Visual Basic开发数据库浏览器
• 2009-1-12-- mdb数据库:PEAR MDB 数据库抽象层 ?? 一次编写?随处运行
• 2009-2-12-- mdb数据库:c#连接MDB,SQL数据库代码
• 2009-2-12-- access压缩mdb:用程序实现压缩access(*.mdb)数据库的方法
• 2008-5-23-- mdb数据库安全 数据安全防护之打造安全.mdb数据库