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

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查询分析器能通过)
...全文
75 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
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
  • 打赏
  • 举报
回复
帮帮我呀!

1,216

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧