白话Excel函数公式 Office易学宝微视频教程合集(Excel+Word+PPT)
笨办法学VBA(从入门到精通) 高效办公必会的Office实战技巧
财务总监的Excel私房课 网易云课堂-Excel数据透视表应用大全
Excel图表神技
查看: 1730|回复: 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 | 显示全部楼层
呵呵,支持一下!
回复 支持 反对

使用道具 举报

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

本版积分规则

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