对于记录集对话中的数组,我已经找到了这段代码,并且效果很好:
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
本文链接:https://www.f2er.com/1514698.html