Question

asp上的access数据库问题

给出代码：
id=request.QueryString("id")
t=request.QueryString("tm")
set rr=server.CreateObject("adodb.recordset")
g=0
i=0
do while g<10
rr.open "select * from abc where id='"&id&"' and rti<='"&t&"' and lti>='"&t&"'",conn,1,1
i=i+1（这一行是打个比方，其实就是读取查询到的数据）
rr.close
g=g+1
t=cdate(t)+1
loop
上面代码中 t 是2013-09-28这样的字符串，我是想循环出9月28日之后10天的数据，可是只循环一次，就是在进行了一次
t=cdate(t)+1之后，代码实际上就不能正常循环了，之后的9次我测试了之后是没有找到数据，rr.recordcount=0,不知道t=cdate(t)+1这个应该怎么改？
数据库字段 rti 和lti 都是文本格式。
还有我想问，怎么把cdate的类型转换成默认的数据类型。

Answer 1

id=request.QueryString("id")
t=request.QueryString("tm")
set rr=server.CreateObject("adodb.recordset")
rr.open "select * from abc where id='"&id&"' and rti<='"&t&"' and lti>='"&t&"'",conn,1,1
if rr.eof and rr.bof then
response.Write "暂无"
else
g=0
i=0
do while not rr.eof
if g<10 then
i=i+1
end if
rr.movenext
g=g+1
t=cdate(t)+1
loop
rr.close
set rr = nothing
end if

追问

实际是程序只能正确运行一次，第二次执行 rr.open "select * from abc where id='"&id&"' and rti='"&t&"'",conn,1,1的时候就查找不到数据，实际上数据是有的

追答

我改后的代码也只输出一次么?

追问

也不叫只运行一次，但是在第二次循环的时候，就不能找到对应的数据了，应该是在执行了 t=cdate(t)+1之后，数据类型被固定为日期类型了，导致第二次就不能找到正确的数据了

追答

我改后的代码也只输出一次么?
时间字段的话,改为
rti<='%"&t&"%'

另:查看数据库的rti字段格式与t=request.QueryString("tm")的格式是否一致?

服务器的时间与你电脑系统并不一定格式相同
也就是本地与空间的时间写入可能会有差异

追问

变量 t 和数据库中的 rti 和 lti 字段都不是读取系统时间的，是保存好的文本格式，没有读取系统的时间。rti<='%"&t&"%'这个是什么意思，我加了，还是没有效果。

追答

1:rti字段和lti字段在数据库里是什么格式?
2:request.QueryString("tm")又是什么格式?
3:若 t 是2013-09-28这样的字符串,数据库里是否有2013-09-28至2013-10-07的数据内容?

弄清以上三点就好办了

追问

1. :rti 和 lti 在数据库里是 文本格式

2. request.QueryString("tm")是获取的URL上接的字符串

3.  t 是2013-09-28这样的字符串,数据库里是有这样的内容的。

Answer 2

id=request.QueryString("id")
t=request.QueryString("tm")
m=dateadd("d",10,Cdate(t))''追加后10天
set rr=server.CreateObject("adodb.recordset")
rr.open "select top 10 * from abc where id='"&id&"' and rti<='"&m&"' and lti>='"&t&"'",conn,1,1

If Not (rr.Bof And rr.Eof) Then
do while not rr.eof
''这里加入要显示字段就行。比如response.write rr("字段名")

rr.movenext

loop

end if
rr.close
set rr = nothing

其实非常简单的一个查询循环。关键是top 10和加10天为条件的查询

追问

如果这样就不能正常运行了
rr.open "select top 10 * from abc where id='"&id&"' and rti='"&cdate(t)&"'",conn,1,1所以应该是 t 数据类型的问题，改成日期类型就不能查询了，但是要循环的话又必须用cdate(t)+1改成日期格式

Answer 3

试试

t=cstr(DateAdd("d",1,cdate(t)))

追问

在asp执行
rr.open "select * from abc where id='"&id&"' and rti='"&t&"'",conn,1,1的时候
t 如果是日期类型就查询不了了，我这边要循环查询有必须执行日期加1，所以实际运行中 查询语句只能在第一次的时候正常运行，到第二次我改为日期加1了之后，就不能运行了