经常性进行增加和删除操作。事实上,Microsoft Access并不能有效地释放已分配的但被删除的对象空间,这将意味着即使你删除了一个对象,而这个对象仍然占据着数据库的空间,使得数据库越来越大。不但占用不必要的空间,而且降低了数据库的效率。特别在虚拟站点上的问题尤为突出。因此对Access数据库进行压缩瘦身很有实际意义。
工具è数据库实用工具è压缩和修复数据库)。但对一般使用者来说操作不方便。通常Accesss数据库放置在虚拟主机上,需要把它下载下来“压缩修复”完后再传上去很浪费时间,所以最好能在线对数据库进行压缩。
<asp:Button ID="Compact
BTn" runat="server" Text=" 压缩数据库 " OnClick="CompactBtn_Click" />
再添加一个Label控件:
<asp:Label ID="MsgLabel" runat="server"></asp:Label>
//压缩数据库
protected void CompactBtn_Click(object sender, Event
args e)
{
string DbPat
h1, DbPath2, DbCon
n1, 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
{
JetEn
gine DatabaseEngin = new JetEngine();
DatabaseEngin
.COMpactDatabase(DbConn1, DbConn2);//压缩
File.Copy(DbPath2, DbPath1, true);//将压缩后的数据库覆盖原数据库
File.Delete(DbPath2);//删除压缩后的数据库
MsgLabel.Text = "数据库压缩成功!";
}
catch
{
MsgLabel.Text = "数据库压缩失败,请重试!";
}
}
//备份数据库
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";
}
}