pb中壓縮整理access數據庫文件(mdb) - 中國WEB開發者網絡 (http://www.webasp.net) -- 技術教程 (http://www.webasp.net/article/) --- pb中壓縮整理access數據庫文件(mdb) (http://www.webasp.net/article/21/20996.htm)

-- 作者：未知 -- 發佈日期： 2005-04-29

其實實現方法別的語言已經很明確了,我這裡只是用pb整理了一下,方便需要這個功能的同學。        下面直接給出方法函數：        1、申明外部函數，用來取系統的臨時路徑。  FUNCTION ulong GetTempPath(ulong nBufferLength,ref string lpBuffer) LIBRARY "kernel32.dll" ALIAS FOR "GetTempPathA"       2、核心方法：   global type gf_CompactAndRepairAccessDB from function_objectend type forward prototypesglobal function integer gf_compactandrepairaccessdb (string as_mdb)end prototypesglobal function integer gf_compactandrepairaccessdb (string as_mdb);//檢查數據庫文件是否存在 if not FIleExists(as_MDB) then return -1//創建臨時文件名string ls_tmpFIlels_tmpFIle =Space(255)GetTempPath(255,ls_tmpFIle)ls_tmpFIle+="temp.mdb"//創建DBEngineinteger resultoleobject ole_DBEngineole_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,sNewMDBsOldMDB = sProvider + 'Data Source= ' + as_MDBsNewMDB = sProvider + 'Data Source= ' + ls_tmpFIleole_DBEngine.CompactDatabase(sOldMDB, sNewMDB)destroy ole_DBEngine//拷貝剛剛壓縮過臨時數據庫文件至原來位置 FIleCopy(ls_tmpFIle,as_MDB,true)//刪除臨時文件FileDelete(ls_tmpFIle)return 0end function     3、調用方法  gf_compactandrepairaccessdb("E:\eNo\collect.mdb")        應注意的是，在壓縮和修復數據庫的過程中，不能有其它的操作打開該數據庫，否則操作會失敗，因此請先關閉掉該數據庫的連接，否則執行會報錯。        此外這個函數經過修改後，可實現備份數據庫的功能，相比較更簡單一些，這裡就不提供了。

webasp.net