我的SQL学习贴

lcjy11185 · 发表于 2017-4-12 15:34

我也做个记号。ADO

autumnalRain · 发表于 2017-8-15 20:29

SQL语句顺序

Select 列字段1,列字段2,列字段3,..... From[工作表名$] Where 条件 GROUP BY 列字段1,列字段2 HAVING 条件 ORDER BY 列字段1,列字段2

复制代码

autumnalRain · 发表于 2017-8-15 20:30

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

复制代码

sh205 · 发表于 2017-8-16 09:34

收藏，慢慢学

任飘渺 · 发表于 2017-8-18 11:43

留名学习学习

autumnalRain · 发表于 2017-8-18 17:42

如果是简单的数据处理，用以下代码作为模板

Sub TEST()
Set CONN = CreateObject("ADODB.CONNECTION")
CONN.Open "provider=microsoft.ACE.OLEDB.12.0;extended properties='Excel 12.0;hdr=no';data source=" & ThisWorkbook.FullName '2007及以上
Sheets("Sheet2").[a1].CopyFromRecordset CONN.Execute("select distinct * from [Sheet1$] ")
End Sub

复制代码

頔頔酱 · 发表于 2017-11-7 10:13

也来入门，感谢分享，谢谢你！

sunfull_zhong · 发表于 2018-1-5 08:32

超感谢大师的无私奉献~！

沧海一声笑NEW2 · 发表于 2018-2-3 17:32

非常棒的整理，超赞。

zhangjinsong · 发表于 2018-2-3 19:12

要学习的东西太多了，一样一样来吧！！！！！！谢谢分享！！！

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

[分享] 我的SQL学习贴