VBA 提示不可识别的数据库格式
G_JCh 2017-11-17 02:29:45 Public Sub 创建数据库()
Dim cnn As ADODB.Connection '定义Connection对象变量
Dim mydata As String '定义字符串变量
Dim cmd As ADODB.Command
' Dim fs As New Scripting.FileSystemObject
Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
'定义Command对象变量
mydata = ThisWorkbook.Path & "\人事管理.mdb"
'利用FSO对象模型检查是否有数据库文件"人事管理.mdb"
If fs.FileExists(mydata) = False Then
MsgBox "还没有人事管理数据库!" & "系统将自动创建人事管理数据库!", vbExclamation, "注意"
Set myaccess = CreateObject("Access.Application")
myaccess.NewCurrentDatabase mydata
myaccess.CloseCurrentDatabase
Set myaccess = Nothing
End If
Set fs = Nothing
'建立与数据库"人事管理.mdb"的连接
Set cnn = New ADODB.Connection
With cnn
.Provider = "microsoft.jet.oledb.4.0"
.Open mydata
End With
运行后在open mydata处 提示不可识别的数据库格式,求教