用代码压缩Access数据库时遇到的密码问题解决。

 程序本身是BS架构，但是需要从SQL Server 2005 中导出一部分表。有时导出的Access数据库有70多MB，于是想要压缩一下，于是在网上找到用于VS2003的代码。但是有个问题，原有的数据库我们是加了密码的，但是因为压缩数据库会创建另一个数据库，所以新压缩出来的数据库是没有密码的。

我也一时想不到是否可以在压缩完数据库动态加上密码。但错有错着，我打开原来未压缩的数据库时需要密码，无意之间在链接压缩数据库里也用了同样的密码参数。想不到Access会自动帮我为新压缩的数据库加上密码。完整的代码如下：

 

Public Function CompactMDB(ByVal mdbPath As String , Pwd as String) As Boolean '------------------------------------------------------ '编写时间：2009-7-9 14:32:22 '编 写 人：申志远 '参数说明：压缩数据库 '测试结果： '说 明： '------------------------------------------------------ Try Dim Engine As Object Dim tmpFile As String = System.Guid.NewGuid().ToString() & ".mdb" Dim tmpPath As String = mdbPath.Substring(0, mdbPath.LastIndexOf("/")) & "/" '创建JetEngine对象 Engine = CreateObject("JRO.JetEngine") '创建一个被压缩过的临时数据库 Engine.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbPath & ";Jet OLEDB:Database Password=" & Pwd & ";", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & tmpPath & tmpFile & ";Jet OLEDB:Database Password=" & Pwd & ";") '用临时数据库覆盖原数据库 System.IO.File.Copy(tmpPath & tmpFile, mdbPath, True) '删除临时数据库 System.IO.File.Delete(tmpPath & tmpFile) Return True Catch ex As Exception Return False Finally End Try End Function

 

mdbPath 为完整的待压缩的Access数据库路径，PWD为数据库的密码。这样压缩完后原有的密码一样有效，方便之极！