各位,帮我看看以下代码如何修改!?

wonsin 2004-08-27 04:52:59
做了一个时间比较的查询,即用现在的时间与表里的一个时间字段比较,代码如下:

If ComDay.Text = "一个月前使用过的" Then \\Comday为窗体上的一个文本框
Term = "{fn NOW()}- indate <= 30"
ElseIf ComDay.Text = "三个月前使用过的" Then
Term = "{fn NOW()}-indate>=30 and {fn NOW()}-indate<=90"
ElseIf ComDay.Text = "六个月前使用过的" Then
Term = "{fn NOW() }-indate>=90 and {fn NOW()}-indate<=180"
ElseIf ComDay.Text = "一年前使用过的" Then
Term = "{fn NOW()}-indate>=180"
End If
Txtstr= "select * from phoneinfo where Term "
Set Mrc = New ADODB.Recordset
Mrc.Open Txtsql, Conn, adOpenKeyset, adLockOptimistic
错误的提示为,term不对?!(注:{fn NOW()}-indate<=30 的语句在SQL查询分析器能通过)
...全文
55 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
iiboy 2004-08-27
对呀,应该使用Txtstr= "select * from phoneinfo where " & Term
回复
zuoxingyu 2004-08-27
应该是Txtstr= "select * from phoneinfo where " & Term

TERM在这里已经是个变量了,在SQL语句种不能直接识别。
回复
tmkwind 2004-08-27
Txtstr= "select * from phoneinfo where " & Term
回复
longki 2004-08-27

在Tern中不是要在数字上加"'"号,比如: >='30'
回复
guolibin 2004-08-27
Txtstr= "select * from phoneinfo where " & Term
回复
wonsin 2004-08-27
帮帮我呀!
回复
相关推荐
发帖

1188

社区成员

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