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 那样的 表中的日期字段名称是日期,,下面代码看起来很好,但是运行是去出现语法错误了,请各位再帮帮忙
|