vba mysql查询数组中_打开数据库，把记录集的数据装入数组

大家好，今日继续讲解《VBA数据库解决方案》，今日讲解第42讲内容，把记录集的数据，如何记入数组。这讲的内容涉及到数组在数据库中的应用，如果大家对数组还有不理解之处也可以参考拙著《工作表数组与VBA数组解决方案》，数组在EXCEL及其接口程序中的应用中有着不可替代的角色，利用好了，可以给自己的工作表处理和VBA数据处理带来很大的方便。

今日实例：在数据库中有如下的数据：

我们要打开这个数据库，然后把内容先存到一个数组中，最后在工作表中体现出来。

下面看我给出的代码：

Sub mynzUpdateRecords_42() '第42将 将数据记录存入数组的方案

Dim cnADO, rsADO As Object, Fdsarr, Arr

Dim strPath, strTable, strSQL, strMsg As String

Set cnADO = CreateObject("ADODB.Connection")

Set rsADO = CreateObject("ADODB.Recordset")

strPath = ThisWorkbook.Path & "\mydata2.accdb"

strTable = "员工信息"

cnADO.Open "Provider=Microsof