Question

如何用ado控件方式压缩有密码的access数据库

Answer 1

ADO没有压缩ACCESS数据库的方法，需要借助其扩张功能Microsoft Jet OLE DB Provider and Replication Objects (JRO)

下面提供VB示例代码，演示单击命令按钮压缩带数据库密码的ACCESS数据库（c:\test\myTestDB.mdb）：

Private Sub Command1_Click()
    '代码务必先 工程-引用 Microsoft Jet and Replication Objects Library 类库
    Dim CompDB As New JRO.JetEngine
    Dim SourceDB As String  '源access数据库
    Dim TargetDB As String  '目标access数据库
    SourceDB = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\test\myTestDB.mdb;Jet OLEDB:Database Password='123';"
    TargetDB = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\test\myTestDB2.mdb;Jet OLEDB:Database Password='123';"
    CompDB.CompactDatabase SourceDB, TargetDB  '将源access数据库压缩到目标access数据库
    Kill "c:\test\myTestDB.mdb"  '删除源access数据库
    Name "c:\test\myTestDB2.mdb" As "c:\test\myTestDB.mdb"  '将压缩后的数据库改回源数据库名
    MsgBox "数据库压缩完毕"
End Sub