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

xgy0214dxy

顶一下，收藏，VBA结合SQL进行数值处理分析又是一个新层次，谢谢

335081548

多条件查询:
如何查询二个日期间的数据
Where .... AND...
查找大于等于2013年10月1日，小于等于2013年10月7日的数据，的SQL表达式为：

1. SELECT * From [Sheet1$A:C] where 日期>=#10/1/2013# And 日期<=#10/7/2013#

复制代码

查询两个日期内的数据，并以单元为动态引用

1. strSQL = "SELECT * From [Sheet1$A:C] where 日期>=#" & Range("J1") & "# And 日期<=#" & Range("K1") & "#"

复制代码

结果如图所示：

335081548

如何用SQL语句完成多表列不相等的数据合并

完成下图的效果


实现的SQL语句如下：

1. SELECT 产品名称,Null as 子产品名称,Null as 子产品名称2,数量 FROM [Sheet1$A1:B3]  Union All SELECT 产品名称,子产品名称,Null as 子产品名称2,数量 FROM [Sheet1$E1:G5] UnION All SELECT 产品名称,Null as 子产品名称, 子产品名称2,数量 FROM [Sheet1$I1:K18] ORDER BY 产品名称,子产品名称,子产品名称2

复制代码

SQL注意的列字段要一 一对应 才能用Union All进行连接合并，像本例中原数据不可能一 一对应，所以只有用一个小技巧 Null as 字段名，添加上空的列字段，使字段能一 一对应。Null可以理解为缺少或未知的数据。

335081548

Like 操作符用于在 WHERE 子句中搜索列中的模糊匹配
Select 列字段名 From [工作表名$] Where 列字段 Like '关键字'
可以加上通配符% （相当于函数公式中的通配符*）
本例采用的SQL语句：

1. Select * from [Sheet1$] Where 姓名 like 'A%'

复制代码

正向匹配结果如图：


如果数据表中有很多数据，也可反向匹配，也就是排除法

1. Select * from [Sheet1$] Where Not 姓名 like 'A%'

复制代码

多条件匹配用中括号"[] ",只要数据符合中括号中的任意一个就OK
本例匹配以A开头或B开头的数据

1. strSQL = "Select * from [Sheet1$] Where 姓名 like '[AB]%'"

复制代码

本例是匹配不以xx开头的数据。

1. strSQL = "Select * from [Sheet1$] Where 姓名 like '[!AB]%'"

复制代码

匹配姓名列 数据不以A开头或B形头的数据

通配符	描述
%	替代一个或多个字符

335081548

简单的子查询

如图如果要查询语文成绩大于平均分的数据，必须要先求出平均分，
经过学习，我们知道用如下语句

1. Select Avg(语文)  From [Sheet1$]

复制代码

就可以求出语文成绩的平均分。
那么大于平均分的成绩就可以用where语句来表达具体组成语法如下：

1. Select 姓名,语文 From[Sheet1$] where 语文>(平均分)

复制代码

用VBA语句表达可以拆分开来理解

1. 子查询语句 = "Select Avg(语文)  From [Sheet1$]" '语文的平均成绩
   
2. strSQL = "Select 姓名,语文 From [Sheet1$] Where 语文 >(" & 子查询语句 & ")" '查询大于语文平均成绩同学

复制代码

也许这种写法更好理解

1. 平均分= "Select Avg(语文)  From [Sheet1$]" '语文的平均成绩
   
2. strSQL = "Select 姓名,语文 From [Sheet1$] Where 语文 >(" & 平均分 & ")" '查询大于语文平均成绩同学

复制代码

也可以写成一句

1. Select 姓名,语文 From [Sheet1$] Where 语文 >(Select Avg(语文)  From [Sheet1$])

复制代码

大家都可以动手去操作，这样更容易理解些，印象更深刻。

335081548

IN运算符在SQL中的应用
In运算符允许 在 WHERE 子句中规定多个值
语法如下：

1. Select 字段 From [表名$] Where 字段 In(条件1, 条件2,条件3, ....)

复制代码

注：

如果在In的条件中不是数值类型，一定要加上引号。

如本在本例中提取广东、广西 二省的数据

SQL语句如下：

1. Select *  FROM [Sheet1$A:D] where 省份 in('广东','广西')

复制代码

结果如图所示：

假如不使用In语句，将语句将比较长：

1. Select *  FROM [Sheet1$A:D] where 省份 ='广东'or 省份 ='广西'

复制代码

相当于小学中的数学中的简便计算方法

15*25+15*10

=15*（25+10）

比如不大恰当，只是为了方便记忆 。仅纯属娱乐。

从上面可以看出in()是Or的关系。

同样可以配合其他表式使用

例如提取 省份广东、广西 班级三（1）班、三（2）班 成绩大于60分的，

假如要使用VBA语句，将要使用很if进行判断

SQL语句如下：

1. Select *  FROM [Sheet1$A:D] where 省份 In('广东','广西') And 班级 In('三（1）班','三（2）班') And 成绩>60

复制代码

没有使用IN语句的SQL语句如下：

1. Select *  FROM [Sheet1$A:D] where (省份 ='广东'or 省份 ='广西') And (班级='三（1）班'or 班级='三（2）班') And 成绩>60

复制代码

完整VBA代码如下：

1. Sub Test4()
   
2.     Dim Conn As Object, Rst As Object
   
3.     Dim strConn As String, strSQL As String
   
4.     Dim i As Integer, PathStr As String
   
5.     Set Conn = CreateObject("ADODB.Connection")
   
6.     Set Rst = CreateObject("ADODB.Recordset")
   
7.     PathStr = ThisWorkbook.FullName   '设置工作簿的完整路径和名称
   
8.     Select Case Application.Version * 1    '设置连接字符串,根据版本创建连接
   
9.     Case Is <= 11
   
10.         strConn = "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data source=" & PathStr
    
11.     Case Is >= 12
    
12.         strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathStr & ";Extended Properties=""Excel 12.0;HDR=YES"";"""
    
13.     End Select
    
14.     Conn.Open strConn    '打开数据库链接
    
15.     '设置SQL查询语句
    
16.     'strSQL = "Select *  FROM [Sheet1$A:D] where 省份 in('广东','广西') "
    
17.     'strSQL = "Select *  FROM [Sheet1$A:D] where 省份 ='广东'or 省份 ='广西'"
    
18.     'strSQL = "Select *  FROM [Sheet1$A:D] where 省份 In('广东','广西') And 班级 In('三（1）班','三（2）班') And 成绩>60 "
    
19.     strSQL = "Select *  FROM [Sheet1$A:D] where (省份 ='广东'or 省份 ='广西') And (班级='三（1）班'or 班级='三（2）班') And 成绩>60 "
    
20.     Set Rst = Conn.Execute(strSQL)    '执行查询，并将结果输出到记录集对象
    
21.     With Sheet1.Range("F:I")
    
22.         .Cells.Clear
    
23.         For i = 0 To Rst.Fields.Count - 1    '填写标题
    
24.             .Cells(1, i + 1) = Rst.Fields(i).Name
    
25.         Next i
    
26.         .Range("A2").CopyFromRecordset Rst
    
27.         .Cells.EntireColumn.AutoFit  '自动调整列宽
    
28.     End With
    
29.     Rst.Close    '关闭数据库连接
    
30.     Conn.Close
    
31.     Set Conn = Nothing
    
32.     Set Rst = Nothing
    
33. End Sub

复制代码

baoguo224

非常有价值的讲解，不顶不行了。老师再多讲一些吧，太解渴了{:soso_e179:}

G.Eleven

比较好的扫盲贴,不错了,顶一下

homewin

好东西，学习。。

335081548

对不规范的表格去重复值和有空白单元格的数据
SQL语句 如下：

1. Select Distinct 姓名,数字,手机 From [sheet1$A:F] Where 姓名 Is Not Null

复制代码

效果见图：