返回列表 上一主題 發帖

[發問] VBA 連結 Access 的問題請教

uf023630

帖子
17 
主題
7 
精華
0 
積分
62 
點名
0  
作業系統
WinXP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
來自
Tinwan 
註冊時間
2011-4-9 
最後登錄
2018-7-6 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-5-17 16:33 | 只看該作者

[發問] VBA 連結 Access 的問題請教

因為特殊工作需求一定要用Excel 與Access作連結，所以我依照範例寫了一個測試程序，
它會把資料貼在 Sheet 內的A2，我要如何把RUN出來的之料放進變數內?
我最主要的目的是 用EXCEL2007 開Access2003的資料庫,從中篩選案件狀態='2'
的P1總時間作加總
希望有人能幫我
  1. Sub aa()
  2. Dim cnn As New ADODB.Connection
  3. Dim rst As New ADODB.Recordset

  5. cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & ThisWorkbook.Path & "\CCBO.MDB"

  7. sq1 = "select AVG(P1總時間) from CCBO where 案件狀態='2'"

  9. [a2].CopyFromRecordset cnn.Execute(sql)

  11. cnn.Close
  12. Set cnn = Nothing
  13. End Sub
複製代碼
收藏 分享

alexliou

帖子
51 
主題
0 
精華
0 
積分
81 
點名
0  
作業系統
Win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2012-3-9 
最後登錄
2013-1-9 
2#
發表於 2012-5-17 17:39 | 只看該作者
回復 1# uf023630
看不出錯誤在哪
提醒一下
資料庫的名字叫CCBO
你要查詢的資料表也叫CCBO嗎?
Alex

TOP

uf023630

帖子
17 
主題
7 
精華
0 
積分
62 
點名
0  
作業系統
WinXP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
來自
Tinwan 
註冊時間
2011-4-9 
最後登錄
2018-7-6 
3#
發表於 2012-5-17 17:48 | 只看該作者
RUN 起來是沒問題
但是 [a2].CopyFromRecordset cnn.Execute(sql) 會把資料貼到sheet去，但是我要的是
將RUN 出來的資料放到變數去

TOP

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
4#
發表於 2012-5-18 00:05 | 只看該作者
RUN 起來是沒問題
但是 [a2].CopyFromRecordset cnn.Execute(sql) 會把資料貼到sheet去，但是我要的是
將 ...
uf023630 發表於 2012-5-17 17:48


可以參考一下這裡範例二
http://kimbalko-chi.blogspot.com/2010/06/how-toexcel-vba-sql.html

把sql轉為
    sq1 = "select AVG(P1總時間) as P1_avg_time from CCBO where 案件狀態='2'"

不用這個
[a2].CopyFromRecordset cnn.Execute(sql)
轉為用record set接上
Set rst = cnn.Execute(strQuery)
最後把數值放到變數
變數 = rst.Fields("P1_avg_time").Value
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        靜思自在 : 手心向下是助人，手心向上是求人；助人快樂，求人痛苦。
返回列表 上一主題