日期型字段范围查询

 

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