打开数据库_打开数据库，把记录集的数据装入数组

大家好，今日继续讲解《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=Microsoft.Ace.OLEDB.12.0;Data Source=" & strPath

'汇报给用户记录数

strSQL = "SELECT * FROM " & strTable

rsADO.Open strSQL, cnADO, 1, 3

Fdsarr = Array("员工编号