- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]access数据库压缩和修复 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=70159)
-- 发布时间：2015/6/16 17:00:00
-- [求助]access数据库压缩和修复
使用access做数据库，且加密了。但它在使用一段时间后很臃肿，如何调用access的压缩和修复数据库？
-- 发布时间：2015/6/16 17:00:00
--
打开ACCESS文件,菜单里就有压缩功能
-- 发布时间：2015/6/17 11:57:00
--
这个我知道。如何在狐表中直接执行呢？因为软件交付后不能允许用户打开数据库嘛
-- 发布时间：2015/6/17 12:13:00
--
压缩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替换掉它。
[此贴子已经被作者于2015/6/17 12:13:29编辑过]
-- 发布时间：2015/7/17 17:35:00
--
袍兄，这个是mdb的，2007是accdb格式的，而且在加密情况下不能简单这样做
-- 发布时间：2015/7/17 17:36:00
--
一样的意思，连接字符串你改一下，再加上密码就行。
-- 发布时间：2015/7/18 22:49:00
--
袍兄，试过了哟，不行咧。
我在网上也查了些资料，说是不能直接用mdb的代码。
-- 发布时间：2015/7/19 10:13:00
--
哦，测试了一下，如果要压缩，就必须添加dll文件才能做。
http://blog.sina.com.cn/s/blog_4127feea0100gicq.html