在VBA中如何将SQL得到的数据直接赋值到数组？

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

楼主
amulee

Q：在VBA中如何将SQL得到的数据直接赋值到数组？
A：可以利用RecordSet的GetRows方法获取数组。

Sub SQL2Arr()
Dim AdoCN As Object
Dim AdoRe As Object
Dim SQL As String
Dim Arr1, Arr2, Arr3
Set AdoCN = CreateObject("ADODB.Connection")
Set AdoRe = CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM [Sheet1$A1:C11]"
AdoCN.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & ThisWorkbook.FullName & ";" & _
"Extended Properties=Excel 12.0;"
Set AdoRe = AdoCN.Execute(SQL)
Arr1 = AdoRe.GetRows(, , "姓名") '取得某一列
AdoRe.MoveFirst '取完一次，要将指针移动到最前
Arr2 = AdoRe.GetRows(, , Array("姓名", "班级")) '取得两列
AdoRe.MoveFirst '取完一次，要将指针移动到最前
Arr3 = AdoRe.GetRows '取得全部
AdoCN.Close
Set AdoRe = Nothing
Set AdoCN = Nothing
End Sub

利用这个方法，也可以单独获取某一字段。

SQL2Arr.rar

2楼
水星钓鱼

感谢分享。

免责声明

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

评论列表