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

wangjian6931

白天优化了一下去年写的VBA代码，现在的运行时间是之前的一半。

wangjian6931

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=D:\2009-8-6 求助文件.xls"
    Sql = "select t1.*,(select count(*) from [Source$] t2 where t2.大分类=t1.大分类 and t2.销售额>=t1.销售额) as rank from [Source$] t1 where (select count(*) from [Source$] t2 where t2.大分类=t1.大分类 and t2.销售额>=t1.销售额)<=20"
    Sheets("Result").Range("a2").CopyFromRecordset conn.Execute(Sql)
    Sheets("Result").Activate
    conn.Close
    Set conn = Nothing
End Sub

这是最终结果,没有想到真的可以做到,而且速度还可以，不过得在另外一张表格里面运行这个程序，如果在数据本身的表里运行的话，会导致内存不足。在这里感谢小蚁雄兵的帮忙。
还有，我把这个方法应用到ORACLE数据库的话，好像可以运行，没有提示出错，不过运行很长时间也没有运行出结果，我没有耐心等，把它停掉了。（要处理的数据太多，也许我用VBA代码会比那个速度更快一点。）

xinjiana

oracle里的dense_rank / row_number 两个函数应该是好用，具体的你搜索一下看看，
没试过

wangjian6931

好棒哦，我去试试看

LMY123

SQL提取各大类的前20条记录