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

bibisin

超级详细，谢谢分享

qldd

占位，学习

jiangdong110

讲的很详细，慢慢学习！

homewin

多谢分享，收藏学习。

7425

感谢分享学习中，谢谢lz

1578278106

很详细，谢谢分享，期待继续深入讲解。

yiyiyicz

感谢先，非常感谢楼主的辛苦工作，为我等学习SQL提供指导
另外，能不能多来点实例，并在重点语句给出详细注释

daveman

335081548 发表于 2013-12-14 21:10

datediff没有datedif准吧，不是以年月日为周期的把

kril

学习，谢谢

335081548

二个工作簿中数据连接要求：
用SQL语句 将辅助表里面的全部信息黏贴到明细表，并关联inner表里面的 inner数据








SQL语句代码

1. SELECT A.货号,名称,陈列图指示,B.inner FROM [C:\Documents and Settings\admin\桌面\两表合并\辅助.xlsx].[基础信息$]A Inner Join [C:\Documents and Settings\admin\桌面\两表合并\Select.xlsm].[inner$]B ON A.货号=B.sku

复制代码

最后结果示意图


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.     '设置SQL查询语句
    
15.     Conn.Open strConn    '打开数据库链接
    
16.     strSQL = "SELECT A.货号,名称,陈列图指示,B.inner FROM [" & ThisWorkbook.Path & "\辅助.xlsx].[基础信息$]A Inner Join [" & ThisWorkbook.Path & "\Select.xlsm].[inner$]B ON A.货号=B.sku"
    
17.     Set Rst = Conn.Execute(strSQL)    '执行查询，并将结果输出到记录集对象
    
18.     With Sheets("明细").Range("A2:D" & Rows.Count)
    
19.         .Cells.Clear
    
20. '        For i = 0 To Rst.Fields.Count - 1    '填写标题
    
21. '            .Cells(1, i + 1) = Rst.Fields(i).Name
    
22. '        Next i
    
23.         .Range("A1").CopyFromRecordset Rst
    
24.         .Cells.EntireColumn.AutoFit  '自动调整列宽
    
25.     End With
    
26.     Rst.Close    '关闭数据库连接
    
27.     Conn.Close
    
28.     Set Conn = Nothing
    
29.     Set Rst = Nothing
    
30. End Sub

复制代码

SQL语法如下：

1. SELECT 要显示的字段 FROM [文件路径\工作簿名1.扩展名].[工作表名1$]A Inner Join [文件路径\工作簿名2.扩展名].[工作表名2$]B ON A.公共字段=B.公共字段

复制代码