[發問] ADO+Sql如何使用vba函數(month)

帖子: 219
主題: 24
精華: 0
積分: 243
點名: 0
作業系統: Windows10
軟體版本: Office2016
閱讀權限: 20
性別: 女
註冊時間: 2012-4-18
最後登錄: 2022-2-7

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2013-8-10 22:16 | 只看該作者

回復 1# mhl9mhl9

"select distinct month([table].日期) from [table]"

帖子: 214
主題: 74
精華: 0
積分: 296
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: hk
註冊時間: 2013-6-17
最後登錄: 2018-11-3

3^#

發表於 2013-8-11 02:20 | 只看該作者

test1可以把整個資料庫copy到activesheet.A1
test2就出現上面的錯誤對話框
什麽地方寫錯了?
Sub test1()
ActiveSheet.Cells.ClearContents
Set iR = Range("A1")
iPath = ThisWorkbook.fullname
iQ = "select * from [資料庫$]"
iSql
End Sub
Sub test2()
ActiveSheet.Cells.ClearContents
Set iR = Range("A1")
iPath = ThisWorkbook.Path
iQ = "select month(資料庫.日期) from [資料庫$]"
iSql
End Sub

lmh

帖子: 214
主題: 74
精華: 0
積分: 296
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: hk
註冊時間: 2013-6-17
最後登錄: 2018-11-3

4^#

發表於 2013-8-11 02:54 | 只看該作者

本帖最後由 mhl9mhl9 於 2013-8-11 02:56 編輯

不好意思, test2中, 我把thisworkbook.fullname打成hisworkbook.Path
所以出錯
test5 ,可以正常運行, 我資料庫有6個月資料,但test5運行結果卻是6個Jan

Sub test5()
ActiveSheet.Cells.ClearContents
Set iR = Range("A1")
iPath = ThisWorkbook.FullName
iQ = "select distinct Month(日期) as 月份 from [資料庫$]"
iSql
end sub

lmh

帖子: 214
主題: 74
精華: 0
積分: 296
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: hk
註冊時間: 2013-6-17
最後登錄: 2018-11-3

5^#

發表於 2013-8-11 03:31 | 只看該作者

看來是格式問題,資料庫有6個月資料,distinct month(日期)出6個"Jan"
distinct year(日期)出一個"1905"
唯一值的個數是正確的,但值不對,怎麼做呢?

lmh

帖子: 214
主題: 74
精華: 0
積分: 296
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: hk
註冊時間: 2013-6-17
最後登錄: 2018-11-3

6^#

發表於 2013-8-11 03:33 | 只看該作者

回復 2# HSIEN6001

看來是格式問題,資料庫有6個月資料,distinct month(日期)出6個"Jan"
distinct year(日期)出一個"1905"
唯一值的個數是正確的,但值不對,怎麼做呢?

lmh

帖子: 214
主題: 74
精華: 0
積分: 296
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: hk
註冊時間: 2013-6-17
最後登錄: 2018-11-3

7^#

發表於 2013-8-11 03:54 | 只看該作者

回復 2# HSIEN6001

問題解決了,dictinct month(日期) from [資料庫$],結果出了6個"Jan",但我把結果儲存格的格式改用"通用格式",就顯示正確的1,2,3,4,5,6
好了,謝謝你,我是第一次在sql里用vba的function,查到不是這麼簡單就可以用了,有點緊張,所以亂了套.簡單的格式問題沒有想到,謝謝你了

lmh