帖子: 146
主題: 41
精華: 0
積分: 229
點名: 307
作業系統: WIN10
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2011-6-21
最後登錄: 2024-12-20

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2023-1-30 15:15 | 只看該作者

[發問] SQL如何用儲存格參數(日期)作條件依據

SQL如何用儲存格參數(日期)作條件依據,感恩.

sql 日期1.rar (973.66 KB)

樓主熱帖

杜小平

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

2^#

發表於 2023-1-30 22:13 | 只看該作者

MySQL = "select * from [sheet1$a1:f] where Format(開單日期,'ddddd') = '" & ms2 & "'"

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

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

3^#

發表於 2023-1-31 05:59 | 只看該作者

本帖最後由 singo1232001 於 2023-1-31 06:01 編輯

回復 1# dou10801

'求某天
'ms2 = Format([g1], "yyyy-mm-dd")
'MySQL = "select *  from [sheet1$a1:f] where Format(開單日期,'yyyy-MM-dd') = '" & ms2 & "'"  '大小寫有差

'求某天並日期時間遞增排序
'ms2 = Format([g1], "yyyy-mm-dd")
'MySQL = "select *  from [sheet1$a1:f] where Format(開單日期,'yyyy-MM-dd') = '" & ms2 & "' " & " order by 開單日期 asc"  '大小寫有差

'求當天某時段  2019/1/1  11:00~14:00
'ms31 = Format(#1/1/2019 11:00:00 AM#, "yyyy-mm-dd HH:nn:ss")
'ms32 = Format(#1/1/2019 2:00:00 PM#, "yyyy-mm-dd HH:nn:ss")
'MySQL = "select *  from [sheet1$a1:f] where Format(開單日期,'yyyy-MM-dd HH:nn:ss') between '" & ms31 & "' and'" & ms32 & "'"  '大小寫有差

'求連續天數 2019/1/1~2019/1/2
'ms41 = Format([g1], "yyyy-mm-dd")
'ms42 = Format([g1] + 1, "yyyy-mm-dd")
'MySQL = "select *  from [sheet1$a1:f] where Format(開單日期,'yyyy-MM-dd') between '" & ms41 & "' and'" & ms42 & "'" '大小寫有差

'求任幾個天數  2019  1/1 ,1/3, 1/5
'ms51 = Format(#1/1/2019#, "'yyyy-mm-dd'")
'ms52 = Format(#1/3/2019#, "'yyyy-mm-dd'")
'ms53 = Format(#1/5/2019#, "'yyyy-mm-dd'")
'MySQL = "select *  from [sheet1$a1:f] where Format(開單日期,'yyyy-MM-dd') in("          '大小寫有差
'MySQL = MySQL & ms51 & ","
'MySQL = MySQL & ms52 & ","
'MySQL = MySQL & ms53 & ")"

TOP

dou10801

中學生 Rank: 2

帖子: 146
主題: 41
精華: 0
積分: 229
點名: 307
作業系統: WIN10
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2011-6-21
最後登錄: 2024-12-20

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章

4^#

發表於 2023-1-31 08:42 | 只看該作者

感謝 lpk187及 singo1232001兩位前輩指導,對初學SQL語法受益良多,更感恩singo1232001加碼指點對其他日期運用查詢更靈活.

杜小平

TOP

hcm19522

大學生 Rank: 4

帖子: 1391
主題: 4
精華: 0
積分: 1401
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-12-16

熱烈參與勳章

5^#

發表於 2023-1-31 11:30 | 只看該作者

https://blog.xuite.net/hcm19522/twblog/590705213

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

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

6^#

發表於 2023-1-31 16:49 | 只看該作者

本帖最後由 singo1232001 於 2023-1-31 16:50 編輯

回復 4# dou10801

抱歉更正一下
關於vba 中Format 有字數上限 (而sql的Format沒有 )

所以 ms31 查詢時間的例子中
ms31 = Format(#1/1/2019 11:00:00 AM#, "yyyy-mm-dd HH:nn:ss")  '產出的文字可能會斷行秒數就可能會消失

建議改成拚字的方式
ms31 = Format(#1/1/2019 11:00:00 AM#, "yyyy-mm-dd & " " & format(#1/1/2019 11:00:00 AM#, "HH:nn:ss")

或者
ms31 = Format([g1], "yyyy-mm-dd") & " " & format(#11:00:00 AM#, "HH:nn:ss")

或者
ms31 = Format([g1], "yyyy-mm-dd")  & " " &  "11:00:00"

當然你也可以一次把  '符號給拼出來之後就不用加
ms31 = Format([g1], "'yyyy-mm-dd")  & " " &  "11:00:00'"

(另外補充  在vba中能運算的默認日期格式是2019/1/1 , 而SQL中能運算的默認格式是2019-1-1  ) 所以在文字中要做轉換

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

7^#

發表於 2023-1-31 20:37 | 只看該作者

回復 6# singo1232001

ADODB寫SQL語法，拼接的方式，最容易出錯了(以後的閭題也會很多)，建議寫SQL時最好使用參數的方式，就沒有你上述的問題了！
Set cmd = CreateObject("ADODB.Command")
cmd.CommandText = "Select Max(Id) From [進貨$] Where 進貨日期=@進貨日期"
cmd.Prepared = True
cmd.Parameters.Append cmd.CreateParameter("@進貨日期", adDate, adParamInput, , [G1])
cmd.ActiveConnection = conn
Set rs = cmd.Execute

TOP

dou10801