您好,登錄后才能下訂單哦!
這篇文章主要介紹“ASP在線壓縮access數(shù)據(jù)庫的方法”,在日常操作中,相信很多人在ASP在線壓縮access數(shù)據(jù)庫的方法問題上存在疑惑,小編查閱了各式資料,整理出簡單好用的操作方法,希望對大家解答”ASP在線壓縮access數(shù)據(jù)庫的方法”的疑惑有所幫助!接下來,請跟著小編一起來學(xué)習(xí)吧!
ASP在線壓縮ACCESS數(shù)據(jù)庫原理很簡單:利用JRO.JetEngine的壓縮功能建立一個新的數(shù)據(jù)庫文件,然后把原來的刪掉、替換!既然這樣,壓縮程序只需幾行就ok了!
把下面的代碼保存為**.asp,數(shù)據(jù)庫文件(db.md)放在相同目錄下,執(zhí)行asp搞定!
<% oldDB = server.mappath("db.mdb") '更改數(shù)據(jù)庫地址 newDB = server.mappath("db_new.mdb") '生成臨時文件 Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set Engine = Server.CreateObject("JRO.JetEngine") prov = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Engine.CompactDatabase prov & OldDB, prov & newDB set Engine = nothing FSO.DeleteFile oldDB '刪除臨時文件 FSO.MoveFile newDB, oldDB set FSO = Nothing response.write "OK" %>
下面是一個ASP在線壓縮ACCESS數(shù)據(jù)庫的封裝函數(shù)
Function CompactDB(dbPath, boolIs97) Dim fso, Engine, strDBPath strDBPath = left(dbPath,instrrev(DBPath,"\")) Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(dbPath) Then Set Engine = CreateObject("JRO.JetEngine") On Error Resume Next If boolIs97 = "True" Then Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, _ "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb;" _ & "Jet OLEDB:Engine Type=" & JET_3X Else Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, _ "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb" End If If Err Then response.write "<script LANGUAGE='javascript'>alert('無法識別數(shù)據(jù)庫類型.');history.go(-1);</script>" response.end end if fso.CopyFile strDBPath & "temp.mdb",dbpath fso.DeleteFile(strDBPath & "temp.mdb") Set fso = nothing Set Engine = nothing CompactDB = "<script>alert('壓縮成功!');javascript:history.go(-1);</script>" Else CompactDB = "<script>alert('找不到數(shù)據(jù)庫!\n請檢查數(shù)據(jù)庫路徑是否輸入錯誤!');history.back();</script>" End If End Function
總結(jié)
到此,關(guān)于“ASP在線壓縮access數(shù)據(jù)庫的方法”的學(xué)習(xí)就結(jié)束了,希望能夠解決大家的疑惑。理論與實踐的搭配能更好的幫助大家學(xué)習(xí),快去試試吧!若想繼續(xù)學(xué)習(xí)更多相關(guān)知識,請繼續(xù)關(guān)注億速云網(wǎng)站,小編會繼續(xù)努力為大家?guī)砀鄬嵱玫奈恼拢?/p>
免責(zé)聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點不代表本網(wǎng)站立場,如果涉及侵權(quán)請聯(lián)系站長郵箱:is@yisu.com進(jìn)行舉報,并提供相關(guān)證據(jù),一經(jīng)查實,將立刻刪除涉嫌侵權(quán)內(nèi)容。