使用ADO连接数据源一般有几种方法？

作者：绿色风分类：时间：2022-08-17 浏览：134

楼主
水星钓鱼

Q：使用ADO连接数据源一般有几种方法？
A：以连接Excel数据源为例，通常ADO使用两种方法与Excel数据源建立连接
方法1：使用ADO对象的Connection对象的Open方法打开连接，语法如下：
connection.Open ConnectionString, UserID, Password, Options
一般只要输入第一个参数ConnectionString（连接字符串即可）
方法2：使用ADO对象的Recordset对象的Open方法打开连接，语法如下：
recordset.Open Source, ActiveConnection, CursorType, LockType, Options
其中recordset.Open 的第一个参数一般是要执行的SQL语句，第二个参数可以是连接字符串也可以是一个已打开连接的Connection对象
具体可以参阅MSDN中的帮助文件
http://msdn.microsoft.com/en-us/library/ms679836(v=vs.85).aspx
以下两个代码分别用方法1和方法2连接Excel数据源，并将查询到的结果写入新建的工作表中。
方法1：

Sub xyf()
Dim oRecrodset
Dim oConStr
Dim sConStr As String
Dim sSql As String
Dim oWk As Worksheet
Dim i As Integer
Set oWk = ThisWorkbook.Worksheets.Add
sConStr = "Provider='Microsoft.Jet.OLEDB.4.0';Data Source=" & ThisWorkbook.FullName & ";Extended Properties='Excel 8.0;HDR=YES'"
Set oConStr = CreateObject("ADODB.Connection")
'使用Connection连接数据源，并用Execute方法执行对应的SQL语句生成Recrodset对象
oConStr.Open sConStr
sSql = "select * from [一月$]"
Set oRecrodset = oConStr.Execute(sSql)
With oRecrodset
'循环导入字段名
For i = 1 To .Fields.Count
oWk.Cells(1, i) = .Fields(i - 1).Name
Next
oWk.Cells(2, 1).CopyFromRecordset oRecrodset
End With
Set oRecrodset = Nothing
End Sub

方法2：

Sub xyf()
Dim oRecrodset
Dim sConStr As String
Dim sSql As String
Dim oWk As Worksheet
Dim i As Integer
Set oWk = ThisWorkbook.Worksheets.Add
sConStr = "Provider='Microsoft.Jet.OLEDB.4.0';Data Source=" & ThisWorkbook.FullName & ";Extended Properties='Excel 8.0;HDR=YES'"
sSql = "select * from [一月$]"
Set oRecrodset = CreateObject("ADODB.Recordset")
With oRecrodset
'使用Recordset对象连接数据源
.Open sSql, sConStr
'循环导入字段名
For i = 1 To .Fields.Count
oWk.Cells(1, i) = .Fields(i - 1).Name
Next
oWk.Cells(2, 1).CopyFromRecordset oRecrodset
End With
Set oRecrodset = Nothing
End Sub

附件可以在下面的链接下载

用ADO返回Recordset时，如何将包括字段名在内的结果都写入单元格中？
http://www.exceltip.net/thread-31353-1-1.html

2楼
bluexuemei

学习,留个记号

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表