需要打印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 =真

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 

在這裏循環結構有一些問題相應地做了一些改變。希望這可以工作。