VBA怎么压缩accdb格式的Access数据库

wuyunxz

请问这么使用VBA压缩附件里面的数据库（含密码="123"）。

数据库是2010版的


附件：

yf_home

试试这个，来源：http://club.excelhome.net/thread-359331-1-1.html
有三种方法：
1.引用DAO3.6压缩
Private Sub Command1_Click()
On Error GoTo Err_Handle
    Dim dbE As New DAO.DBEngine
    dbE.CompactDatabase "C:\要压缩的.mdb", "B:\压缩后的.mdb"
    Exit Sub
Err_Handle:
    MsgBox Err.Description
    Exit Sub
End Sub
2.用jet引擎压缩数据库
工程-引入 Microsoft Jet and Replication Objects Library
Private Sub Command1_Click()
Dim FIXDB As New JRO.JetEngine
FIXDB.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:aa.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:aac.mdb"
End Sub
’CompactDatabase 第一个参数是原始数据库，第二个是目标数据库
3.引用ACCESS压缩数据库
設定引用項目 Microsoft Access X.X Object Library
    Dim objAcc As New Access.Application
或
    Dim objAcc As Object
    Set objAcc = CreateObject("Access.Application")
之後
    Call objAcc.CompactRepair("c:\要压缩的.mdb", "C:\压缩后的", False)

wuyunxz

找不到大神，唉

ycz22

Sub CompactMDB()
   Dim FIXDB As New JRO.JetEngine
   '将原数据库压缩输出新数据库
   FIXDB.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\OLL.MDB;Jet OLEDB:Database Password=123", _
   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\OLL1.MDB;Jet OLEDB:Database Password=123"
   '将原数据库删除
   Kill ThisWorkbook.Path & "\OLL.MDB"
   '将新数据库重命名回原数据库
   Name ThisWorkbook.Path & "\OLL1.MDB" As ThisWorkbook.Path & "\OLL.MDB"
End Sub

F9458808

ycz22 发表于 2024-12-11 15:04
Sub CompactMDB()
   Dim FIXDB As New JRO.JetEngine
   '将原数据库压缩输出新数据库

能压缩2007版本Accdb格式吗？正需要这个