如下表 名称 专业 人数
一团 通信 30
二团 通信 20
一团 炮兵 20
一团 气象 40
怎样写一条语句 把所有一团各专业人数综合求出来。
一团 通信 30
二团 通信 20
一团 炮兵 20
一团 气象 40
怎样写一条语句 把所有一团各专业人数综合求出来。
解决方案 »
- 请教大家一个低级问题,哈哈。
- 有没有打开EXCEL文件就自动执行的函数?
- 如何让程序界面(控件位置)适合于任何的像素下显示?问题解决后马上给分!
- 请教一个添加记录的思路,是用conn.execute好还是用rs.addnew好呢?
- 想问一个listview控件最简单的问题?在listview的单元格能否进行编辑?急急
- 关于VB中ADO远程连接数据库的困惑,请教大家
- (100分求救)不装vb,怎么编译vb程序成com组件?
- 如何判断一个窗口已打开?
- 如何在VB中实现将数据导出到Excel???
- 关于圆外点做切线的问题
- 请问怎样开发一个读取服务器上文件并在本地显示出来的系统
- 请教高手,如何获取自定义控件中的所有用到的控件!
select 名称,专业,人数 from table where 名称='一团'
select 专业,sum(人数) from table where 名称='一团' group by 专业
我知道你的意思所以写了两个仅参考
因为团和专业不重复,所以就没有加group by
这样就可以了吧。
------------------------------------
体验速度,体验CSDN新版论坛助手:http://community.csdn.net/Expert/TopicView.asp?id=3108679
这样写可以么?
dim x as interger
select sum(人数)as x from table where 名称='一团'
msgbox rs.fields("x")
Dim str_w() As String
dim I_count,i as Integer ......
zr.open ""SELECT DISTINCT [专业] from [企业资料]",conn,1,3
If zr.RecordCount > 0 Then
For i = 1 To zr.RecordCount
I_count = I_count + 1
ReDim Preserve str_w(I_count)
str_w(I_count) = zr.Fields(0).Value
If Not zr.EOF() Then zr.MoveNext
Next i
.......
for i=1 to I_count
set zr=nothing
set zr=new adodb.recordset zr.open "select sum(人数) as w from [表] where [名称]='一团' and [专业]='" & str_w(i) &"'" ,conn,1,3
msgbox zr.fields("w")
next
............
select 专业,sum(人数) from table where 名称='一团' group by 专业
不能用count,count只是统计满足条件的记录数。