VBA循环并写入ADODB记录集

Question

我是处理记录集的新手，我正在做一些事情，从 SQL 服务器检索记录集，然后我需要循环遍历它，将值粘贴到 Excel 电子表格中。

记录集中字段的顺序已经正确，因此我应该能够从一个单元格移动到另一个单元格，粘贴某个范围内的每个值，但我不确定具体该怎么做。我知道记录集是正确的，因为我将其输出到文件中并且所有内容看起来都按顺序排列。

这是我到目前为止的代码:

Public Sub retrieve()

Dim rsTest As ADODB.Recordset
Set rsTest = New ADODB.Recordset
Set rsTest = DataManager.GetData()

Sheets("Planners").Activate
Dim cel As Range
Dim i As Integer
Dim rsFields As Variant

Do While Not rsTest.EOF

   For Each cel In ActiveSheet.Range("A3:H1000").Cells
     For Each rsFields In rsTest.Fields

     cel = rsTest(rsFields.Name)

     Next
  Next

Loop

End Sub

预先感谢您提供的所有帮助。

Answer 1

如果您想要所有记录集字段，那么您可以这样做:

Public Sub retrieve()
Dim rsTest As ADODB.Recordset

    Set rsTest = DataManager.GetData()

    If Not rsTest.EOF Then
        Sheets("Planners").Range("A3").CopyFromRecordset rsTest
    End If

End Sub