Office中国论坛/Access中国论坛

标题: ACCESS2010 [打印本页]

作者: niculas 时间: 2016-7-9 20:12
标题: ACCESS2010
如何用VBA实现数据库压缩？

作者: roych 时间: 2016-7-11 09:41

Sub test()
Dim db As New DBEngine
db.CompactDatabase CurrentProject.Path & "\tt.accdb", CurrentProject.Path & "\tt1.accdb"
End Sub

复制代码

大体这样。需要注意的是：
1、不能对当前使用的数据库进行压缩。也就是说，如果你要压缩A数据库，就必须建立一个B数据库文件，然后在B数据库里创建一个模块，把上面的代码贴上，运行后才能压缩A数据库。
2、也许你已经留意到了，压缩后的文件是一个新的数据库文件，即tt1.accdb

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)