一个关于日期查询的问题!!(在线等,立即散分)

[j2se]

想写一条根据日期查询记录的程序,原码如下:

dim datSd=Request.Form("sy")&"-"&Request.Form("sm")&"-"&Request.Form("sd") as date
dim datEd=Request.Form("ey")&"-"&Request.Form("em")&"-"&Request.Form("ed") as date


dim sql="select 运行 from batch where 日期 >= #'"&strSd&"'# and 日期 <=#'"&strEd&"'# and 内容= "&Request.Form("item")&""
rs.cursorlocation=3
rs.open sql,conn,1,3
dim ct=rs.count


可是运行的时候,总是报第一句定义的话没有结属,指在最后一个"-"上面...

不想拖过年了,救各位高手鼎力相助啊~~给大家拜年了

[紫郢剑侠]

dim sql="select 运行 from batch where 日期 >= #'"&strSd&"'# and 日期 <=#'"&strEd&"'# and 内容= "&Request.Form("item")&""

中的strEd在哪?

楼主用的数据库是ACCESS吗?
它的DATE比较特殊, 月日都要两位数,不足两位就在前面补零.

比如:

2004-1-20

要写成:

2004-01-20

[zhuomaocn]

定义的方法不对

在VBScript里不能在定义时指定变量类型。

[xarrow]

是不是换行没加换行符

[j2se]

我用的是access数据库.

定义的时候我本来没有指定变量类型,结果不行

[DeltaCat]

写法不伦不类
dim datSd
datSd = Request.Form("sy")&"-"&Request.Form("sm")&"-"&Request.Form("sd") as date
dim datEd
datEd = Request.Form("ey")&"-"&Request.Form("em")&"-"&Request.Form("ed") as date

[nbchp]

能不能改成如下形式，测试看看
dim datSd，dated,sql
datsd=Request.Form("sy")&"-"&Request.Form("sm")&"-"&Request.Form("sd")
datEd=Request.Form("ey")&"-"&Request.Form("em")&"-"&Request.Form("ed")
sql="select 运行 from batch where 日期 >= #'"&strSd&"'# and 日期 <=#'"&strEd&"'# and 内容= "&Request.Form("item")&""

[DeltaCat]

其他我没看

[nbchp]

最后的SQL应该改成
sql="select 运行 from batch where 日期 >= #'"&strSd&"'# and 日期 <=#'"&strEd&"'# and 内容= '"&Request.Form("item")&"'"

[DeltaCat]

看过了，这样改

dim datSd
datSd = Request.Form("sy") & "-" & Request.Form("sm") & "-" & Request.Form("sd")
dim datEd
datEd = Request.Form("ey") & "-" & Request.Form("em") & "-" & Request.Form("ed")

dim sql
sql = "select 运行 from batch where 日期 >=#" & strSd & "# and 日期 <=#" & strEd & "# and 内容'=" & Request.Form("item") & "'"
rs.cursorlocation=3
rs.open sql,conn,1,3
dim ct
ct = rs.RecordCount

[j2se]

他现在一直报赋值语句未结束啊 !

[DeltaCat]

不过建议楼主，先看基础的知识

[j2se]

alexzhang00,谢谢你,根据你的写法过了

不过后面又出问题了.

dim total(&ct,1)
dim i as integer
for i=1 to rs.count
rs.bof
total(i,1)=rs.("运行")
rs.movenext
if rs.eof then exit
loop

他说缺少整型常数,还请帮忙啊!!

[j2se]

我ASP是不行,可领导逼着写...

[shengjr]

呵呵，楼主用三角猫的完全是可以的，再试试看！

[j2se]

试过了,是通过了.不过我想把值写到total数据的第一维里,请达淫帮忙啊!!!

[limingsp]

将sql="select 运行 from batch where 日期 >= #'"&strSd&"'# and 日期 <=#'"&strEd&"'# and 内容= "&Request.Form("item")&""
改成
sql="select 运行 from batch where 日期 >= #"&strSd&"# and 日期 <=#"&strEd&"# and 内容= "&Request.Form("item")&""
就是将日期字段两边的单引号'去掉
我试过了，可以

[DeltaCat]

首先，你记住，ASP是无类型的

dim total(ct,1)
dim i
for i = 0 to rs.RecordCount - 1
total(i,1) = rs("运行")
rs.movenext
if rs.eof then exit for
next

[DeltaCat]

FOR 是 和 NEXT 搭配的

把上面的 if rs.eof then exit for 去掉

[j2se]

这程序是越改毛病越多了

我已经去掉了,可毛病还是一大框