ExcelHome学院

 找回密码
 入学

扫描二维码登录本站

EH搜索     
白话Excel函数公式 Office易学宝微视频教程合集(Excel+Word+PPT)
笨办法学VBA(从入门到精通) 高效办公必会的Office实战技巧
财务总监的Excel私房课 Excel数据透视表实战秘技
Excel图表神技
查看: 1932|回复: 4

[课时一] 【分享】用vba连接SQL Server 2005

[复制链接]
发表于 2011-6-2 08:07:44 | 显示全部楼层 |阅读模式
当然,首先要引用ActiveX Data Objects (ADO)



Sub Connect2SQLXpress ()

Dim oCon As ADODB.Connection
Dim oRS As ADODB.Recordset

Set oCon = New ADODB.Connection
oCon.ConnectionString = "Driver= {SQL Native Client}; Server=.\SQLEXPRESS; Database=DB1; Trusted_Connection=yes;"
oCon.Open

Set oRS = New ADODB.Recordset
oRS.ActiveConnection = oCon
oRS.Source = "Select * From Table1"
oRS.Open

Range ("A1").CopyFromRecordset oRS
oRS.Close
oCon.Close

If Not oRS Is Nothing Then Set oRS = Nothing
If Not oCon Is Nothing Then Set oCon = Nothing

End Sub
untitled.JPG

评分

参与人数 1登攀 +5 收起 理由
wudixin96 + 5 谢谢分享。

查看全部评分

回复

使用道具 举报

发表于 2011-6-2 09:19:17 | 显示全部楼层
这个课程拓展吧,个人感觉本课程主要是练习OLE DB EXCEL中的sql语法练习,这地方了解一下就可以罢。
回复 支持 反对

使用道具 举报

发表于 2011-6-2 09:43:02 | 显示全部楼层
何必要引用呢。


dim oCon as object ,  oRS as object
Set oCon = CreateObject("ADODB.Connection")
Set oRS = CreateObject("ADODB.Recordset")

可以免引用。

[ 本帖最后由 xmyjk 于 2011-6-2 09:44 编辑 ]
回复 支持 反对

使用道具 举报

发表于 2012-4-9 20:01:56 | 显示全部楼层
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 入学

本版积分规则

小黑屋|手机版|ExcelHome ( 沪ICP备11019229号-2 )

GMT+8, 2021-10-22 18:23 , Processed in 0.082282 second(s), 17 queries , MemCache On.

Powered by Discuz! X3.4

© 1999-2021 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表