返回列表下一主題上一主題發帖

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

uf023630

中學生 Rank: 2

帖子: 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總時間作加總
希望有人能幫我

Sub aa()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & ThisWorkbook.Path & "\CCBO.MDB"
sq1 = "select AVG(P1總時間) from CCBO where 案件狀態='2'"
[a2].CopyFromRecordset cnn.Execute(sql)
cnn.Close
Set cnn = Nothing
End Sub

複製代碼

樓主熱帖

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 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

uf023630