VBA循环并编写ADODB Recordset

Question

我刚开始使用记录集,我正在研究从sql server检索记录集然后我需要循环遍历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