日期型字段范围查询

 

if DateFrom.Text <> "" Or DateTo.Text <> ""then

if strSQLWhere <> "" then

strSQLWhere = strSQLWhere + " And " '用 And 连接前后两个条件

end if

 

'注意:要用单引号括住日期字符串

if DateFrom.Text <> "" And DateTo.Text <> ""then '两个范围都不等于空,则在两个范围内查找

strSQLWhere = strSQLWhere+"[出生日期]>='"+DateFrom.Text+"' And [出生日期]<='"+DateTo.Text+"'"

elseif DateFrom.Text <> "" then '起始范围不等于空,则大于或等于查找

strSQLWhere = strSQLWhere+"[出生日期]>='"+DateFrom.Text+"'"

elseif DateTo.Text <> "" then '终止范围不等于空,则小于或等于查找

strSQLWhere = strSQLWhere+"[出生日期]<='"+DateTo.Text+"'"

end if

 

end if

posted @ 2005-11-05 17:13  致远钓客  阅读(243)  评论(0)    收藏  举报