ms-access - Access 错误3443:无法识别的数据库格式'databasename.mdb'

尝试从VB应用程序使用MDB文件时，可能导致上述错误的原因是什么？

MDB文件的访问版本为6.68。

我感觉这可能是由于有人试图从较新版本的Access中打开.mdb文件而引起的，并且它可能损坏了MDB。

这个问题怎么解决？

最佳答案

这是一些VBScript，希望可以为您提供一个版本。将其保存在带有vbs扩展名的普通文本文件中，然后将mdb拖放到其上。这是一个非常快速的草图，并且仅经过了粗略的测试。

Set fs = CreateObject("Scripting.FileSystemObject")

If WScript.Arguments.Count > 0 Then
    sPath = WScript.Arguments.Item(0)
Else
    sPathTemp = Left(WScript.ScriptFullname, _
        InStrRev(WScript.ScriptFullname, "\"))

    sPath = InputBox("Enter Path and Name of .mdb", "Get Ver", sPathTemp)
End If

If sPath = "" Or fs.FileExists(sPath) = False _
    Or Right(sPath, 4) <> ".mdb" Then

    MsgBox "Not a valid file: " & vbCrLf & sPath, 64, "Get Ver"
Else

    Set cnnDB = CreateObject("ADODB.Connection")
    cnnDB.Provider = "Microsoft.Jet.OLEDB.4.0"
    cnnDB.Mode = 1 ''adModeRead

    On Error Resume Next
    cnnDB.Open sPath

    If Err.Number <> 0 Then
         MsgBox "Error"
    Else
        MsgBox "4 = Access 97, 5 = Access 2000 (2002?)" & vbcrlf & _
        "Value for " & sPath & " is: " & _
        cnnDB.Properties.Item("Jet OLEDB:Engine Type").Value
        cnnDB.Close
    End If
End If