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處 提示不可識別的資料庫格式，求教
uj5u.com熱心網友回復：
http://bbs.csdn.net/topics/392143402uj5u.com熱心網友回復：
人事管理.mdb是用access的什么版本創建的？建議你用oledb的方式讀取它，這樣和access版本就無關了。uj5u.com熱心網友回復：
mydata字串應該不正確，cnn實際執行的是一條錯誤的連接。好像是 mydata = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\人事管理.mdb;Persist Security Info=False"
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/51413.html
標籤：VBA