excel - 需要将 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 

这里循环构造有一些问题，因此也做了一些相应的更改。希望这可能有效。