| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1082 人关注过本帖
标题:数据统计查询问题
取消只看楼主 加入收藏
shunlai
Rank: 1
等 级:新手上路
威 望:1
帖 子:228
专家分:0
注 册:2006-2-1
结帖率:94.12%
收藏
 问题点数:0 回复次数:4 
数据统计查询问题
大家节日好!
我的表中,某一列N中存在几种相同字段比如:A、B、C,我想进行某一时段内同时进行A、B、C的分别统计查询。不知能否实现?如何写查询语句?请赐教,谢谢!以下是本人原来写的分别统计查询语句:
Dim sql As String
sql = "select * from 表 where N= '" & Trim(Combo1.Text) & "' and rq between #" & DTPicker1.Value & "# and #" & DTPicker2.Value & "# order by rq desc"
rs_feipin.CursorLocation = adUseClient
rs_feipin.open sql, conn, adOpenKeyset, adLockOptimistic
If Not rs_feipin.EOF Then
setgrid
setgridhead
displaygrid
If Combo1.Text = "A" Then
sum8 = 0
rs_feipin.MoveFirst
While Not rs_feipin.EOF
sum8 = sum8 + Val(rs_feipin.Fields(11).Value) ' A总量
rs_feipin.MoveNext
Wend
Text17.Text = Format(sum8, "##.0")
End If
If Combo1.Text = "B" Then
sum9 = 0
rs_feipin.MoveFirst
While Not rs_feipin.EOF
sum9 = sum9 + Val(rs_feipin.Fields(11).Value) 'B总量
rs_feipin.MoveNext
Wend
Text18.Text = Format(sum9, "##.0")
End If
If Combo1.Text = "C" Then
sum10 = 0
rs_feipin.MoveFirst
While Not rs_feipin.EOF
sum10 = sum10 + Val(rs_feipin.Fields(11).Value) 'C总量
rs_feipin.MoveNext
Wend
Text19.Text = Format(sum10, "##.0")
End If

搜索更多相关主题的帖子: 统计 数据 查询 
2007-10-03 11:24
shunlai
Rank: 1
等 级:新手上路
威 望:1
帖 子:228
专家分:0
注 册:2006-2-1
收藏
得分:0 
楼上:几种相同字段的意思,就是N列中有若干个A和B和C,把同是A的进行求和,依次B、C也是进行同类求和。例如如下:形式

rq N H
2007-01-02 A 15
2007-02-02 A 100
2007-02-15 B 110
2007-02-18 C 12
2007-02-19 B 150
2007-02-20 C 100

2007-10-03 13:25
shunlai
Rank: 1
等 级:新手上路
威 望:1
帖 子:228
专家分:0
注 册:2006-2-1
收藏
得分:0 
楼上的兄弟:我要的是一次得出某一时间段的分别A、B、C的和,你的sql语句是求H列的总和,请兄弟在帮忙改改。
2007-10-03 21:56
shunlai
Rank: 1
等 级:新手上路
威 望:1
帖 子:228
专家分:0
注 册:2006-2-1
收藏
得分:0 
我要的计算结果应该是:
A=115
B=260
C=112
2007-10-03 22:02
shunlai
Rank: 1
等 级:新手上路
威 望:1
帖 子:228
专家分:0
注 册:2006-2-1
收藏
得分:0 
首先我要谢谢二位高人的耐心的解答与帮助!
看来是我说清楚,我的数据库是accsse的我要达到目的是要做一个查询语句,是查询记录表中任意时间段内的(如以上例中)
A、B、C的分别累加和是多少。如下的sql语句只能达到combo1.text="A"或combo1.text="B"及combo1.text="C"的选择查询,而不能实现同时的command1命令的一键查询,不知道这样说是否明白?哈哈!
sql = "select * from 表 where N= '" & Trim(Combo1.Text) & "' and rq between #" & DTPicker1.Value & "# and #" & DTPicker2.Value & "# order by rq desc"
2007-10-04 00:06
快速回复:数据统计查询问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.011981 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved