Hi guys
I have been problem with recordset of obj command.
When I execute a query in Query Builder this return all values of entity but when I execute a query by OTA (Command) is returned de field empty
could you help me with it? I am doing something wrong?
Dim recset
Dim res
Dim com1
Dim Row, Row2, tempoStatus
Dim newStatus, oldStatus
Dim BugId
Dim TotalRows
Dim Sheet, Sheet2 As Worksheet
Set Sheet2 = Application.ThisWorkbook.Sheets(2)
Set Sheet = Application.ThisWorkbook.Sheets(1)
Set com = QCConnection.Command
com.CommandText = "SELECT * FROM BUG"
Set recset = com.Execute
res = recset.RecordCount
Row = 3
Dim cnt
For cnt = 1 To res
Sheet2.Cells(Row, 1) = recset.FieldValue("BG_BUG_ID")
Sheet2.Cells(Row, 2) = recset.FieldValue("AP_OLD_VALUE")
Sheet2.Cells(Row, 3) = recset.FieldValue("AP_NEW_VALUE")
Sheet2.Cells(Row, 4) = recset.FieldValue("AU_TIME")
Sheet2.Cells(Row, 5) = recset.FieldValue("BG_USER_02")
Sheet2.Cells(Row, 6) = recset.FieldValue("BG_USER_TEMPLATE_01")
Sheet2.Cells(Row, 7) = recset.FieldValue("BG_SEVERITY")
'Sheet2.Cells(Row, 8) = recset.FieldValue("BG_USER_02")
Sheet2.Cells(Row, 9) = recset.FieldValue("BG_STATUS")
Sheet2.Cells(Row, 10) = recset.FieldValue("BG_USER_01")
Sheet2.Cells(Row, 11) = recset.FieldValue("AU_TIME")
Row = Row + 1
recset.Next
Next
TotalRows = Row
Row = 4
Row2 = 4
End Sub
