VBA+SQL-按顺序提取

[复制链接]
TOP在SQL语句中的感化 TOP的利用按顺序提取记录
SELECT TOP 3 * FROM [工作表名$]
提取前面3笔记录.改变3为想要提取的数字,便可以实现想获得的记录 本例中利用的SQL语句以下:
SELECT TOP 3 * FROM [Sheet1$]
利用实例说明:

源数据:


VBA+SQL-按顺序提取-1.jpg

查询内容

对英语成就前三个数据:

VBA+SQL-按顺序提取-2.jpg

对英语成就前三名:

VBA+SQL-按顺序提取-3.jpg

代码运转的成果以下:


VBA+SQL-按顺序提取-4.jpg


VBA+SQL-按顺序提取-5.jpg

代码以下:


VBA+SQL-按顺序提取-6.jpg


VBA+SQL-按顺序提取-7.jpg

Sub FuYun_Sql_Top() Dim cnn As Object, rst As Object Dim Mypath As String, Str_cnn As String, Sql As String Dim i As Long Set cnn = CreateObject("adodb.connection") '以上是第一步,前期绑定ADO  Mypath = ThisWorkbook.FullName '以上获得当前工作簿的途径及称号  If Application.Version < 12 Then '格式为.xls,挪用下述语句 Str_cnn = "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & Mypath Else '格式为.xlsx,挪用下述语句 Str_cnn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & Mypath End If cnn.Open Str_cnn '以上是第二步,建立链接 ' Sql = "SELECT TOP 3 * FROM [英语-成就单$] " 'Sql语句,查询所稀有据,并依照英语成就停止排序 [f2:i1000].ClearContents '清空[e1:i1000]地区内容 Range("f2").CopyFromRecordset cnn.Execute(Sql) 'Execute语句先履行SQL语句 '利用单元格工具的CopyFromRecordset方式将SQL查询到的内容复制到D2单元格为左上角的单元格地区 '以上是第三步,履行SQL语句并将数据读入表格指定地区 cnn.Close '封闭链接 Set cnn = Nothing '开释内存End Sub
代码剖析

代码我放了一个例子,大部分的代码是分歧的,只要SQL的句子纷歧样。 TOP前面的数值,是可以点窜的,比如点窜成5,那末就是取前面5个数据。

Sql = "SELECT TOP 5 * FROM [英语-成就单$] ORDER BY 英语 desc

延长阅读

VBA+ADO+SQL语句,小试牛刀。

SQL 查询语句-WHERE

SQL 的排序 ORDER BY

点击关注可以更方便的检察Excel VBA的案例文章

私信 SQL 可以获得SQL代码的Excel文件

私信 视频 可以获得54集VBA入门视频

私信 VBA或 vba 可以获得文章中含VBA代码的Excel文件
温馨提示:
好向圈www.kuaixunai.com是各行业经验分享交流社区,你可以在这里发布交流经验,也可以发布需求与服务,经验圈子里面禁止带推广链接、联系方式、违法词等,违规将封禁账号,相关产品信息将永久不予以通过,同时有需要可以发布在自己的免费建站官网里面或者广告圈, 下载好向圈APP可以加入各行业交流群 本文不代表好向圈的观点和立场,如有侵权请下载好向圈APP联系在线客服进行核实处理。
审核说明:好向圈社区鼓励原创内容发布,如果有从别的地方拷贝复制将不予以通过,原创优质内容搜索引擎会100%收录,运营人员将严格按照上述情况进行审核,望告知!
回复

使用道具 举报

已有(5)人评论

跳转到指定楼层
fw_v 发表于 2021-1-4 08:14:12
SQL 也可以提出前几名。或者前面几个数据。
回复

使用道具 举报

fidelhl 发表于 2021-1-4 20:20:18
回复

使用道具 举报

蝙蝠侠XP 发表于 2021-1-5 08:39:21
VBA+SQL-按顺序提取
回复

使用道具 举报

clmp009 发表于 2021-1-6 06:32:32
转发了
回复

使用道具 举报

德润天悦 发表于 2021-1-7 06:59:48
转发了
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

24小时热文