主题：[求助]access数据库压缩和修复

使用access做数据库，且加密了。但它在使用一段时间后很臃肿，如何调用access的压缩和修复数据库？

打开ACCESS文件,菜单里就有压缩功能

这个我知道。如何在狐表中直接执行呢？因为软件交付后不能允许用户打开数据库嘛

 压缩Access这样做

 

Dim objJRO = CreateObject("JRO.JetEngine")
Dim strS As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\foxtable\商业版\CaseStudy\test.MDB"
Dim strD As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\test.MDB"
objJRO.CompactDatabase(strS, strD)
msgbox("ok")

 

 压缩字符串自己定义，压缩完毕以后，你可以删除strS，然后用strD替换掉它。

袍兄，这个是mdb的，2007是accdb格式的，而且在加密情况下不能简单这样做

 一样的意思，连接字符串你改一下，再加上密码就行。

袍兄，试过了哟，不行咧。

 哦，测试了一下，如果要压缩，就必须添加dll文件才能做。

 

http://blog.sina.com.cn/s/blog_4127feea0100gicq.html