返回列表 上一主題 發帖

[發問] 求助,office2003轉office2016執行偵測錯誤階段'3706 請問如何修正

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2019-9-16 02:22 | 只看該作者

[發問] 求助,office2003轉office2016執行偵測錯誤階段'3706 請問如何修正

本帖最後由 HSIEN6001 於 2019-9-16 02:25 編輯

求助,office2003轉office2016執行偵測錯誤階段'3706 請問如何修正?
另外,請問我的引用項目正確?
  1. Sub 分析()
  2. Dim myCN As New ADODB.Connection
  3. Dim myRS As New ADODB.Recordset
  4.     myCN.Provider = "Microsoft.Jet.OLEDB.4.0"
  5.     myCN.Properties("Data Source") = "D:\資訊.accdb.accdb"
  6.     myCN.Open
  7.       
  8.     With myRS
  9.         .Source = "SELECT * FROM [# 00 分析]"
  10.         .ActiveConnection = myCN
  11.         .CursorType = 3
  12.         .LockType = 3
  13.         .Open   '開啟資料表才能取得資料列
  14.             Sheets("解析").Select
  15.             Range("I65536").End(xlUp)(2).Select   '貼在[?66536]最末+1
  16.             ActiveCell.CopyFromRecordset myRS
  17.         .Close  '關閉資料表
  18.     End With
  19.     myCN.Close
  20. End Sub
複製代碼

3706.jpg (12.13 KB)

錯誤3706

3706.jpg

收藏 分享

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2019-9-16 11:05 | 只看該作者
回復 1# HSIEN6001
你2016版 設定  myCN.Provider = "Microsoft.Jet.OLEDB.4.0"   
可查看 https://social.msdn.microsoft.co ... b40-32bit-and-64bit
我最高版本2010 設為   .Provider = "Microsoft.ACE.OLEDB.12.0" 可試試看
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2019-9-16 11:54 | 只看該作者
回復 2# GBKEE

    感謝超級版主，總是很快的協助學生們，真心感謝
之前已經爬文修改過一次應用  .Provider = "Microsoft.ACE.OLEDB.12.0"
這段修正後，會出現找不到檔案 "D:\資訊.accdb.accdb"   ←←←看我多粗心 真糟糕 .accdb 拿掉後面多餘複製

輔助以相關套件的下載
Microsoft Access Database Engine 2010 可轉散發套件
http://www.microsoft.com/downloads/details.aspx?FamilyID=C06B8369-60DD-4B64-A44B-84B371EDE16D&displayLang=zh-tw


相關爬文:
http://frankiestudy.blogspot.com/2011/11/microsoftjetoledb40.html
http://sharedderrick.blogspot.com/2011/08/msg-7308msg-7320msg-7415-7302-7308-7415.html
https://www.microsoft.com/zh-tw/download/confirmation.aspx?id=13255

已經安裝可散發套件>執行結果成功了
PS:感謝願意在此提供協助的每一位，也謝謝其他分享使用經驗者，協助我們前進，


執行成功 ..^__^..
  1. Sub 分析()
  2. Dim myCN As New ADODB.Connection
  3. Dim myRS As New ADODB.Recordset
  4.     myCN.Provider = "Microsoft.ACE.OLEDB.12.0"
  5.     myCN.Properties("Data Source") = "D:\資訊.accdb"
  6.     myCN.Open
  7.       
  8.     With myRS
  9.         .Source = "SELECT * FROM [# 00 分析]"
  10.         .ActiveConnection = myCN
  11.         .CursorType = 3
  12.         .LockType = 3
  13.         .Open   '開啟資料表才能取得資料列
  14.             Sheets("解析").Select
  15.             Range("I65536").End(xlUp)(2).Select   '貼在[?66536]最末+1
  16.             ActiveCell.CopyFromRecordset myRS
  17.         .Close  '關閉資料表
  18.     End With
  19.     myCN.Close
  20. End Sub
複製代碼

TOP

        靜思自在 : 閒人無樂趣，忙人無是非。
返回列表 上一主題