返回列表下一主題上一主題發帖

[發問] Excel VBA + Access 的問題…

darrenlien

小學生 Rank: 1

帖子: 6
主題: 2
精華: 0
積分: 6
點名: 0
作業系統: Windows 7 x64
軟體版本: Office 2010
閱讀權限: 10
性別: 男
註冊時間: 2014-7-18
最後登錄: 2014-10-21

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-8-22 16:26 | 只看該作者

[發問] Excel VBA + Access 的問題…

請問：
小弟欲使用Excel VBA + Access來撰寫程式，所以買了書來研究，但是令人氣餒的是，
我連執行書中的範例都出問題，書中是有提到若是安裝Office 64位元的(因為我是安裝
Office 2010 64位元版)，要去下載「Microsoft.Jet.OLEDB」的64位元版本安裝，我
也下載了並安裝了(按我進入連結)，
但是，執行該程式依舊出錯，以下列出該程式的一部份(附件是程式的完整版)；安裝上
述Microsoft.Jet.OLEDB的64位元版後，執行該程式的【新增記錄】，就出現下圖錯誤：

而查了一下網路上一些解決方法，將

.Provider = "Microsoft.Jet.OLEDB.4.0

複製代碼

改成

Provider = "Microsoft.ACE.OLEDB.12.0

複製代碼

後，上述圖片的錯誤是解決了，但是
卻換成以下的錯誤訊息：

網路上、論壇上也找不到相關的解決方法，請問這個問題要如何解決呢?
謝謝!!

註：
1、附件"CH21.rar"是該書所附的原始程式，我一個字都沒有改過。
2、附件"CH21_Modify.rar"，是我將OLEDB4.0改成OLEDB.12.0的程式碼。

CH21.rar (73.32 KB) (原始程式)

CH21_Modify.rar (87.79 KB) (自行改過的程式碼)

Sub AddTransfer(Style As Variant, FromStore As Variant, ToStore As Variant, Qty As Integer)
' Page 21-6
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
MyConn = ThisWorkbook.Path & Application.PathSeparator & "transfers.mdb"
MyConn = "Driver=Microsoft Access Driver (*.mdb);DBQ=" & MyConn
'MyConn = "Driver=Microsoft Access Driver (*.accdb);DBQ=D:\CH21\Transfers.accdb"
' 開啟連線
Set cnn = New ADODB.Connection
With cnn
.Provider = "Microsoft.ACE.OLEDB.12.0"
'.Provider = "Microsoft.Jet.OLEDB.4.0"
.Open MyConn
End With
' 定義記錄集
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseServer
' 開啟資料表
rst.Open Source:="tblTransfer", ActiveConnection:=cnn, _
CursorType:=adOpenDynamic, LockType:=adLockOptimistic, _
Options:=adCmdTable
' 新增一筆記錄
rst.AddNew