尝试从 VB 应用程序使用 MDB 文件时,可能是什么原因导致上述错误?
MDB文件 Access 版本为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
关于ms-access - Access 错误 3443 : Unrecognized database format 'databasename.mdb' ,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/2787159/