如下表 名称 专业 人数
一团 通信 30
二团 通信 20
一团 炮兵 20
一团 气象 40
怎样写一条语句 把所有一团各专业人数综合求出来。
一团 通信 30
二团 通信 20
一团 炮兵 20
一团 气象 40
怎样写一条语句 把所有一团各专业人数综合求出来。
解决方案 »
- 在VB6中如何获取文本框中用鼠标选中的内容
- 如何用一条语句将SQL里的表按要求引入ACCESS里
- 请问有没有好看一点的滑动条控件?
- Dim xlsheet As Excel.Worksheet,定义时,出错找不到 Excel.Worksheet对象,什么问题?
- 数据录入的问题?该怎样将录入的数据先存入变量,再写入连接的数据库?
- 在SQL2000中删除记录报错,帮帮忙
- VB高手进,急啊急啊,请多帮忙,谢谢你们了
- 关于vb中sql查询语句的问题
- 如何改变窗体标题栏的样式和自定义图形按扭
- 请再帮忙
- 请问怎样开发一个读取服务器上文件并在本地显示出来的系统
- 请教高手,如何获取自定义控件中的所有用到的控件!
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只是统计满足条件的记录数。