这段代码正确吗？

Question

关于 Jet ENGINE压缩数据库文件的。Dim jro As jro.JetEngine
Set jro = New jro.JetEnginejro.CompactDatabase _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\source.mdb" _
";Jet OLEDB:Database Password=pwd", _   
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\target.mdb;Jet OLEDB:Engine Type=5" _
;Jet OLEDB:Database Password=pwd" 道谢。

Answer 1

我的不加密码
Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\nwind2.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\abbc2.mdb;Jet OLEDB:Engine Type=4" 应该没问题

Answer 2

为什么我的出问题？每次删除记录后调用这段代码就出现一个“已经被用户ADMIN使用”的提示？菜鸟再谢

Answer 3

压缩access数据库不是要以独占的方式打开吗？!

Answer 4

Dim miJRO As JRO.JetEngine
    Set miJRO = New JRO.JetEngine
    miJRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0; " _
        & "Data Source=" & App.Path & "\youDB.mdb;" _
        & "Jet OLEDB:Database Password=abc", _
    "Provider=Microsoft.Jet.OLEDB.4.0; " _
        & "Data Source=d:\backDB.mdb";" _
        & "Jet OLEDB:Database Password=abc"这段代码，要关闭其它与数据库的连接

Answer 5

我怀疑跟ACCESS的版本有关。5.0以下是只能独占打开的。

Answer 6

为什么不能直接覆盖原有.mdb文件？ACCESS 2000就可以啊

Answer 7

我发现这段压缩代码没起作用。*.mdb还是原来那么大。头晕晕的

Answer 8

Dim jro As jro.JetEngine
Set jro = New jro.JetEnginejro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\source.mdb" _
";Jet OLEDB:Database Password=pwd", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\target.mdb;Jet OLEDB:Engine Type=5" _
;Jet OLEDB:Database Password=pwd" 这段代码中的Jet OLEDB:Engine Type=5的类型有几种啊？那里有这个的详细说明呢？准备结贴中……