Question

急！access数据库查询时间段间的数据，初学者

access中date字段是长日期型（2007-2-7 8:42:10），查询时输入的是

yy-mm-dd短日期型

如查询2007-02-05至2007-03-02间的数据

我的代码是这样的

<% Dim date1,date2
date1=request("project_time01")
date2=request("project_time00")
Set Rs=Server.CreateObject("adodb.connection")
Sql="Select * From wenzhang where date<= '%"&date1&"%' and date>= '%"&date2&"%' "
set rs=server.createobject("adodb.recordset")
Rs.Open Sql,conn,1,3

%>

结果运行不出

显示的是：

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e10'

[Microsoft][ODBC Microsoft Access Driver] 参数不足，期待是 1。

/zl/search_date.asp，行19

查询的日期是随机输入的

我是初学者

能不能说详细点~~
你们说的我都试过了,谢谢
但是,有数据却查询不出来
一直显示没有数据

Answer 1

你的查询输入日期格式(2007-02-05)和数据库中的日期格式(2007-2-7 8:42:10)不一致,用函数DateValue(date)把你数据库中的日期格式转化为2007-02-05格式，修改如下：
Sql="Select * From wenzhang where DateValue(date)<='"&date1&"' and DateValue(date)>='"&date2&"'"

Answer 2

改成这样试试.
<% Dim date1,date2
date1=request("project_time01")
date2=request("project_time00")
Set Rs=Server.CreateObject("adodb.connection")
'-------修改的地方开始
Sql="Select * From wenzhang where #"&date&"# <= #"&date1&"# and #"&date&"# >= #"&date2&"#"
'-------修改的地方结束
set rs=server.createobject("adodb.recordset")
Rs.Open Sql,conn,1,3

%>

Answer 3

Sql="Select * From wenzhang where date<= #" & date1 &" 0:00:00# and date>= #" & date2 & " 23:59:59#"