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

335081548 · 发表于 2014-5-13 23:45

有合并单元格的SQL应用

用SQL求出两个月都没有销售过的业务员记录（结果表返回所有字段）

知识点:

1、HDR=Yes改为：HDR=NO (因为从第3行开始,第一至二行有合并单元格)

2、无标题字段将采用F1,F2,F3....表示字段

3、SQL语句就一句

如下：

SELECT F1 AS 区域, F2 AS 门店, F3 AS 业务员, F4 AS 1月数量, F5 AS 1月金额, F6 AS 2月数量, F7 AS 2月金额 FROM[数据源$A3:G] WHERE F5&F7 IS NULL

复制代码

完整的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=NO"";"""
End Select
Conn.Open strConn '打开数据库链接
'设置SQL查询语句
strSQL = "SELECT F1 AS 区域, F2 AS 门店, F3 AS 业务员, F4 AS 1月数量, F5 AS 1月金额, " & _
"F6 AS 2月数量, F7 AS 2月金额 FROM[数据源$A3:G] WHERE F5&F7 IS NULL"
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 '自动调整列宽
End With
Rst.Close '关闭数据库连接
Conn.Close
Set Conn = Nothing
Set Rst = Nothing
End Sub

复制代码

335081548 · 发表于 2014-5-13 23:47

增加合并单元格的应用一例

suyunlong123 · 发表于 2014-5-14 07:33

占位 to 学习

青见 · 发表于 2014-5-14 08:35

一部很好的教课书！

yangyoung427 · 发表于 2014-5-14 20:20

非常详细，谢谢分享！

willimwang · 发表于 2014-5-14 20:40

占位！等我先把VBA吃透，再来向大师请教！

志哥 · 发表于 2014-5-22 20:09

支持一下···
pdf 好多图片没有显示出来啊·····

office8424 · 发表于 2014-5-22 21:25

先献花尊重劳动成果!!!!!

xytd · 发表于 2014-5-23 10:07

留个记号备学！！！

dajiahaoxinku12 · 发表于 2014-6-2 15:27

感谢大师分享，学习了

		自动登录	找回密码
密码			免费注册

[原创] 从零开始学习SQL(图文教程)