原来我是这样写的：

查询今天24小时内的所有数据
rs.open "select id from OrderList where OrderTime Between '"&date()&"' and '"&date()+1&"'",conn,1,1

查询昨天24小时内的所有数据
rs.open "select id from OrderList where OrderTime Between '"&date()-1&"' and '"&date()&"'",conn,1,1

现在我要改成查询到小时的 查询 2007-8-7 8:00:00 到2007-8-7 20:00:00 之间数据

不知道怎么写，好象还需要调用日历吧？

因为如果在 9月1日 查询昨日的数据时间就会出错了

这个问题始终没人能解决吗？

dim bdate,edate
bdate = "2007-8-7 8:00:00" ''实际操作中应该是从表单接收
edate = "2007-8-7 20:00:00"
rs.open "select id from OrderList where OrderTime Between '"& bdate &"' and '"& edate &"'",conn,1,1

不可以这样查询，因为查询昨日的就不行了

比如今天查询昨天的 当前时间是使用 now() 查询昨天的当前时间 now()-1

那要查询昨天20点到今天8点的就不知道怎么写了

而前面的日期不是固定的，得根据今天的日期前后 + - 得来，所以先获取今天的日期 然后 + - 得出昨天的日期 后面的时间可以固定 20:00:00 - 8:00:00

dim bdate,edate
bdate = dateAdd("d",-1,now())
edate = now()
rs.open "select id from OrderList where OrderTime Between '"& bdate &"' and '"& edate &"'",conn,1,1

[此贴子已经被作者于2007-8-7 15:42:59编辑过]

你这是当前时间和昨日的当前时间，我要的是 随时间自动改变的日期和固定的时间查询

查询今日 8:00:00 - 20:00:00 所有数据
rs.open "select id from OrderList where OrderTime Between '"&date()&" 8:00:00' and '"&date()+1&" 20:00:00'",conn,1,1

查询昨日 20:00:00 - 8:00:00 所有数据
rs.open "select id from OrderList where OrderTime Between '"&date()-1&" 20:00:00' and '"&date()&" 8:00:00'",conn,1,1

思路应该是这样的，但这样是不行的

真晕，你不会变通啊！

dim bdate,edate
bdate = dateAdd("d",-1,date()) & " 8:00:00"
edate = date() & " 20:00:00"
rs.open "select id from OrderList where OrderTime Between '"& bdate &"' and '"& edate &"'",conn,1,1


去查查 dateAdd，dateDiff 两个函数的用法

[此贴子已经被作者于2007-8-7 15:43:43编辑过]

你这个我想应该可以吧，我试试