需要将SQL记录集值打印到Excel中

Question

在打印（SQL）记录集值时，仅打印第一行中的字段。我需要帮助来使用QTP VB脚本打印记录集中的所有字段。

Answer 1

For i=0 to rs.Fields.Count-1 
DB_Data.cells(1,i+1).value = rs.fields(i).Name
rs.MoveNext 
Next

在上面的循环中添加了rs.movenext来遍历数据集中的所有d记录。

DB_Data.Range（DB_Data.cells（1,1），_ DB_Data.cells（1，rs.Fields.Count））。Font.Bold = True

j = 0
k = 2
Do Until rs.EOF 
k=j+1 
DB_Data.cells(k+1,k).value = rs.fields(j).Name 
rs.MoveNext
j= j+1 
Loop 

这里循环结构有一些问题，所以做了一些相应的更改。希望这可行。