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

SQL中Top与Order联合使用的问题VBA实例教程除非注明，文章均为战战如疯原创，转载请保留链接:，VBA交流群273624828。在以前关于SQL的知识中我们讲过要提早记录的前n条的话可以用Top命令，假如要对提拿出来的数据进行排序可以用Orderby，那么假如我们要从一批数据里面提拿出前n大的数据自然就想到了先用Orderby对数据进行排序，而后再从排好的数据中拿出前n条就可以了。那下边我们来看个例子，有以下一个表此刻我们要从中拿出前3名，明显这里有4个99，那我们只需取任意3个99就可以了，看我下边写的代码Subsearch( )DimcnnAsObject,sql$,rsAsObject,i,nRange("E1").CurrentRegion.Offset(1,0).ClearContentsSetcnn=CreateObject("adodb.connection")cnn.Open"Provider=Microsoft.ACE.OLEDB.12.0;ExtendedProperties=excel12.0;DataSource="&ThisWorkbook.FullNamesql="selecttop3姓名,数学from[Sheet1$A1:B11]orderby数学desc"Setrs=cnn.Execute(sql)Sheet1.[E2].CopyFromRecordsetrscnn.CloseSetrs=NothingSetcnn=NothingEndSub上边的代码看上去没有什么问题，运转一下结果以下结果是4个，不是我们所料想的3个，明显我们的SQL语句与我们理解的有差异。之因此会出现这样的问题是由于我们将Top与Order结适用了，当二者结适用的时候Topn就不是指前n条了，而成了前n名了。那这个名次怎么排的呢？很简单，原表中4个99分的排名都是1，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名，那怎么办？很简单，看下边的代码Subsearch( )DimcnnAsObject,sql$,rsAsObject,i,nRange("E1").CurrentRegion.Offset(1,0).ClearContentsSetcnn=CreateObject("adodb.connection")cnn.Open"Provider=Microsoft.ACE.OLEDB.12.0;ExtendedProperties=excel12.0;DataSource="&ThisWorkbook.FullNamesql="select姓名,数学from[Sheet1$A1:B11]orderbydesc"sql="selecttop3*from("&sql&")"Setrs=cnn.Execute(sql)Sheet1.[E2].CopyFromRecordsetrscnn.CloseSetrs=NothingSetcnn=NothingEndSub

数学上边的代码运转一下获得的结果就是

3个数据，这个

sql

语句包含了两部分，先用"select姓名,数学from[Sheet1$A1:B11]orderby数学desc"形成一个降序摆列的查询，而后我们再从这个盘问中取top3，因此这里top语句的结构就成了“selecttop*from[table]”，也就没有了orderby的问题了，因此最后我结果就是实实在在的前3行数据。本节示例文件下载：。您可能也喜爱：SQL之删除数据SQL语句应用基础SQL基础-where条件设定SQL