在Office2000里如何自动修复后台文件？

李寻欢

下面有两个函数，但我都用不了，我试过引用dao3.5及dao3.6都无法使用下面两个函数，是什么原因？谁有其它代码可以修复后台数据库的？
我用了JRO，但它好象只能压缩而不能修复，是这样的吗？

这是小七的例子：
Function RepDB(strDBPathName As String)
On Error GoTo err_RepDB
dbengine.RepairDatabase strDBPathName
RepDB = "ass"
Exit Function
err_RepDB:
Select Case Err.Number
    Case 3356
        MsgBox Err.Description & vbLf & _
            "准备修复的数据库处于打开状态，请关闭所有操作后重试！"
    Case Else
        MsgBox Err.Description
End Select
RepDB = CVErr(65535)
End Function

这是KOMAZ的例子：
Function RepairDatabase(strSource As String, _
        strDestination As String) As Boolean
        ' Input values: the paths and file names of
        ' the source and destination files.

    ' Trap for errors.
    On Error GoTo error_handler

    ' Compact and repair the database. Use the return value of
    ' the CompactRepair method to determine if the file was
    ' successfully compacted.
    RepairDatabase = _
        Application.CompactRepair( _
        Logfile:=True, _
        Sourcefile:=strSource, _
        Destinationfile:=strDestination)

    ' Reset the error trap and exit the function.
    On Error GoTo 0
    Exit Function

' Return False if an error occurs.
error_handler:
    RepairDatabase = False

End Function

zhuyiwen

在我的记忆中，ACCESS 2000 以后的版本中取消了修复功能，而且不能使用修复/压缩功能来对当前数据库进行操作。

李寻欢

那可就麻烦了，每次都要手动来修复。

zhuyiwen

可能 MS 认为当前电脑的供电情况越来越好的缘故吧，呵呵

不过我建议，既然用到后台数据库，何升级到MSDE呢？微软在MSDE的支持越来越好，而且当前的电脑设备也越来越好，更何况MSDE支持事务日志，安全性也更好，许可证协议与ACCESS JET类似，也能支持从WIN95到XP多种系统平台，多用户支持从5到25个。

罗嗦了！