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

vsvs619

335081548 发表于 2014-1-31 10:05
用ADO+SQL在Excel文件中，插入新的数据
INSERT INTO [Sheet1$] (编号,商品名称, 单位,数量,单价,金额) VAL ...

感谢大师分享经验！请教一个问题，我建了个新空白excel工作表，在使用
INSERT INTO [Sheet1$] (编号,商品名称, 单位,数量,单价,金额) VALUES (21,'洗衣机','台',100,2500,250000)
这个语句的时候，出现下面问题：
我在这个新表中先建立这六个字段名“编号,商品名称, 单位,数量,单价,金额”，再使用insert into 语句的时候可以成功插入“21,'洗衣机','台',100,2500,250000”这几个值。
可是如果新表中完全空白，想直接插入字段名和字段值的时候msql总是提示字段名错误。
简单说，就是我在新空表中不能直接插入字段名。

335081548

SQL多文件夹下多工作簿多工作表汇总
本实例适用于在一个文件夹下，有多个子文件夹，文件夹里有多个工作簿，工作簿里有多个工作表，而且数量不固定，文件夹可以拷贝到任意位置使用.
可以不知道文件夹路径，可以不知道工作簿名(不确定、无规律)，可以不知道工作表名，不知道工作表数量。
但表的结构一定要一样。这是唯一的要求。

1. 
   
2. Sub SQL多文件夹下多工作簿多工作表汇总_雪山飞狐()
   
3.     Dim Fso As Object, Folder As Object, ArrFile$(), mf As Long, i As Long, x As Integer
   
4.     Dim Cnn As Object, Rs As Object, SQL As String, SheetName$
   
5.     With Application.FileDialog(msoFileDialogFolderPicker)
   
6.         .InitialFileName = ThisWorkbook.Path & ""
   
7.         If .Show = False Then Exit Sub
   
8.         MyPath = .SelectedItems(1)
   
9.     End With
   
10.     Set Fso = CreateObject("Scripting.FileSystemObject")
    
11.     Set Folder = Fso.GetFolder(MyPath)
    
12.     Call GetFiles(Folder, ArrFile, mf)
    
13.     Select Case Application.Version * 1    '根据Excel版本选择合适的连接语句
    
14.     Case Is <= 11    '03以下包括03
    
15.         strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data source="
    
16.     Case Is >= 12    '07以上包括07
    
17.         strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source="
    
18.     End Select
    
19.     Set Cnn = CreateObject("ADODB.Connection")
    
20.     With Sheets("Sheet3")
    
21.         .Cells.Clear    '清除所有内容
    
22.         For i = 1 To mf
    
23.             If ArrFile(i) <> ThisWorkbook.FullName Then    '文件不等于本文件
    
24.                 Set Cnn = CreateObject("ADODB.Connection")
    
25.                 Cnn.Open strConn & ArrFile(i)
    
26.                 Set Rs = Cnn.OpenSchema(20)    '使用OpenSchema 方法取得数据源中的所有表信息，其中20是参数adSchemaTables的值，因为采用的是后期绑定，所以只能使用adSchemaTables的值
    
27.                 Do Until Rs.EOF
    
28.                     If Rs.Fields("TABLE_TYPE") = "TABLE" Then    '判断表类型是工作表，数据库中是数据表
    
29.                         SheetName = Replace(Rs("TABLE_NAME").Value, "'", "")    '去掉可能存在的单引号，只能当工作表名中含有数字时才会出现
    
30.                         If Right(SheetName, 1) = "$" Then
    
31.                             SQL = "Select * From [" & SheetName & "] "
    
32.                             .Range("A" & Rows.Count).End(xlUp).Offset(1).CopyFromRecordset Cnn.Execute(SQL)
    
33.                         End If
    
34.                     End If
    
35.                     Rs.MoveNext
    
36.                 Loop
    
37.             End If
    
38.         Next
    
39.         For x = 0 To Cnn.Execute(SQL).Fields.Count - 1    '填写标题
    
40.             .Cells(1, x + 1) = Cnn.Execute(SQL).Fields(x).Name
    
41.         Next
    
42.     End With
    
43.     Set Folder = Nothing: Set Fso = Nothing
    
44.     Rs.Close: Cnn.Close
    
45.     Set Rs = Nothing: Set Cnn = Nothing
    
46. End Sub
    
47. Sub GetFiles(ByVal Folder As Object, ArrFile$(), mf&)
    
48.     Dim SubFolder As Object
    
49.     Dim File As Object
    
50.     'If Folder.Path <> ThisWorkbook.Path Then'子文件夹
    
51.     For Each File In Folder.Files
    
52.         If File.Name Like "*.xls*" And InStr(File.Name, ThisWorkbook.Name) = 0 Then
    
53.             mf = mf + 1
    
54.             ReDim Preserve ArrFile(1 To mf)
    
55.             ArrFile(mf) = File
    
56.         End If
    
57.     Next
    
58.     'End If
    
59.     For Each SubFolder In Folder.SubFolders
    
60.         Call GetFiles(SubFolder, ArrFile, mf)
    
61.     Next
    
62. End Sub
    

复制代码

SQL多文件夹下多工作簿多工作表汇总.rar (75.68 KB, 下载次数: 833)

2015-1-30 22:10 上传

点击文件名下载附件

335081548

SQL跨工作簿多表查询

1. 
   
2. Sub SQL多表查询_雪山飞狐()
   
3.     Dim Conn As Object, Rst As Object
   
4.     Dim strConn As String, strSQL As String
   
5.     Dim i As Integer, PathStr As String
   
6.     On Error GoTo ErrScr
   
7.     Set Conn = CreateObject("ADODB.Connection")
   
8.     Set Rst = CreateObject("ADODB.Recordset")
   
9.     PathStr = ThisWorkbook.FullName   '设置工作簿的完整路径和名称
   
10.     Select Case Application.Version * 1    '设置连接字符串,根据版本创建连接
    
11.     Case Is <= 11
    
12.         strConn = "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data source=" & PathStr
    
13.     Case Is >= 12
    
14.         strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathStr & ";Extended Properties=""Excel 12.0;HDR=YES"";"""
    
15.     End Select
    
16.     '设置SQL查询语句
    
17.     Conn.Open strConn    '打开数据库链接
    
18.     strSQL = "Select * From (" _
    
19.            & "Select * From [" & ThisWorkbook.Path & "\数据源.xlsx].[Sheet1$]  Union All " _
    
20.            & "Select * From [" & ThisWorkbook.Path & "\数据源.xlsx].[Sheet2$]  Union All " _
    
21.            & "Select * From [" & ThisWorkbook.Path & "\数据源.xlsx].[Sheet3$] ) " _
    
22.            & "Where 班級&組別 In ( Select 班級&組別 From [Sheet1$A1:B]) "
    
23.              'Debug.Print strSQL
    
24.     Set Rst = Conn.Execute(strSQL)    '执行查询，并将结果输出到记录集对象
    
25.     With Sheets("Sheet2")
    
26.         .Cells.Clear
    
27.         For i = 0 To Rst.Fields.Count - 1    '填写标题
    
28.             .Cells(1, i + 1) = Rst.Fields(i).Name
    
29.         Next i
    
30.         .Range("A2").CopyFromRecordset Rst
    
31.         .Cells.EntireColumn.AutoFit  '自动调整列宽
    
32.     End With
    
33.     Rst.Close: Conn.Close    '关闭数据库连接
    
34.     Set Conn = Nothing: Set Rst = Nothing
    
35.     Exit Sub
    
36. ErrScr:
    
37.     MsgBox Err.Description, , "雪山飞狐温馨提示"
    
38. End Sub
    

复制代码

睚一

我想说的是，如果你要用的是两个工作表的数据时，你的SQL数据是怎么操作的 呢？ 就是你上满介绍的都是用到sheet1表格里面的数据，但是当我要用到sheet2里面的数据的时候，SQL怎么书写呢？  还有就是你在里面介绍的多表合并的时候我也没有看到，怎么同时操作两个表格的数据？在同时把两个数据表格里面的列都移动到右边，然后在建立连接还是怎么操作？？？因为才刚刚开始学习SQL，功力还不够，如果问题太弱智，你见谅！！！

学不完用不尽

学一点sql。

zhouzhongchi

顶，千斤顶！

A195713812

很好的教程

jx_shangrila

Union All 查找多表数据不错

x007file

学习中。。。

lcjy11185

学习sql较全的一个例子。做记号