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

dancefly09 · 发表于 2014-6-2 20:43

真的非常不错！！对于VBA连接数据源问题一直不明白，一直没找到一篇系统的教程，这篇真的很不错，非常感谢！

睡醒的我 · 发表于 2014-6-3 14:55

版主，有没有汇总成一个文件的的

yj0715 · 发表于 2014-6-30 22:44

占位待学习。

bl_pengc · 发表于 2014-7-1 06:45

好好学习
中，老师，

jianghuan4577 · 发表于 2014-7-4 14:31

非常详细，但是想请教下，第二种书写方法，即Microsoft Query的方法，我按着步骤走，但是没有找到SQL工作簿，即从零开始学习，是什么原因呢？

zhibeiyou_71 · 发表于 2014-7-15 18:03

绝对好贴。今天看了前面的几个例子。明后天继续。

gdw831001 · 发表于 2014-7-18 12:13

太好了！！！！！！！！

km122712 · 发表于 2014-7-19 22:28

感谢楼主图文并茂的作品分享！

cha7939 · 发表于 2014-7-27 22:33

真的是太好了，非常感谢！

335081548 · 发表于 2014-8-11 22:05

本帖最后由 335081548 于 2014-8-11 22:41 编辑

使用ADOX不打开工作簿获取工作表名
使用ADOX不打开工作簿获取工作表名_雪山飞狐.jpg

代码如下：

Sub 使用ADOX不打开工作簿获取工作表名_雪山飞狐()
Dim MyCat As Object, MyTbl As Object
Dim MyBook As String, i As Integer, StrConn As String
Set MyCat = CreateObject("ADOX.Catalog")
Set MyTbl = CreateObject("ADOX.Table")
MyBook = ThisWorkbook.FullName'工作簿完整路径和工作簿名及扩展名
Select Case Application.Version * 1 '设置连接字符串,根据版本创建连接
Case Is <= 11
StrConn = "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data source=" & MyBook
Case Is >= 12
StrConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & MyBook & ";Extended Properties=""Excel 12.0;HDR=YES"";"""
End Select
MyCat.ActiveConnection = StrConn
Cells.ClearContents
i = 2
Range("A1:B1") = Array("查询出的名称", "处理后的名称")
For Each MyTbl In MyCat.Tables
Cells(i, 1) = MyTbl.Name
Cells(i, 2) = Mid(MyTbl.Name, 1, Len(MyTbl.Name) - 1)
i = i + 1
Next
End Sub

复制代码

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

[原创] 从零开始学习SQL(图文教程)