sql语句求字段TOP20,高手请进

wangjian6931

如题,用SQL语言求出附件中按大分类分组后的TOP20,即每个"大分类"的销售额TOP20.

xinjiana

想学习sql？
去买本书吧， sql  cookbook，目前还没找到电子书，去买本吧

sql里的很多函数在excel和access里都是不支持的，所以只能用笨办法来一个一个做，
你这个题目的做法就是先检出 大类 的列表，然后按照 每个名称做一个检索，按照销售额排序，
然后检测 rst的数量，如果超过20，就只取前20，如果没有，就全部显示，稍微麻烦点

[ 本帖最后由 xinjiana 于 2009-8-7 09:25 编辑 ]

nkgsm

SQL怎么弄到你这种状态，水平有限，还请高人指导。但用透视完全可以达到你的要求，具体看附件。

wangjian6931

你这个结果不是我想要的结果呀。我想要的是每个大分类的TOP20,你现在的结果是按供应商来算的吧？

wangjian6931

谢谢大家的回答，可是我想要的效果是用VBA语言直接从数据库里拉出数据，并得到每个大分类的TOP20。其实用VBA代码处理出每个大分类的TOP20的代码我已经写出来了，只是速度稍微差一点。我在想如果能用SQL直接处理出TOP20的结果来的话，或许能够快一点。
    前段时间看到论坛里有在查询结果里添加ID序列号的方法，我在想可不可以通过添加ID序列号，然后再添加一个ID<=20来实现，可是我的SQL学的还不到家，所以请大家帮帮忙呢。在这里先谢过了！

gly1126

Sub subgrp_top20()
    Dim Sql$
    Set conn = CreateObject("adodb.connection")
    conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
    For Each c In conn.Execute("select distinct 大分类 from [source$] order by 1").getrows
        Sql = Sql & " union all select top 20 * from [source$] where 大分类=" & c & " order by 销售额 desc"
    Next c
    Sql = Right(Sql, Len(Sql) - 11)
    Sheets("Result").Range("a2").CopyFromRecordset conn.Execute(Sql)
    Sheets("Result").Activate
    conn.Close
    Set conn = Nothing
End Sub

gly1126

Sub subgrp_top20()
    Dim Sql$
    Set conn = CreateObject("adodb.connection")
    conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
    For Each c In conn.Execute("select distinct 大分类 from [source$] order by 1").getrows
        Sheets("Result").Range("a65536").End(xlUp).Offset(1, 0).CopyFromRecordset conn.Execute("select top 20 * from [source$] where 大分类=" & c & " order by 销售额 desc")
    Next c
    Sheets("Result").Activate
    conn.Close
    Set conn = Nothing
End Sub

tushadongjing

导入到SQL DB后我想很容易,Excel我不会,什么vlook我都还不会用

zj54891

学习下
sql很强大

wangjian6931

6楼的运行结果是错误的,7楼运行结果正确
不过,当数据源的数据很多时(我测试的的数据有3万多条),会显示内存不足。而且我看来速度好像没有我想像的那么快。说不定我还是优化一下我的VBA代码会更实际一点。
    因为

原帖由 小蚁雄兵 于 2009-8-7 12:52 发表
ORACLE就是拽， 很多东西搞得比其他数据库语言麻烦。
ORACLE不支付TOP语句，你得用其他的办法，网上找找应该有。

    我本来打算如果能得到在EXCEL里面的SQL语句能够直接套用到ORACLE数据库查询当中直接把结果查询出来的。现在看来，如果只能把数据拉到EXCEL里再处理的话，用VBA代码直接处理或许更快一点。

[ 本帖最后由 wangjian6931 于 2009-8-8 13:27 编辑 ]