在循环内动态更改列

Question

我正在执行一个DB2查询，该查询在excel中获取多行。

我试图将所有DB2行打印在不同的列上。

这是我当前的代码：

strSql = "SELECT * FROM TABLE WHERE CONTRACT='ABC';"
    
Set rst = conn.Execute(strSql)
    
Dim fldCount As Integer
Dim iCol As Integer
    
fldCount = rst.Fields.Count
    
Do While rst.EOF = False
  For iCol = 1 To fldCount
    Sheets("Sheet1").Range("A" & iCol).Value = rst.Fields(iCol - 1).Name & ":" &      rst.Fields(iCol - 1).Value
  Next
        
  rst.MoveNext
Loop

但是，与此同时，我的所有记录都相互重叠，因此仅打印了最后一行。

当我阅读下一个记录集时，有什么方法可以更改列吗？

Answer 1

这对您有用吗？：

fetchInfo: { dataTotalSize: 100 }