Board logo

標題: [發問] 求助,office2003轉office2016執行偵測錯誤階段'3706 請問如何修正 [打印本頁]
作者: HSIEN6001    時間: 2019-9-16 02:22     標題: 求助,office2003轉office2016執行偵測錯誤階段'3706 請問如何修正

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

求助,office2003轉office2016執行偵測錯誤階段'3706 請問如何修正?
另外,請問我的引用項目正確?
[attach]31266[/attach]
  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
複製代碼
作者: GBKEE    時間: 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" 可試試看
作者: HSIEN6001    時間: 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
複製代碼




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)