| 導購 | 订阅 | 在线投稿
分享
 
 
 

實例講解Access數據庫在線壓縮的實現方法

來源:互聯網  2008-08-07 07:34:55  評論

如果在 Access 數據庫中刪除數據或對象,或者在 Access 項目中刪除對象,Access 數據庫或 Access 項目可能會産生碎片並會降低磁盤空間的使用效率。壓縮 Access 數據庫或Access項目實際上是複制該文件,並重新組織文件在磁盤上的存儲方式。壓縮同時優化了 Access 數據庫和 Access 項目的性能。

所以我們在對日益增大的數據庫導致的ASP程序慢得無法忍受的時候,就想到了要壓縮他。但常規的做法把他下載到本地然後用MSaccess來完成壓縮操作,然後再上傳!

需要注意的是:本程序其實是通過FSO權限和JET引擎連接,因此在使用之前請確認你的服務器支持FSO(filesystemobject)權限並安裝的ACCESS最新驅動!從安全出發,請在壓縮之前備份原始數據庫!已經測試通過的運行環境:

WIN98SE+PWS、WIN2000+IIS5.0

下面是我整理後的源代碼,複制另存爲compact.asp並上傳到數據庫所在目錄即可正常使用。

<html>

<head>

<title>ACCESS數據庫壓縮程序</title>

</head>

<body bgcolor="e0f8ef">

<div>

<div align="center"><font color="#3300FF">

<b><font size="5">通用ACCESS數據庫在線壓縮程序</font></b></font><br>

</div>

<div><br>

本程序其實是通過FSO權限和JET引擎連接,

因此在使用之前請確認你的服務器支持FSO

(filesystemobject)權限並安裝的ACCESS最新驅動!

從安全出發,請在壓縮之前備份原始數據庫!</div><br>

<div align="center">運行環境:在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 = "你的數據庫, " & dbpath & ", 已經被壓縮" & vbCrLf

Else

CompactDB = "你輸入的數據庫路徑或名稱未找到,請重試" & 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">

壓縮選項,請仔細填寫!</font></b><br>

<br>

輸入數據庫全稱:

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

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

<br>

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

檢查是否爲ACCESS97數據庫<br>

(默認爲ACCESS2000的數據庫)<br>

<br>

<input type="submit" name="submit" value="確認壓縮">

</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></body></html>

如果在 Access 數據庫中刪除數據或對象,或者在 Access 項目中刪除對象,Access 數據庫或 Access 項目可能會産生碎片並會降低磁盤空間的使用效率。壓縮 Access 數據庫或Access項目實際上是複制該文件,並重新組織文件在磁盤上的存儲方式。壓縮同時優化了 Access 數據庫和 Access 項目的性能。 所以我們在對日益增大的數據庫導致的ASP程序慢得無法忍受的時候,就想到了要壓縮他。但常規的做法把他下載到本地然後用MSaccess來完成壓縮操作,然後再上傳! 需要注意的是:本程序其實是通過FSO權限和JET引擎連接,因此在使用之前請確認你的服務器支持FSO(filesystemobject)權限並安裝的ACCESS最新驅動!從安全出發,請在壓縮之前備份原始數據庫!已經測試通過的運行環境: WIN98SE+PWS、WIN2000+IIS5.0 下面是我整理後的源代碼,複制另存爲compact.asp並上傳到數據庫所在目錄即可正常使用。 <html> <head> <title>ACCESS數據庫壓縮程序</title> </head> <body bgcolor="e0f8ef"> <div> <div align="center"><font color="#3300FF"> <b><font size="5">通用ACCESS數據庫在線壓縮程序</font></b></font><br> </div> <div><br> 本程序其實是通過FSO權限和JET引擎連接, 因此在使用之前請確認你的服務器支持FSO (filesystemobject)權限並安裝的ACCESS最新驅動! 從安全出發,請在壓縮之前備份原始數據庫!</div><br> <div align="center">運行環境:在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 = "你的數據庫, " & dbpath & ", 已經被壓縮" & vbCrLf Else CompactDB = "你輸入的數據庫路徑或名稱未找到,請重試" & 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"> 壓縮選項,請仔細填寫!</font></b><br> <br> 輸入數據庫全稱: <input type="text" name="dbpath"> (包括擴展名,如MDB、ASA、ASP等)<br> <br> <input type="checkbox" name="boolIs97" value="True"> 檢查是否爲ACCESS97數據庫<br> (默認爲ACCESS2000的數據庫)<br> <br> <input type="submit" name="submit" value="確認壓縮"> </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></body></html>
󰈣󰈤
 
 
 
>>返回首頁<<
 
 
 
 
 熱帖排行
 
王朝網路微信公眾號
微信掃碼關註本站公眾號 wangchaonetcn
 
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有