返回列表 上一主題 發帖

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

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

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

求助,office2003轉office2016執行偵測錯誤階段'3706 請問如何修正?
另外,請問我的引用項目正確?

引用項目正確?

3706.jpg
2019-9-16 02:24
  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

3706.jpg

回復 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

回復 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

        靜思自在 : 難行能行,難捨能捨,難為能為,才能昇華自我的人格。
返回列表 上一主題