我可以使用DAO Excel VBA记录集执行类似SQL联接的操作吗？

我有两个记录集，第一个（

rs1

）是Access数据库的查询结果，另一个（

rs2

）是通过转换VBA内部构建的数组创建的。第一个包含一系列数据，第二个包含与第一列中的一列相关的一些描述

我想将这两个记录集合并到第三个记录集中，包含第一个记录集的记录和第二个记录集的描述字段。类似于SQL查询中的

内部联接

---

在VBA中可能吗？类似于使用

rs1

和

rs2

作为表和必要的查询结构的查询（

从rs1中选择xyx，rs2其中abc

）…

对于记录集对话中的数组，我已经找到了这段代码，它工作得非常好：

Private Function ADOCopyArrayIntoRecordset(argArray As Variant) As ADODB.Recordset 

Dim rsADO As ADODB.Recordset
Dim lngR As Long
Dim lngC As Long

Set rsADO = New ADODB.Recordset

For lngC = 1 To UBound(argArray, 2)
rsADO.Fields.Append "Fld" & lngC, adVariant
Next lngC

rsADO.Open

For lngR = 1 To UBound(argArray, 1)
For lngC = 1 To UBound(argArray, 2)
rsADO.AddNew
rsADO.Fields(lngC - 1).Value = argArray(lngR, lngC)
Next lngC
rsADO.MoveNext
Next lngR

rsADO.MoveFirst

Set ADOCopyArrayIntoRecordset = rsADO
End Function

---

我非常感兴趣地了解如何通过转换VBA内部构建的数组来创建记录集。这些数据的来源是什么？请随意在这个编程问答网站上显示代码。据我所知，您不能使用记录集作为查询源。您可以考虑使用第二个记录集并将其插入到Access数据库中，这样您就可以在那里执行连接。谢谢，提姆。回到绘图板：D。