返回列表 上一主題 發帖

[發問] 編譯錯誤-ADODB.Connection

yifan2599
　暱稱: Mick

贊助會員Rank: 2

帖子
37 
主題
10 
精華
0 
積分
55 
點名
0  
作業系統
Win10(x64) 
軟體版本
Office 2016 (x64) 
閱讀權限
30 
性別
男 
註冊時間
2011-1-31 
最後登錄
2021-9-15 

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

[發問] 編譯錯誤-ADODB.Connection

請問有人知道為什麼嗎?

是哪個環節沒設定好?



收藏 分享
人生不一定球球是好球，但是有歷練的強打者，隨時都可以揮棒。

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-2-26 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
2#
發表於 2016-9-4 23:22 | 只看該作者
回復 1# yifan2599


    引用錯誤！
要下面這個， x.x 版本自選

Microsoft ActiveX Data Objects x.x Library

TOP

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-2-26 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
3#
發表於 2016-9-4 23:34 | 只看該作者
回復 1# yifan2599

一個模型塊讓你試，不用引用項目
    Dim myCon As Object, myRs As Object
    Dim arr, i%, SQL$
    arr = Sheets("工作表3").Range("A2:B74")
    Dim myCon As ADODB.Connection '連結資料庫
    Dim myRs As ADODB.Recordset '連結資料表
    Set myCon = New ADODB.Connection
    myCon.Open "provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & ThisWorkbook.Path & "\Db.accdb;"
    For i = 1 To UBound(arr) ''開始匯入到資料庫
        SQL = "INSERT INTO " & "部門" & "(單位代號,單位名稱)" & _
        " VALUES('" & arr(i, 2) & "','" & arr(i, 1) & "')"
        Set myRs = myCon.Execute(SQL)
    Next
    myCon.Close '關閉 myCon
    Set myRs = Nothing '設定 myRS 為 Nothing
    Set myCon = Nothing '設定 myCon 為 Nothing

TOP

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-2-26 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
4#
發表於 2016-9-5 00:43 | 只看該作者
本帖最後由 lpk187 於 2016-9-5 00:45 編輯

回復 1# yifan2599


    對不起！！3樓的代碼是要引用才對，下則才不用引用項目
  1. Public Sub ex()
  2. Dim i%, arr
  3. Dim myCon As Object, myRs As Object, SQL$
  4.     arr = Sheets("工作表3").Range("A2:B74")
  5.     Set myCon = CreateObject("ADODB.Connection")
  6.     Set myRs = CreateObject("ADODB.Recordset")
  7.     myCon.Open "provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & ThisWorkbook.Path & "\Db.accdb;"
  8.     For i = 1 To UBound(arr) ''開始匯入到資料庫
  9.         SQL = "INSERT INTO " & "部門" & "(單位代號,單位名稱)" & _
  10.         " VALUES('" & arr(i, 2) & "','" & arr(i, 1) & "')"
  11.         Set myRs = myCon.Execute(SQL)
  12.     Next
  13.         Set myRs = Nothing
  14.     myCon.Close
  15.     Set myCon = Nothing

  17. End Sub
複製代碼

TOP

Changbanana

帖子
76 
主題
17 
精華
0 
積分
95 
點名
0  
作業系統
windowsxp 
軟體版本
office2007 
閱讀權限
20 
性別
女 
註冊時間
2016-8-19 
最後登錄
2021-5-5 

論壇贊助勳章
5#
發表於 2017-3-27 13:44 | 只看該作者
回復 4# lpk187


想請教您若資料庫有設定密碼
  1.   myCon.Open "provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & ThisWorkbook.Path & "\Db.accdb;"
複製代碼
改成
  1.   myCon.Open "provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & ThisWorkbook.Path & "\Db.accdb;"& "Jet OLEDB:Database Password=abcd;"
複製代碼
但是這樣依舊會出現錯誤如畫面
圖片1.png

想請教是哪邊出問題，麻煩您了

TOP

        靜思自在 : 人要知福、惜福、再造福。
返回列表 上一主題