Asp.net在線備份、壓縮和修復Access數據庫示例代碼

1.問題的提出

在設計中小型Web應用程序時，可以選擇Microsoft Accesss為數據庫。在數據庫的使用過程中經常性進行增加和刪除操作。事實上，Microsoft Access並不能有效地釋放已分配的但被刪除的對象空間，這將意味著即使你刪除了一個對象，而這個對象仍然占據著數據庫的空間，使得數據庫越來越大。不但占用不必要的空間，而且降低了數據庫的效率。特別在虛擬站點上的問題尤為突出。因此對Access數據庫進行壓縮瘦身很有實際意義。
雖然Access數據庫自身具有“壓縮和修復數據庫”功能（工具è數據庫實用工具è壓縮和修復數據庫）。但對一般使用者來說操作不方便。通常Accesss數據庫放置在虛擬主機上，需要把它下載下來“壓縮修復”完後再傳上去很浪費時間，所以最好能在線對數據庫進行壓縮。

2.在線壓縮數據庫的實現

2.1.添加引用

在VS.Net環境的解決方案下添加引用。方法如下：項目→添加引用→選項卡→浏覽（c:/program files/comm files/System/ado/msjro.dll）。

2.2.創建Web應用程序窗體

在Web窗體(DataBase.aspx)上放置一個按鈕：
復制代碼 代碼如下:
<asp:Button ID="CompactBtn" runat="server" Text=" 壓縮數據庫 " OnClick="CompactBtn_Click" />
再添加一個Label控件：
<asp:Label ID="MsgLabel" runat="server"></asp:Label>

2.3.代碼狀態下，添加引用
復制代碼 代碼如下:
using System;
using System.IO;
using JRO;

2.4.添加代碼
復制代碼 代碼如下:
//壓縮數據庫
protected void CompactBtn_Click(object sender, EventArgs e)
{
string DbPath1, DbPath2, DbConn1, DbConn2;

DbPath1 = Server.MapPath("../App_Data/DataBase.mdb");//原數據庫路徑
DbPath2 = Server.MapPath("../App_Data/DataBase2.mdb");//壓縮後的數據庫路徑
DbConn1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + DbPath1;
DbConn2 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + DbPath2;

try
{
JetEngine DatabaseEngin = new JetEngine();
DatabaseEngin.CompactDatabase(DbConn1, DbConn2);//壓縮

File.Copy(DbPath2, DbPath1, true);//將壓縮後的數據庫覆蓋原數據庫
File.Delete(DbPath2);//刪除壓縮後的數據庫

MsgLabel.Text = "數據庫壓縮成功!";
}
catch
{
MsgLabel.Text = "數據庫壓縮失敗，請重試!";
}
}

3.備份數據庫

3.1.創建Web應用程序窗體

在Web窗體(DataBase2.aspx)上放置一個按鈕：
復制代碼 代碼如下:
<asp:Button ID="BackUpBtn" runat="server" Text=" 備份數據庫 " OnClick="BackUpBtn_Click" />
再添加一個Label控件：
<asp:Label ID="MsgLabel" runat="server"></asp:Label>

3.2.代碼狀態下，添加引用
復制代碼 代碼如下:
using System;
using System.IO;

3.3.添加代碼
復制代碼 代碼如下:
//備份數據庫
protected void BackUpBtn_Click(object sender, EventArgs e)
{
string DbPath1, DbPath2, DbName4DbPath2;

DbName4DbPath2 = DateTime.Now.ToString().Replace(":",".");
DbPath1 = Server.MapPath("../App_Data/DataBase.mdb");
DbPath2 = Server.MapPath("../App_Data/" + DbName4DbPath2 + ".mdb");

try
{
File.Copy(DbPath1, DbPath2, true);

MsgLabel.Text = "數據庫備份成功到" + DbName4DbPath2 + ".mdb!";
}
catch
{
MsgLabel.Text = "數據庫備份失敗，請重試!";
MsgLabel.CssClass = "redColor";
}
}

4.總結

經過壓縮使Microsoft Access真正釋放占據的多余空間，數據庫盡量減小，保證它最有效地運行。因此，在設計的過程中，不可忽視對Microsoft Access進行壓縮的重要性。
建議壓縮前先對數據庫進行備份。