"Select sum (应负总金额) as 统计总额 from 广告数据 where 付款时间 >= #" & CDate(qdate) & "# and 付款时间 <= #" & CDate(zdate) & "# 这样也不行啊~~~怎么版阿
直接用“Select sum (应负总金额) as 统计总额 from 广告数据 where 付款时间 between #" & CDate(qdate) & "# and #" & CDate(zdate) & "#"”就可以了,我已经调试通过了
你用的的ADO代码还是数据绑定。不是直接写这个吧。 例: dim sql as string sql=你的查询语句 rst.open sql,你的连接,…… 这样才行。根据你的错误提示,好象是这样的。
我用的是DATA控件阿,那我应该怎么写代码呢?
是写在同一行阿~~~~在“SELECT.....”前面用加上什么吗?
用data控件这样写可以吗? Data1.RecordSource = "Select Sum(应负总金额) as 统计总额 from 广告数据 where 付款时间 between #" & CDate(qdate) & "# and #" & CDate(zdate) & "#"
Data1.RecordSource = "select * from 广告数据 where 付款时间 >= #" & CDate(qdate) & "# and 付款时间 <=#" & CDate(zdate) & "#" Data1.Refresh 'Data1.Recordset.MoveFirst If Not Data1.Recordset.EOF Then Data1.RecordSource = "Select Sum(应负总金额) as (统计总额)from 广告数据 where 付款时间 between #" & CDate(qdate) & "# and #" & CDate(zdate) & "#" 'Data1.RecordSource = "统计总额" showsub.Text = Data1.Recordset("统计总额") c = c + 1 End If If c = 0 Then MsgBox "无法统计该范围的交易额款" End If End Sub 上面的代码对吗?
Data1.RecordSource = "Select Sum([应负总金额]) as [统计总额] from [广告数据] where [付款时间] between #" & CDate(qdate) & "# and #" & CDate(zdate) & "#" Data1.Refresh .....
这样也不行啊~~~怎么版阿
例:
dim sql as string
sql=你的查询语句
rst.open sql,你的连接,……
这样才行。根据你的错误提示,好象是这样的。
Data1.RecordSource = "Select Sum(应负总金额) as 统计总额 from 广告数据 where 付款时间 between #" & CDate(qdate) & "# and #" & CDate(zdate) & "#"
Data1.Refresh
'Data1.Recordset.MoveFirst
If Not Data1.Recordset.EOF Then
Data1.RecordSource = "Select Sum(应负总金额) as (统计总额)from 广告数据 where 付款时间 between #" & CDate(qdate) & "# and #" & CDate(zdate) & "#"
'Data1.RecordSource = "统计总额"
showsub.Text = Data1.Recordset("统计总额")
c = c + 1
End If
If c = 0 Then
MsgBox "无法统计该范围的交易额款"
End If
End Sub
上面的代码对吗?
Data1.Refresh
.....