请教日期型作为条件的查询，急！

chinouyou

表：tblA
字段:riqi (date型)，a，b，c

代码如下：
Private Sub qryRec_Click()
  Dim strWhereDate As String   
    strWhereDate = " [riqi] >=" & getFirstDayOfMonth() & " and [riqi] <= " & Date
    Me.lstResult.RowSource = _
    "SELECT * FROM tblA where "  & strWhereDate
end Sub


getFirstDayOfMonth() 返回出来是date型的值
debug出来的SQL语句：
SELECT * FROM tblA where [riqi] >= 2008-06-01 and [riqi] >= 2008-06-23

问题是一直找不到数据，请问问题出在哪里，急，在线等

cyjiaaa

日期型用between  ... and  ... 不要用>或<

chinouyou

between  ... and  ... 试过了也不行啊
好像下面这句里面
strWhereDate = " [riqi] >=" & getFirstDayOfMonth() & " and [riqi] <= " & Date
把得到的日期型都变成了string型
是不是到sql那边就无法匹配了呢

stone0823

用> 及< 或between and 都可以，但日期两边用#，比如#2008-6-1#

红尘如烟

strWhereDate = " [riqi] >=" & getFirstDayOfMonth() & " and [riqi] <= " & Date
这里的日期被转换成了字符串,在字符串中使用日期需要加#号:
strWhereDate="[riqi]>=#" & getFirstDayOfMonth() & "# and [riqi]<=#" & Date & "#"
最好的方式是像2楼说的用Between...And...语句:
strWhereDate="[riqi] Between #" & getFirstDayOfMonth() & "# And #" & Date & "#"

chinouyou

已经解决！
多谢各位[:27]