HPQC - RecordSet zeigt nicht alle Daten an

Question

Ich verwende HP (Microfocus) Quality Center 12.5 und entwarf eine Schaltfläche über die Symbolleiste in Workflow.

Der folgende Code zieht den ersten Wert aus dem RecordSet, aber nicht alle Werte. Wie ziehe ich alle Werte aus dem RecordSet und anzeigen?

Sub searchDefects() 

    On Error Resume Next 

    Dim a 
    a = InputBox("Enter search query") 

set TD1 = TDConnection 
set com1 = TD1.command 

com1.CommandText = "Select BG_BUG_ID FROM BUG WHERE BG_DESCRIPTION LIKE '%" 
&a &"%'" 

set rec1 = com1.Execute 

Dim i 
DIM msg 
msg = "" 

rec1.First 

For i = 0 to rec1.RecordCount 

    msg = msg & "," & rec1.FieldValue(i) & "," 
    rec1.Next() 

Next 

MsgBox msg 

    On Error GoTo 0 


End Sub 

Answer 1

Ich fand eine Lösung nach Versuch und Irrtum, weiß aber immer noch nicht den Grund hinter der Ursache und wie es es löst. Jede Rückmeldung wird geschätzt.

Sub SearchDefectsDescription() 
On Error Resume Next 

Dim a 
a = InputBox("Enter search query for Description field") 

set TD1 = TDConnection 
set com1 = TD1.command 

com1.CommandText = "Select BG_BUG_ID FROM BUG WHERE BG_DESCRIPTION LIKE '%" &a &"%'" 
set rec1 = com1.Execute 

Dim i 
DIM msg 
msg = "Bug ID" & vbnewline 
rec1.First 

If a = vbCancel Then 
MsgBox "Search is cancelled" 
Exit Sub 

ElseIf Len(a) = 0 Then 
MsgBox "Search input is empty, plesea try again." 
Exit Sub 

Else 
For i = 0 to rec1.RecordCount 

msg = msg & rec1.FieldValue(0) & rec1.FieldValue(1) & " " 
rec1.Next() 
Next 
End If 

MsgBox msg 

On Error GoTo 0 
End Sub