HPQC - RecordSet不显示所有数据

时间:2017-11-02 20:21:59

标签: recordset hp-quality-center qc hp-alm microfocus

我正在使用HP(Microfocus)Quality Center 12.5,并使用工作流程中的工具栏设计了一个按钮。

以下代码从RecordSet中提取第一个值,但不是所有值。如何从RecordSet中提取所有值并显示它?

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

1 个答案:

答案 0 :(得分:0)

我在试错后找到了一个解决方案,但仍然不知道根本原因背后的原因以及解决方法的原因。任何反馈都表示赞赏。

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