初哥求助!查询每月的记录。

pytoto 2004-09-14 07:49:08
库中有一字段记录报表日期

找到所有日期符合text1.text中录入的条件,比如输入2004-9就查询2004年9月份的记录,输入2004就查询2004整年的记录,录入2004-9-9就查询2004年9月9日的记录。

这种SQL语句得怎么写?用LIKE吗?

我用SELECT * FROM BAIO WHERE BBRQ LIKE TEXT1.TEXT 好像不行啊,各位老师帮我一下。
...全文
57 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
of123 2004-09-14
报表日期是什么类型?如果是日期时间类型:

dim strTemp as string, strSql as string

if not isdate(text1) then
msgbox "请输入合法的日期"
text1.selstart = 0
text1.sellength = len(text10
text1.setfocus
exit sub
endif
strTemp = text1
if len(strTemp) - len(replace(strTemp, "-", "") = 2 then
strSql = "SELECT * FROM BAIO WHERE BBRQ =#" & format(text1, "yyyy-mm-dd") & "#"
else
strSql = "SELECT * FROM BAIO WHERE BBRQ BETWEEN #" & format(text1, "yyyy-mm-dd") & "# AND #" & format(DateAdd("m",1,text1),"yyyy-mm-dd") & "#"
End if
回复
sangshuyezi 2004-09-14
我觉得楼主可以改一种方式,把日期分三个段:年、月、日。如果只输入了年,月日都空着那语句是
"SELECT * FROM BAIO WHERE year(BBRQ) = '" & TextYear.TEXT & "'"
如果只输入了月则可以是:
"SELECT * FROM BAIO WHERE month(BBRQ) = '" & TextMonth.TEXT & "'"
等等。
回复
sangshuyezi 2004-09-14
"SELECT * FROM BAIO WHERE BBRQ LIKE '%" & TEXT1.TEXT & "%'"
回复
相关推荐
发帖

1188

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2004-09-14 07:49
社区公告
暂无公告