下面直接給出方法函數(shù)：

       1、申明外部函數(shù)，用來(lái)取系統(tǒng)的臨時(shí)路徑。  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);
//檢查數(shù)據(jù)庫(kù)文件是否存在
if not FIleExists(as_MDB) then return -1
//創(chuàng)建臨時(shí)文件名
string ls_tmpFIle
ls_tmpFIle =Space(255)
GetTempPath(255,ls_tmpFIle)
ls_tmpFIle+="temp.mdb"
//創(chuàng)建DBEngine
integer result
oleobject ole_DBEngine
ole_DBEngine = create oleobject
result =ole_DBEngine.connecttonewobject("JRO.JetEngine")
//創(chuàng)建失敗
if  result<>0 then return result
//通過(guò)DBEngine 壓縮數(shù)據(jù)庫(kù)文件
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
//拷貝剛剛壓縮過(guò)臨時(shí)數(shù)據(jù)庫(kù)文件至原來(lái)位置
FIleCopy(ls_tmpFIle,as_MDB,true)
//刪除臨時(shí)文件
FileDelete(ls_tmpFIle)
return 0
end function

    3、調(diào)用方法  

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



       應(yīng)注意的是，在壓縮和修復(fù)數(shù)據(jù)庫(kù)的過(guò)程中，不能有其它的操作打開該數(shù)據(jù)庫(kù)，否則操作會(huì)失敗，因此請(qǐng)先關(guān)閉掉該數(shù)據(jù)庫(kù)的連接，否則執(zhí)行會(huì)報(bào)錯(cuò)。

       此外這個(gè)函數(shù)經(jīng)過(guò)修改后，可實(shí)現(xiàn)備份數(shù)據(jù)庫(kù)的功能，相比較更簡(jiǎn)單一些，這里就不提供了。