SQL中Top与Order结合使用的问题VBA实例教程

1、SQL 中 Top 与 Order 结合使用的问题 VBA 实例教程除非注明， 文章均为 战战如疯 原创， 转载请保留链接 ， VBA 交流群 273624828。在之前关于 SQL 的知识中我们讲过要提前记录的前 n 条的话 可以用 Top 命令，如果要对提取出来的数据进行排序可以用Order by，那么如果我们要从一批数据里面提取出前n大的数据自然就想到了先用 Order by 对数据进行排序， 然后再从 排好的数据中取出前 n条就可以了。那下面我们来看个例子， 有如下一个表 现在我们要从中取出前 3名， 显然这里有 4个 99，那我们只 要取任意 3个 99就可以了，看我下面写的代码Su

2、b search()Dim cnn As Object, sql$, rs As Object, i, nRange(E1).CurrentRegion.Offset(1, 0).ClearContentsSet cnn = CreateObject(adodb.connection)cnn.Open Provider=Microsoft.ACE.OLEDB.12.0;ExtendedProperties=excel 12.0;Data Source= &ThisWorkbook.FullNamesql = select top 3 姓名 ,数学 from Sheet1$A1:B11

3、order by 数学 descSet rs = cnn.Execute(sql) Sheet1.E2.CopyFromRecordset rs cnn.CloseSet rs = NothingSet cnn = NothingEnd Sub 上面的代码看上去没有什么问题，运行一下结果如下 结果是 4 个，不是我们所预料的 3 个，显然我们的 SQL 语句 与我们理解的有差别。之所以会出现这样的问题是因为我们 将 Top 与 Order 结合用了，当两者结合用的时候 Top n 就不 是指前 n 条了，而成了前 n 名了。那这个名次怎么排的呢？ 很简单，原表中 4 个 99 分的排名都是 1

4、，5 个 1 分的排名都 是 5，没有 2、3、4 名，最低分 0 的排名是 10，没有 6、7、 8、9 名。所以如果你取 top1、top2、top3 或者 top4 得到的都 是 4 个排名 1 的数据，如果你取 top5、 top6、 top7、 top8 或 top9 那得到的就是排名 1和排名 5的一共 9 个数据。例如 top9 取前 9 名那就是第 1 名 4 个，2、3、4 名 0 个，第 5 名 5 个， 6、7、8、9 名 0 个，加起来是 9 个了。那如果我就是想取前 n 个数据而不是前 n 名，那怎么办？很简单，看下面的代码Sub search()Dim cnn As

5、 Object, sql$, rs As Object, i, n Range(E1).CurrentRegion.Offset(1, 0).ClearContentsSet cnn = CreateObject(adodb.connection) cnn.Open Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=excel 12.0;Data Source= &ThisWorkbook.FullNamesql = select 姓名 , 数学 from Sheet1$A1:B11 order by 数学 descsql =

6、select top 3 * from ( & sql & )Set rs = cnn.Execute(sql)Sheet1.E2.CopyFromRecordset rs cnn.CloseSet rs = NothingSet cnn = NothingEnd Sub上面的代码运行一下得到的结果就是 3个数据，这个 sql 语 句包括了两部分，先用 select 姓名 ,数学 fromSheet1$A1:B11 order by 数学desc形成一个降序排列的查询，然后我们再从这个查询中取top 3，所以这里 top 语句的 结构就成了“ select top * from table ”，也就没有了 order by的问题了，所以最后我结果就是实实在在的前 3 行数据 本节示例文件下载： 。0 您可能也喜欢：SQL 之删除数据SQL 语句应用基础SQL 基础 -where 条件设定SQL 基础