这句SQL总是报告“试图执行一个合计函数中不包含特定表达式:余额”
Dim cmd As ADODB.Command
Dim rst As ADODB.Recordset
Set cmd = New ADODB.Command
cmd.ActiveConnection = DataE1.conFund
cmd.CommandText = "delete * from 部门余额表"
cmd.Execute
cmd.CommandText = "insert into 部门余额表 select max(操作id) as 操作id,日期,余额 from 日常操作表 where 部门编号='" _
& strDpNo & "' group by 日期"cmd.execute
难道使用集函数必须将那个字段“余额”也group吗?那样没意义了
不知道问题是否说清楚了
帮一下忙,谢谢
Dim cmd As ADODB.Command
Dim rst As ADODB.Recordset
Set cmd = New ADODB.Command
cmd.ActiveConnection = DataE1.conFund
cmd.CommandText = "delete * from 部门余额表"
cmd.Execute
cmd.CommandText = "insert into 部门余额表 select max(操作id) as 操作id,日期,余额 from 日常操作表 where 部门编号='" _
& strDpNo & "' group by 日期"cmd.execute
难道使用集函数必须将那个字段“余额”也group吗?那样没意义了
不知道问题是否说清楚了
帮一下忙,谢谢
解决方案 »
- 在vb环境下运行没有问题,生成了就崩溃..很奇怪...
- 菜鸟提问:如何逐行改变文本的背景色?~~~
- 关于使用VB查询ACCESS数据库表中重复数据的问题?[
- 为什么Form的Height只能设到11520不能再增加?
- 怎样在退出程序时让调用的ActiveX EXE在进程中消失?
- 小问题,马上结贴
- Currency类型的存储格式是什么?
- ●●●● 并口通信中,dio.dll文件的问题 ●●●●●
- VB6:如何用mshflexgrid控件对表进行手工输入??
- 怎样调用windows中文件浏览器的右键快捷菜单?
- VB6+ADO+Access 2000 数据库 下面这条sql语句为什么说语法错误?
- 如何解压.ex_ .dl_等安装文件??________急需帮助!
GROUP BY 表达式必须与选择列表表达式要完全匹配
& strDpNo & "' order by 操作id Desc group by 日期,余额"
1、操作员最在值:
cmd.CommandText = "insert into 部门余额表 select 操作id,日期,余额 from 日常操作表 where 操作id=(select max(操作id) from 日常操作表 where 部门编号='"& strDpNo & "' group by 日期,操作id)"
2、余额最大值:
同上
from (select max(a.操作id) as 操作id,日期 from 日常操作表 group by 日期)as a, _
(select 余额,操作id from 日常操作表) as b _
where 部门编号='" & strDpNo & "' and a.操作id=b.操作id "
"insert into 部门余额表 select max(操作id) as 操作id,日期,last(余额) as 余额 from 日常操作表 where 部门编号='" & strDpNo & "' group by 日期"
"insert into 部门余额表 select max(操作id) as 操作id,日期,last(余额) as 余额 from 日常操作表 where 部门编号='" & strDpNo & "' group by 日期 order by 操作id"
最后我的写法为:
"insert into 部门余额表 select 操作id,日期,余额 from 日常操作表 where 操作id in (select max(操作id) from 日常操作表 where 部门编号='" & strDpNo & "' group by 日期) order by 日期"
贴子回复次数大于跟给分次数 ???????????????????what on earth?