[求助]如何在EXCEL中用VBA压缩ACCESS数据库？

渔君

如何在EXCEL中用VBA压缩ACCESS数据库？我在EXCEL中用ADO和SQL操作ACCESS，由于执行一个较大的查询时，程序中需要反复不断的运算输出数据并删除再重算，一个程序中重复几百次，导致数据库体积不断膨胀达八百多兆，速度很慢，如何在程序中加入压缩数据库的代码，能不能提高速度？谢谢！

jilijun

有三种方法：

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)

渔君

感谢jilijun的帮助，您是高手呐，敬佩！

在程序内connection没有断开时压缩，压缩为原来的名字，也需要目标数据库的名字吗？

[此贴子已经被作者于2008-10-8 14:08:03编辑过]

zez

学习了

彭希仁

非常谢谢,学习了

zhaozyuan

原帖由 jilijun 于 2008-10-7 20:33 发表
有三种方法：1.引用DAO3.6压缩Private Sub Command1_Click()On Error GoTo Err_Handle    Dim dbE As New DAO.DBEngine    dbE.CompactDatabase "C:\要压缩的.mdb", "B:\压缩后的.mdb ...

您很厉害呀

YincyHe

jilijun 发表于 2008-10-7 20:33
有三种方法：1.引用DAO3.6压缩Private Sub Command1_Click()On Error GoTo Err_Handle    D ...

你的方法是对其他的数据库进行操作，但是有没有方法可以用代码来压缩当前的这个数据库？
因为现在希望不能打开菜单来进行任何修改等动作，所以想要添加一个按钮，点击它就会压缩和修复当前数据库。

dl0506

YincyHe 发表于 2013-2-19 15:52
你的方法是对其他的数据库进行操作，但是有没有方法可以用代码来压缩当前的这个数据库？
因为现在希望不 ...

后来有实现的方法了吗？
现在也遇到这个问题

YincyHe

dl0506 发表于 2015-8-20 17:27
后来有实现的方法了吗？
现在也遇到这个问题

很遗憾，没有找到好的解决方法

1583478094

太感谢了，找这个代码找了很久，总算找到了