您可以简单地查询两个日期的所有记录RESOLVED: text-transform doesn't apply to plain text copy paste
,而不是循环查询每个日期:
BETWEEN
取决于您的数据库提供程序,您可能需要使用strSQL_CIP_Date = "SELECT * FROM data_storage WHERE creation_date BETWEEN '" & strStartDate & "' AND '" & strEndDate & "'"
而不是#
作为查询中的日期定界符:
'
您还可以在查询中仅使用月份:
strSQL_CIP_Date = "SELECT * FROM data_storage WHERE creation_date BETWEEN #" & strStartDate & "# AND #" & strEndDate & "#"
,
根据我的收集,由于您要将日期转换为数字,因此数据库中的日期不是采用日期格式吗?如果您的数据库连接已经打开,这就是我要设置的方式。
用于参数化查询的编辑函数。加上添加了使参数化调用更加容易的功能。
Set Cn = Server.CreateObject("ADODB.Connection")
Cn.Open CONNECTION_INFO
function dbPara(sql,params)
dim cmd
set cmd = Server.CreateObject("ADODB.Command")
with cmd
.CommandText = sql
set .ActiveConnection = cn
end with
if NOT isEmpty(params) then
set rs = cmd.execute(,params)
else
set rs = cmd.execute()
end if
set dbPara = rs
end function
strSQL_CIP_Date = "SELECT * FROM data_storage WHERE creation_date BETWEEN ? AND ?"
set strRS = dbpara(strSQL_CIP_Date,array(converted_date,converted_date+29))
do until strRS.eof
'insert code for each entry here
strRS.movenext
loop
本文链接:https://www.f2er.com/3006535.html