Access數(shù)據(jù)庫在線壓縮的實(shí)現(xiàn)
來源:易賢網(wǎng) 閱讀:778 次 日期:2014-10-16 09:23:54
溫馨提示:易賢網(wǎng)小編為您整理了“Access數(shù)據(jù)庫在線壓縮的實(shí)現(xiàn)”,方便廣大網(wǎng)友查閱!

Access數(shù)據(jù)庫在線壓縮的實(shí)現(xiàn):

如果在 Access 數(shù)據(jù)庫中刪除數(shù)據(jù)或?qū)ο?,或者?Access 項(xiàng)目中刪除對(duì)象,Access 數(shù)據(jù)庫或 Access 項(xiàng)目可能會(huì)產(chǎn)生碎片并會(huì)降低磁盤空間的使用效率。壓縮 Access 數(shù)據(jù)庫或Access項(xiàng)目實(shí)際上是復(fù)制該文件,并重新組織文件在磁盤上的存儲(chǔ)方式。壓縮同時(shí)優(yōu)化了 Access 數(shù)據(jù)庫和 Access 項(xiàng)目的性能。

所以我們在對(duì)日益增大的數(shù)據(jù)庫導(dǎo)致的ASP程序慢得無法忍受的時(shí)候,就想到了要壓縮他。但常規(guī)的做法把他下載到本地然后用MSaccess來完成壓縮操作,然后再上傳!后來我想是否可以在線實(shí)現(xiàn)對(duì)ACCESS數(shù)據(jù)庫的壓縮呢?為此我查了一些資料,但還是不得要領(lǐng)。

我在本機(jī)測試獲得成功,又上網(wǎng)對(duì)自己的動(dòng)網(wǎng)論壇實(shí)施了壓縮操作結(jié)果也完全正常,數(shù)據(jù)庫從原來的3.7M壓縮到了2.1M從而證實(shí)是可行的。需要注意的是:本程序其實(shí)是通過FSO權(quán)限和JET引擎連接,因此在使用之前請(qǐng)確認(rèn)你的服務(wù)器支持FSO(filesystemobject)權(quán)限并安裝的ACCESS最新驅(qū)動(dòng)!從安全出發(fā),請(qǐng)?jiān)趬嚎s之前備份原始數(shù)據(jù)庫!已經(jīng)測試通過的運(yùn)行環(huán)境:

WIN98SE+PWS、WIN2000+IIS5.0

下面是我整理后的源代碼,復(fù)制另存為compact.asp并上傳到數(shù)據(jù)庫所在目錄即可正常使用。

<html>

<head>

<title>ACCESS數(shù)據(jù)庫壓縮程序</title>

</head>

<body bgcolor="e0f8ef">

<div>

<div align="center"><font color="#3300FF"><b><font size="5">通用ACCESS數(shù)據(jù)庫在線壓縮程序</font></b></font><br>

</div>

<div><br>

本程序其實(shí)是通過FSO權(quán)限和JET引擎連接,因此在使用之前請(qǐng)確認(rèn)你的服務(wù)器支持FSO(filesystemobject)權(quán)限并安裝的ACCESS最新驅(qū)動(dòng)!從安全出發(fā),請(qǐng)?jiān)趬嚎s之前備份原始數(shù)據(jù)庫!</div><br>

<div align="center">運(yùn)行環(huán)境:在WIN98SE+PWS、WIN2000+IIS5.0 <br>

<%

Const JET_3X = 4

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

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

fso.CopyFile strDBPath & "temp.mdb",dbpath

fso.DeleteFile(strDBPath & "temp.mdb")

Set fso = nothing

Set Engine = nothing

CompactDB = "你的數(shù)據(jù)庫, " & dbpath & ", 已經(jīng)被壓縮" & vbCrLf

Else

CompactDB = "你輸入的數(shù)據(jù)庫路徑或名稱未找到,請(qǐng)重試" & vbCrLf

End If

End Function

%>

</div>

</div>

<form name="compact" method="post" action="compact.asp">

<div align="center"><font size="2"><b><font color="#FF0000">壓縮選項(xiàng),請(qǐng)仔細(xì)填寫!</font></b><br>

<br>

輸入數(shù)據(jù)庫全稱:

<input type="text" name="dbpath">

(包括擴(kuò)展名,如MDB、ASA、ASP等)<br>

<br>

<input type="checkbox" name="boolIs97" value="True">

檢查是否為ACCESS97數(shù)據(jù)庫<br>

(默認(rèn)為ACCESS2000的數(shù)據(jù)庫)<br>

<br>

<input type="submit" name="submit" value="確認(rèn)壓縮">

</font></div>

</form>

<div align="center"><font size="2">

<%

Dim dbpath,boolIs97

dbpath = request("dbpath")

boolIs97 = request("boolIs97")

If dbpath <> "" Then

dbpath = server.mappath(dbpath)

response.write(CompactDB(dbpath,boolIs97))

End If

%>

<br>

</font></div>

更多信息請(qǐng)查看IT技術(shù)專欄

更多信息請(qǐng)查看數(shù)據(jù)庫
易賢網(wǎng)手機(jī)網(wǎng)站地址:Access數(shù)據(jù)庫在線壓縮的實(shí)現(xiàn)
由于各方面情況的不斷調(diào)整與變化,易賢網(wǎng)提供的所有考試信息和咨詢回復(fù)僅供參考,敬請(qǐng)考生以權(quán)威部門公布的正式信息和咨詢?yōu)闇?zhǔn)!

2025國考·省考課程試聽報(bào)名

  • 報(bào)班類型
  • 姓名
  • 手機(jī)號(hào)
  • 驗(yàn)證碼
關(guān)于我們 | 聯(lián)系我們 | 人才招聘 | 網(wǎng)站聲明 | 網(wǎng)站幫助 | 非正式的簡要咨詢 | 簡要咨詢須知 | 加入群交流 | 手機(jī)站點(diǎn) | 投訴建議
工業(yè)和信息化部備案號(hào):滇ICP備2023014141號(hào)-1 云南省教育廳備案號(hào):云教ICP備0901021 滇公網(wǎng)安備53010202001879號(hào) 人力資源服務(wù)許可證:(云)人服證字(2023)第0102001523號(hào)
云南網(wǎng)警備案專用圖標(biāo)
聯(lián)系電話:0871-65099533/13759567129 獲取招聘考試信息及咨詢關(guān)注公眾號(hào):hfpxwx
咨詢QQ:526150442(9:00—18:00)版權(quán)所有:易賢網(wǎng)
云南網(wǎng)警報(bào)警專用圖標(biāo)