SQL求字段TOP20,高手请进

wangjian6931

原贴地址:
http://club.excelhome.net/thread-468226-1-1.html

wangjian6931

先自己顶一顶吧。
其实这是一份用SQL从数据库里拉出来的数据，这里只是一小部分。之前我是用vba代码将20名之后的数据删除来达到我预期的效果的，可是逛了那么长时间论坛，发现很多功能也许只是我们本身不敢想，并不是办不到，所以我也就把这个一直困扰自己的问题在这里提出来了，希望能得到大家的帮助。
在最初在这份数据的时候，我想过用Top限制查询，简单地加上一个top 20就可以了，可是结果是没有出来（用的是ORACLE数据库）。郁闷了好长时间，到网上找相关资料也没有能解决，最后只有转向VBA代码处理了。
希望大家能帮我一起想想办法，看看有没有更好的解决办法。

penghaifeng

这样子不行吗？仅用透视表常规用法

小蚁雄兵

ORACLE就是拽， 很多东西搞得比其他数据库语言麻烦。
ORACLE不支付TOP语句，你得用其他的办法，网上找找应该有。

zenn

3楼哦，要求是每个大类的TOP20，那应该是按照品名或者货号来进行自动显示。透视表的这种方法最简单了，不用SQL也可以啊

nkgsm

看来我们是理解错了，它要求的是大分类的前20项，简单的透视和筛选是不可能完成的，只有SQL语句才能解决，望高人出现解决。

wangjian6931

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

penghaifeng

理解错了，楼主想自动生成，不是手工调整啊！~~~~

penghaifeng

SQL  top 函数试一下；不过其局限于分类数量少的情形。

仅供参考吧！

http://club.excelhome.net/thread-468226-1-1.html
自己真是没有看懂，稀里糊涂的到处找办法；实际上楼主包括上贴中很多高手都有指出问题的缺陷所在！就当是学习吧~~~

[ 本帖最后由 penghaifeng 于 2009-8-8 09:03 编辑 ]

penghaifeng

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

EXCEL VBA 的门槛真高啊！像我等仅停留在数据录入、编辑、汇总层面上的人，有无必要和可能去开拓这一领域呢！？