ACCESS2010

niculas

如何用VBA实现数据库压缩？

roych

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

复制代码

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