我可以对DAO Excel VBA记录集执行类似SQL JOIN的操作吗？

问题描述

伙计们。 我有两个记录集，第一个（rs1）是Access数据库的查询结果，另一个（rs2）是通过转换内置在VBA中的数组创建的。 第一个包含一系列数据，第二个包含一系列与第一个列中的一个有关的描述。 我想将这两个记录集合并为第三个记录集，不仅具有第一个记录集的记录，还具有第二个记录集的描述字段。类似于SQL查询中的INNER JOIN。

是否可以在VBA中执行此类操作？ 类似于使用rs1和rs2作为表以及必要查询结构的查询（SELEC xyx FROM rs1，rs2 WHERE 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