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會員社群！