Asp.net在线压缩和修复Access数据库
阅读:2705
添加日期:2021/3/22 16:07:19
"
1. 在项目中添加引用msjro.dll(c:\program files\comm files\System\ado\msjro.dll);
2. 引用 using JRO;
3.实现
Dim Path1 As String, Path2 As String, DbConn1 As String, DbConn2 As String
Path1 = Server.MapPath("aa.mdb") '原数据库
Path2 = Server.MapPath("db2.mdb") '压缩后的数据库
DbConn1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Path1
DbConn2 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Path2
Dim DatabaseEngin As JetEngine = New JetEngine()
DatabaseEngin.CompactDatabase(DbConn1, DbConn2) '压缩
File.Copy(Path2, Path1, True) '将压缩后的数据库覆盖原数据库
File.Delete(Path2) '删除压缩后的数据库
