从零开始学习SQL(图文教程)

最新推荐文章于 2024-04-09 09:38:05 发布

贝爷_野外求生

最新推荐文章于 2024-04-09 09:38:05 发布

阅读量4.3w

点赞数 17

分类专栏： Excel

本文链接：https://blog.csdn.net/u011981242/article/details/48651163

版权

Excel 专栏收录该内容

23 篇文章 1 订阅

订阅专栏

http://club.excelhome.net/thread-1061487-1-1.html

学习SQL一步一步开始，跟着本文的脚印带你走向SQL方向。
本分先分别介绍Microsoft Query 方法书写SQL语句，和VBA方法书写SQL语句。(注：VBA语句中只需修改其中的SQL语句即可，其他只需要复制粘贴即可)。
下面先上图:
进入VBA界面
从零开始学习SQL(图文教程) - CMMI - CMMI的博客

2.插入模块

3.双击模块

4.在代码区码

写入VBA代码
代码如下：

Sub Test4()
Dim Conn As Object, Rst As Object
Dim strConn As String, strSQL As String
Dim i As Integer, PathStr As String
Set Conn = CreateObject("ADODB.Connection")
Set Rst = CreateObject("ADODB.Recordset")
PathStr = ThisWorkbook.FullName '设置工作簿的完整路径和名称
Select Case Application.Version * 1 '设置连接字符串,根据版本创建连接
Case Is <= 11
strConn = "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data source=" & PathStr
Case Is >= 12
strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathStr & ";Extended Properties=""Excel 12.0;HDR=YES"";"""
End Select
'设置SQL查询语句
strSQL = "请写入SQL语句"
Conn.Open strConn '打开数据库链接
Set Rst = Conn.Execute(strSQL) '执行查询，并将结果输出到记录集对象
With Sheet3
.Cells.Clear
For i = 0 To Rst.Fields.Count - 1 '填写标题
.Cells(1, i + 1) = Rst.Fields(i).Name
Next i
.Range("A2").CopyFromRecordset Rst
.Cells.EntireColumn.AutoFit '自动调整列宽
.Cells.EntireColumn.AutoFit '自动调整列宽
End With
Rst.Close '关闭数据库连接
Conn.Close
Set Conn = Nothing
Set Rst = Nothing
End Sub

复制代码

介绍Microsoft Query的方法
1.从数据---自其他来源--来自Microsoft Query
从零开始学习SQL(图文教程) - CMMI - CMMI的博客

2.选择Excel类型
从零开始学习SQL(图文教程) - CMMI - CMMI的博客

3.选择工作簿（文件）
从零开始学习SQL(图文教程) - CMMI - CMMI的博客

4.选择工作表

5.选择需求数据的列
从零开始学习SQL(图文教程) - CMMI - CMMI的博客

6.筛选条件，本例只接选下一步
从零开始学习SQL(图文教程) - CMMI - CMMI的博客

7.排序方法，本教程也直接下一步
从零开始学习SQL(图文教程) - CMMI - CMMI的博客

8.返回工作表或Microsoft Query编辑器。（本例选 Microsoft Query，以便以编写SQL语句）
从零开始学习SQL(图文教程) - CMMI - CMMI的博客

9.编写SQL语句窗口。
从零开始学习SQL(图文教程) - CMMI - CMMI的博客

通过Microsoft Query学习SQL 9.jpg (146.92 KB, 下载次数: 26)

下载附件保存到相册

2013-10-9 13:29 上传

通过以上二种方法，能知道SQL书写到什么地方。
接下来，可以开始学习SQL语句语法。

1.基于一张工作表的查询语法
格式：       select[DISTINCT] [TOP<数值> [PERCENT] <列标题>[[as]]<别名列标题>]
         from <表或查询1>[AS]<别名1>],<表或查询2>[AS]<别名2>],
         [where<筛选条件>][order by<排序项>[asc ▏desc]]

说明：       1、<>表示必选项，"[]"表示可选项，"▏"表示多选一。
      2、       DISTINCT:消除取重复的行
      3、       TOP 数值：显示前几条记录
      4、       TOP 数值 percent：显示前面分之多少条记录
      5、       <列标题>[[as]]<别名列标题>:给标题列重新命一个新名称
      6、       where<筛选条件>：条件语句
      7、排序，如果要按两个或两个以上字段，那么字段与字段之间用豆号隔开，asc升序，为默认值，desc降序。

显示所有字段的记录（全部列的内容）
语句：
语句1：

select * from [sheet1$]

复制代码

语句2：

select 编号,姓名,性别,出生年月,职称,部门,基本工资,婚否,奖金 from [sheet1$]

复制代码

这二个语句具有同样的功能，出来的结果都是一样的。
语句1中的*号是代表全部列，语句 2中，是写上全部列字段的名称。
如果工作表没有列标题，用F1,F2,F3,F4.....这样代替
先看原表
从零开始学习SQL(图文教程) - CMMI - CMMI的博客

使用SQL语句出来的结果：
从零开始学习SQL(图文教程) - CMMI - CMMI的博客

Microsoft Query方法：
从零开始学习SQL(图文教程) - CMMI - CMMI的博客

将结果返回工作表：

返回工作表后样式：

Microsoft Query方法返回工作表后修改SQL语句方法：
“数据”选项卡---属性---连接属性--定义---命令文本
从零开始学习SQL(图文教程) - CMMI - CMMI的博客

补充说明vba启用宏方法：
1.调出开“发工具栏”
从零开始学习SQL(图文教程) - CMMI - CMMI的博客

2.在自定义功能区，勾选“开发工具栏”
从零开始学习SQL(图文教程) - CMMI - CMMI的博客

3.设置宏安全性

4.启用宏

5.进入VBA界面2
从零开始学习SQL(图文教程) - CMMI - CMMI的博客

6.运行子过程，把光标放于代码中间任意行，按F5执行，或绿色小三角执行。
按F8是逐步执行，是学VBA中重要的调试技术。
从零开始学习SQL(图文教程) - CMMI - CMMI的博客

本帖最后由 335081548 于 2013-10-9 20:52 编辑

使用SQL语句获取多列数据，及别名的使用
在Excel中所使用的SQL语句具体语法结构如下：

SELECT 列字段名1,列字段名2,列字段名3 FROM [工作表名称$]

复制代码

在本例中SELECT子句后列出查询的字段即可查询出结果，如输入以下的SQL语句：

SELECT 姓名, 性别, 职称,部门 FROM [Sheet1$]

复制代码

使用SQL语句后结果如下图：
从零开始学习SQL(图文教程) - CMMI - CMMI的博客

使用别名
1.字段别名

SELECT 字段名1 AS 重命名字段1,字段名2 AS 重命名字段2 FROM [Sheet1$]

复制代码

本例中SQL语句如下：

SELECT 姓名 AS Name FROM [Sheet1$]

复制代码

2.工作表别名

SELECT 工作表别名.* FROM [工作表名$] 工作表别名

复制代码

本例中SQL语句如下：

SELECT A.* FROM [Sheet1$] A

复制代码

所有字段列表
可能到这里就有人会问，你这不是多此一举吗？
2楼不是介绍了

SELECT * FROM [Sheet1$]

复制代码

就行了吗？还整这么复杂干什么？
其实（原来）SQL的代码是应该这样写的，上面的是简写。或者说只有一个表的情况，以后介绍多表的情况会用到表的别名。所以就在此一次把别名介绍了。

SELECT [工作表名].字段名 FROM [工作表名]

复制代码

实际中SQL语句应该如下：

SELCT [Sheet1$].* FROM [Sheet1$]

复制代码

这样的使用环境中，使用表名，就太大缩短SQL语句的字符和书写方便。

注意事项：
1.在SQL语句中SQL语句英文不区分大小写，但标点符号必须是英文半角状态下输入，字段名也必须跟原来的一样。
2.使用SQL语句的时候，必须避免列字段中使用下面的特殊字符：
空格、双引号（"）、撇（'）、数字标记（#）、百分号(%)、大于号（>）、小于号(<)、叹号(!)、句号(.)、方括号（[或]）、星号（*）、美元符号($)、分号（;）、脱字号（^）、圆括号（（或））、加号（+）、反斜杠（\或/）。
如果在源数据表的列字段使用了这些特殊字符，那么在使用SQL语句列出各字段的数据时，就会发生错误。为了规范使用SQL语句，在对数据源字段命名时，尽量避免使用这些特殊字符。

本帖最后由 335081548 于 2013-10-10 21:52 编辑

SQL语句中的关键词DISTINCT的使用，功能是去重复值只保留一条记录。语法结构为：

SELECT DISTINCT 要去重复值的字段1,要去重复值的字段2 FROM [工作表名$]

复制代码

实例中使用语法

Select Distinct 用户姓名,用户卡号 From [sheet1$]

复制代码

数据原图：

执行SQL语句后的效果图：

按条件筛选使用SQL关键词 WHERE查询中的条件指定要满足什么标准信息，去掉不满足条件的数据（删除用户不要的数据）。
WHERE语句中可以有多个条件，条件之间可以用操作符AND 或者OR进行连接。
WHERE语句的语法结构如下：

SELECT 列字段名称 FROM [表名称$] WHERE 列字段名运算符值

复制代码

运算符包含大于、小于、等于、不等于、大于或等于、小于或等于、IN、 BETWEEN、AND等。应用实例进行说明：
提取消费金额等于100的数据。（是不是比函数公式和VBA简单，语句也容易懂。）
本例使用的SQL语句如下：

SELECT * FROM [Sheet1$] where 消费金额=100

复制代码

ORDER BY 的语句使用对于ORDER BY 语句而言，默认值是升序排列，通常是不指定它。但升序的关键词为 ASC ,降序为 DESC 。
语法结构如下：

SELECT 列字段名 FROM [工作表名称$] ORDER BY 指定列字段名升序(降序)

复制代码

下面用具体的实例进行说明
按成绩进行升序排序本例中SQL语句如下：

Select * FROM [Sheet1$] ORDER BY 成绩 ASC

复制代码

执行后效果如图

按成绩进行降序排序
本例中SQL语句如下：

Select * FROM [Sheet1$] ORDER BY 成绩 DESC

复制代码

执行后效果如图：

二列数据按降序排序：SQL语句如下：

Select * FROM [Sheet1$] ORDER BY 英语 DESC,数学 DESC

复制代码

效果如图：

TOP 在SQL语句中的作用
TOP的应用按顺序提取记录

SELECT TOP 3 * FROM [工作表名$]

复制代码

提取前面3条记录.改变3为想要提取的数字，就可以实现想得到的记录
本例中使用的SQL语句如下：

SELECT TOP 3 * FROM [Sheet1$]

复制代码

结果如图：

按字段名排序提取前几名的语法
升序

SELECT TOP 3 字段名 FROM [工作表名] ORDER BY 字段名

复制代码

降序

SELECT TOP 3 字段名 FROM [工作表名] ORDER BY 字段名 DESC

复制代码

以下用实例进行说明
按成绩降序排列提取前三名：
SQL语句如下：

Select top 3 * FROM [Sheet1$A1:C17] ORDER BY 成绩 DESC

复制代码

结果如图所示：

升序：

Select top 3 * FROM [Sheet1$A1:C17] ORDER BY 成绩

复制代码

结果如图：

补充说明：
SQL的VBA语句如下：

Sub Test4()
Dim Conn As Object, Rst As Object
Dim strConn As String, strSQL As String
Dim i As Integer, PathStr As String
Set Conn = CreateObject("ADODB.Connection")
Set Rst = CreateObject("ADODB.Recordset")
PathStr = ThisWorkbook.FullName '设置工作簿的完整路径和名称
Select Case Application.Version * 1 '设置连接字符串,根据版本创建连接
Case Is <= 11
strConn = "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data source=" & PathStr
Case Is >= 12
strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathStr & ";Extended Properties=""Excel 12.0;HDR=YES"";"""
End Select
'设置SQL查询语句
'strSQL = "Select top 3 * FROM [Sheet1$] " '按顺序提取数据
strSQL = "Select top 3 * FROM [Sheet1$A1:C17] ORDER BY 成绩 DESC"
Conn.Open strConn '打开数据库链接
Set Rst = Conn.Execute(strSQL) '执行查询，并将结果输出到记录集对象
With Sheet1.Range("E:G")
.Cells.Clear
For i = 0 To Rst.Fields.Count - 1 '填写标题
.Cells(1, i + 1) = Rst.Fields(i).Name
Next i
.Range("A2").CopyFromRecordset Rst
.Cells.EntireColumn.AutoFit '自动调整列宽
.Cells.EntireColumn.AutoFit '自动调整列宽
End With
Rst.Close '关闭数据库连接
Conn.Close
Set Conn = Nothing
Set Rst = Nothing
End Sub

复制代码

其中 [Sheet1$A1:C17]这个表示工作表名Sheet1的工作表A1：C17的这个单元格区域，这个上面介绍的区别就是突出结果在同一个工作表上。所以加上了指定的单元格区域为数据。可以根据自己的实际情况，来改变.
不在同一张表上显示结果，而且数据源规范，就可以直接用[工作表名$]。或者书写的时候写上列名不用星号（"*"）
本例也可以用如下的语句达到同样的效果：

Select top 3 姓名,班级,成绩 FROM [Sheet1$] ORDER BY 成绩 DESC

复制代码

TOP 与 PERCENT 组合在SQL语句中的使用
功能：是按百分比提取
用实例进行说明
按成绩降序排列提取前30%
SQL语句如下：

Select TOP 30 PERCENT * FROM [Sheet1$A1:C17] ORDER BY 成绩 DESC

复制代码

结果如图所示：

注：
数据源16条数据，16*0.3=4.8 四舍五入等于 5 数据提取是整数所以结果是提取5条数据。
SQL语句中的一些简单计算函数：
COUNT函数，统计函数
语法如下：

SELECT COUNT(列字段) AS 别名1 FROM [工作表名$]

复制代码

本示例SQL语句如下：

Select count(姓名) as 人数 FROM [Sheet1$]

复制代码

按姓名统计人数，结果如图：

从零开始学习SQL(图文教程) - CMMI - CMMI的博客

SUM函数，求和函数。SQL语句语法如下：

Select Sum(列字段) as 别名 FROM [工作表名$]

复制代码

求总分，本例 SQL语句如下：

Select sum(成绩) as 总分 FROM [Sheet1$]

复制代码

结果如图：

AVG函数，求平均。SQL语句语法如下：

Select AVG(列字段) as 别名 FROM [工作表名$]

复制代码

本例中求平均分，SQL语句如下：

Select AVG(成绩) as 平均分 FROM [Sheet1$]

复制代码

结果如图：

现对上面的语句来个小变通，求成绩大于60的人数、总分、平均分
SQL语句如下：

Select AVG(成绩) as 大于60的平均分,SUM(成绩) as 大于60的总分,COUNT(成绩) as 大于60的人数 FROM [Sheet1$] WHERE 成绩>60

复制代码

结果如图所示：

MAX函数，求最大值。SQL语句语法如下：

Select MAX(列字段) as 别名 FROM [工作表名$]

复制代码

本例中SQL语句如下：

Select MAX(成绩) as 最高分 FROM [Sheet1$]

复制代码

结果如图所示：

MIN，求最小值函数，SQL语句语法如下：

Select MIN(列字段) as 别名 FROM [工作表名$]

复制代码

本例中使用的SQL语句如下：

Select MIN(成绩) as 最低分 FROM [Sheet1$]

复制代码

结果如图所示：

贝爷_野外求生

关注

17
点赞
踩
83

收藏

觉得还不错? 一键收藏
0
评论
从零开始学习SQL(图文教程)

http://club.excelhome.net/thread-1061487-1-1.html学习SQL一步一步开始，跟着本文的脚印带你走向SQL方向。本分先分别介绍Microsoft Query 方法书写SQL语句，和VBA方法书写SQL语句。(注：VBA语句中只需修改其中的SQL语句即可，其他只需要复制粘贴即可)。下面先上图:进入VBA界面 2.插入模块 3.双击模块 4.在代码区码写
复制链接

扫一扫

专栏目录