如何压缩或修复 MDB文件（文件格式Access 2000 或以上，而不是97）？

wzxiaodu 2004-08-15 07:09:23

用vb6 如何压缩或修复 MDB文件（文件格式Access 2000 或以上，而不是97）？

...全文

382 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

wzxiaodu 2004-08-16

打赏
举报

哈，真的行啊。谢谢大家了。
不知以前怎么搞的。郁闷！！！

haohaohappy 2004-08-16

打赏
举报

我的也没问题呀，你的怎么会不行呢？

vbman2003 2004-08-16

打赏
举报

我的代码Access 2000没问题
我完成的程序中用过，修复压缩备份一举三得

of123 2004-08-16

打赏
举报

Access 2000 可以压缩，没问题。

wzxiaodu 2004-08-16

打赏
举报

楼上两种方法Access 97格式我用过，都行的。
但不适合于Access 2000的格式？
你们用的是2000格式吗？
有方法可以解决吗？

vbman2003 2004-08-15

打赏
举报

以下代码可以压缩修复数据库：
在工程中引用　Microsoft Jet and Replication Objects 2.1 library
Sub BackupMdb(strBack As String)
Dim miJRO As jro.JetEngine
Set miJRO = New jro.JetEngine
miJRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0; " _
& "Data Source=" & App.Path & "\SailorManage.mdb;" _
& "Jet OLEDB:Database Password=abc", _
"Provider=Microsoft.Jet.OLEDB.4.0; " _
& "Data Source=" & strBack & ";" _
& "Jet OLEDB:Database Password=abc"
End Sub
其中strBack是修复后数据库文件存放路径和名称字符串。

haohaohappy 2004-08-15

打赏
举报

1。修复数据库
DBEngine.Repairdatabase sdatabase
其中sdatabase是MDB数据库得路径
2.压缩数据库
Dbengine.compactdatabase strInput,StrOutput
其中strInput是要压缩数据库得路径StrOutput是要压缩到哪里得数据库路径