返回列表 上一主題 發帖

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

lpk187

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

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 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-7-9 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
2#
發表於 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-7-9 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
3#
發表於 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

        靜思自在 : 口說好話、心想好意、身行好事。
返回列表 上一主題