vb 中查询当前月的问题

[复制链接]
查看11 | 回复1 | 2009-6-9 22:04:06 | 显示全部楼层 |阅读模式
Dim m_date As Date
m_date = Date
Dim sql As String
Dim sql2 As String
Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
sql = "select sum(实收) from congi where 是否收钱='否'"
Call opendb
rs1.Open sql, cn, adOpenDynamic, adLockPessimistic
Label14.Caption = rs1.Fields(0)
sql2 = "select sum(实收) from congi where ????????and where 是否收钱='否'"
rs2.Open sql2, cn, adOpenDynamic, adLockReadOnly
Label11.Caption = rs2.Fields(0)
上面是我写的一个程序段,可以看到我定义了一个m_date为当前日期,,现在我想写一个语句让他自动根据前当月来查询数据,,也就是???中不会写的部分,请各位大侠帮帮忙,就只有这点分了,我分我就加!谢谢
我表中的日期格式是 yy-mm-dd 那样的 表中的日期字段名称是日期,,下面代码看起来很好,但是运行是去出现语法错误了,请各位再帮帮忙

回复

使用道具 举报

千问 | 2009-6-9 22:04:06 | 显示全部楼层
where month(日期) ='" & month(m_date) & "'" &或where month(日期) =#" & month(m_date) & "#" &日期为日期列的字段名如果你的字段为文本型的话就按字符串分隔查. 你仔细看一下SQL语句变量做参数时(特别是日期变量)的相关文章,语法问题应比较好解决....
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行