VBA 連結資料庫及Select的問題

請問高手大大~

以下這段程式之前在執行是OK的~不過現在卻在[ conn.Open FConnection]出現[找不到提供者,它可能未被正確安裝],但不知道引用項目有缺什麼!?

目前引用項目https://docs.google.com/file/d/0B3N34LBzgVQLekpiZT...

Dim FConnection As String

Dim conn As New ADODB.Connection

Dim Rs As New ADODB.Recordset

FConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\dbx.mdb"

conn.Open FConnection

sqlstr = "select * from staff WHERE 員編 >='" & 工作表3.Cells(s2, 5) & ""

Rs.Open sqlstr, conn, adOpenStatic, adLockReadOnly

工作表3.Cells(s2, 6).CopyFromRecordset Rs

另外還有一個問題

上述程式是回傳所查詢的每列資料

若查詢到的都僅有一筆,而只要將某一個欄位傳回EXCEL裡指定位置,該如何做呢!?

EX.查詢到第200筆資料符合,僅回傳ID欄位至EXCEL的sheet1.cells(1,1)

以上,麻煩高手大大解惑了,謝謝~!

Update:

對了~我是用EXCEL2010~

Update 2:

現在INSERT也有問題...唉

在cn.Open時出現[VBA 找不到資料來源名稱且未指定預設的驅動程式]

Set cn = CreateObject("ADODB.Connection")

Set Rs = CreateObject("ADODB.Recordset")

cn.Provider = "MSDASQL"

cn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=D:\dbx.mdb;"

cn.Open

Update 3:

我是WIN8 64位元

3 Answers

Rating
  • chien
    Lv 7
    8 years ago
    Favorite Answer

    excel 的版本不重要,

    你不會剛好是 win7 64 位元版吧。

    2013-01-30 19:48:32 補充:

    64 位元看一下這篇

    http://www.dotblogs.com.tw/okawari/archive/2010/11...

    2013-02-01 12:41:45 補充:

    64bit 要改 connectstring

    要裝 64位元的驅動程式。

  • 樹哥
    Lv 5
    8 years ago

    Private cn As ADODB.Connection ' Connection物件

    Private Rs As ADODB.Recordset

    Set cn = New ADODB.Connection

    cn.Provider = "MSDataShape"

    cn.ConnectionString = "Data Provider=Microsoft.Jet.OLEDB.4.0;" _

    & "Data Source= "+ "D:\dbx.mdb""

    cn.Open

    EX.查詢到第200筆資料符合,僅回傳ID欄位至EXCEL的sheet1.cells(1,1)

    Dim objExcelApp As Excel.Application

    Dim objSheet As Excel.Worksheet

    Set objExcelApp = CreateObject("Excel.Application")

    objExcelApp.Workbooks.Open App.Path + "\A1" '自定檔案 A1可更改

    objExcelApp.Visible = True

    Set objSheet = objExcelApp.ActiveWorkbook.Sheets("sheet1")

    objSheet.Activate

    objSheet.Cells(1, 1).Value =Rs!ID

  • 8 years ago

    ...我是WIN8 64位元...

    2013-02-01 10:29:07 補充:

    yogibear 大大~

    依連結內容安裝並更改為Microsoft.ACE.OLEDB.12.0後己正可常查詢~insert問題也解決~!

    2013-02-01 10:34:03 補充:

    有另外一篇問題yogibear大大可以看一下嗎!!

    http://tw.knowledge.yahoo.com/question/question?qi...

Still have questions? Get your answers by asking now.