本文講解了在PowerBuilder下壓縮數據庫的方法。

下面直接給出方法函數：

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

 應注意的是，在壓縮和修復數據庫的過程中，不能有其它的操作打開該數據庫，否則操作會失敗，因此請先關閉掉該數據庫的連接，否則執行會報錯。

 此外這個函數經過修改后，可實現備份數據庫的功能，相比較更簡單一些，這里就不提供了。