SQL入门教程第04课：SQL查询中"表"技巧的总结
SQL入门教程第04课：SQL查询中"表"技巧的总结
AhaExcel
建议常用Excel的职场人关注，海量教程随学随用，随用随查。 主创：看见星光，微软全球最有价值专家、Excel图书作者、培训师。 内容：每日四文，一篇函数教程、一篇VBA教程、一个短视频小技巧、一篇杂文。
HI，大家好，我是星光。上期我们聊了SQL常用查询语句中的字段查询，其简化版语法如下：
SELECT
字段名
FROM
表名
1.区域成表
SELECT
姓名,学科 FROM [数据表
$A2
:D8]
SELECT
姓名,爱好 FROM [学生表
$A2
:F]
SELECT
* FROM [学生表
$D
:G]
2.跨工作簿的表
SELECT
*
FROM
[D:EH小学学生表.xlsx]
.
[成绩表$]
Sub ADO_SQL()
’适用于除2003版以外的高版本Excel
Dim cnn As Object, rst As Object
Dim strPath As String, strCnn As String, strSQL As String
Dim i As Long
Set
cnn = CreateObject(
"adodb.connection"
)
strPath =
"D:EH小学学生表.xlsx"
’指定工作簿
strCnn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & strPath
cnn.Open strCnn ’
创建并打开到指定工作簿的链接
strSQL =
"SELECT * FROM [成绩表$]"
’strSQL语句，查询成绩表的所有数据
Set rst = cnn.Execute(strSQL) ’
执行strSQL
Cells.ClearContents
For
i =
0
To
rst.Fields.Count -
1
Cells(
1
, i +
1
) = rst.Fields(i).Name
Next
Range
(
"a2"
).CopyFromRecordset rst
cnn.Close
Set
cnn =
Nothing
End
Su
Sub
ADO_SQL2()
’适用于除2003版以外的高版本Excel
Dim
cnn As Object, rst As Object
Dim
strPath As String, strCnn As String, strSQL As String
Dim
i As Long
Set
cnn = CreateObject("adodb.connection")
strPath
=
ThisWorkbook.FullName ’代码所在工作簿的完整名称
strCnn
=
"Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & strPath
cnn.Open
strCnn ’创建到代码所在工作簿的链接
strSQL
=
"SELECT * FROM [Excel 12.0;DATABASE=D:EH小学学生表.xlsm].[成绩表$]"
Set
rst = cnn.Execute(strSQL) ’执行SQL
Cells.ClearContents
For
i = 0 To rst.Fields.Count - 1
Cells(1,
i + 1) = rst.Fields(i).Name
Next
Range("a2").CopyFromRecordset
rst
cnn.Close
Set
cnn = Nothing
End
Sub
SELECT
*
FROM
[Excel
12.0
;DATABASE=D:EH小学学生表.xlsx].[成绩表$]
本文由公众号“Excel星球”首发。
点击 阅读原文 ，加入Excel会员社群！