到现在,还没有人能解决这个问题！

Question

    DBEngine.RepairDatabase "c:\ciqlab\data\ciqlab.mdb"          修复数据库
    DBEngine.CompactDatabase "c:\ciqlab\data\ciqlab.mdb", _
        "c:\ciqlab\data\ciqtemp.mdb"                             压缩数据库
    If Dir("c:\ciqlab\data\ciqbak.mdb") <> "" Then
        Kill "c:\ciqlab\data\ciqbak.mdb"
    End If
    Name "c:\ciqlab\data\ciqlab.mdb" As "c:\ciqlab\data\ciqbak.mdb"
    Name "c:\ciqlab\data\ciqtemp.mdb" As "c:\ciqlab\data\ciqlab.mdb"
    MsgBox "完成", , "系统提示"

Answer 1

看看http://www.csdn.net/expert/topic/224/224470.shtm

Answer 2

If Day(Date) = 15 Or Day(Date) = 1 Then  '月中月初壓縮
    Dim jro As jro.JetEngine
    Set jro = New jro.JetEngine
    jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\pos_sys.mdb", _
    "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\thetemp.mdb;Jet OLEDB:Engine Type=4"
    FileCopy App.Path & "\thetemp.mdb", App.Path & "\pos_sys.mdb"
    Kill App.Path & "\thetemp.mdb"
    Set jro = Nothing
End If

Answer 3

Access 97用
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\pos_sys.mdb", _
    "Provider=Microsoft.Jet.OLEDB.3.5;Data Source=" & App.Path & "\thetemp.mdb;Jet OLEDB:Engine Type=4"
Access 2000用
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\pos_sys.mdb", _
    "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\thetemp.mdb;Jet OLEDB:Engine Type=4"