12
返回列表 上一主題 發帖

[發問] VBA 用表格內某欄位資料查詢ACCESS資料

toxin

帖子
53 
主題
11 
精華
0 
積分
75 
點名
0  
作業系統
WIN XP 
軟體版本
SP3 
閱讀權限
20 
性別
男 
註冊時間
2012-3-20 
最後登錄
2025-4-7 
4# 跳轉到 »
發表於 2012-5-2 09:11 | 只看該作者
不好意思
如果含密碼的話要加什麼?

TOP

Min
　暱稱: 閔

版主Rank: 7Rank: 7Rank: 7

帖子
172 
主題
39 
精華
20 
積分
177 
點名
0  
作業系統
Microsoft Windows XP 
軟體版本
Microsoft Office 2003 
閱讀權限
100 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2023-3-19 

論壇貢獻勳章帥哥勳章
3#
發表於 2012-4-29 18:36 | 只看該作者
'引用 Ｍicrosoft ActiveX Data Objects 2.x Library
Dim Cnnl As New ADODB.Connection '你是不是忘了new
Cnnl.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=D:\TEST.mdb; "
若是我回答，使您滿意，請您讓我知道！                  
若是我的回覆，您仍有其他見解，也請您不嗇指教！

TOP

alexliou

帖子
51 
主題
0 
精華
0 
積分
81 
點名
0  
作業系統
Win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2012-3-9 
最後登錄
2013-1-9 
2#
發表於 2012-4-28 06:53 | 只看該作者
回復 1# toxin

這有兩個方法解決

1)    在Excel ＶBA 使用到　ADO　前先嵌入　ＡDO Library
其做法為在VBA編輯器中, 使用 工具＞設定引用項目
這樣會帶出　＂設定引用項目＂視窗
於其中核取　＂Ｍicrosoft ActiveX Data Objects x.x Library"選項　（選擇最新版本的ADO)
如此即可於VBA中取用ADO的函式庫
   
2)    如果你沒有將 ＡDO Library　嵌入
在宣告時你就不能宣告物件變數為ADODB .Connection  ( ex. Dim DB As ADODB.Connection)
而只能宣告為一般物件變數  (Dim DB As Ｏbject)
建立時你不能使用　　Set DB = New   ADODB.Connection　這樣的語法
而要用　　　DB = CreateObject("Adodb.Connection")
Alex

TOP

        靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。
12
返回列表 上一主題