Hi Im not able fetch detected date,bugid other field BG_USER_03,BUG_STATUS is coming,
Anyone know wht is wrong
com.CommandText = "Select * from BUG where BG_USER_02 <> 'Closed - Duplicate ' and BG_USER_02 <> 'Closed - Entered In Error' And BG_USER_02 <> 'Closed - Rejected' And BG_USER_02 <> 'Closed - Training Issue' And BG_USER_02 <> 'Closed - Entered in Error' And BG_USER_02 <> 'Closed - Operator Error' And BG_USER_02 <> 'Closed - Could Not Duplicate' and BG_USER_01 = 'Defect - Test' and BUG.BG_DETECTION_DATE like '%2013%' and BG_PROJECT in (" & "'" & frmParts.Product.List(0) & "')"
'com.CommandText = "Select * from BUG where BG_USER_02 <> 'Closed - Duplicate ' and BG_USER_02 <> 'Closed - Entered In Error' And BG_USER_02 <> 'Closed - Rejected' And BG_USER_02 <> 'Closed - Training Issue' And BG_USER_02 <> 'Closed - Entered in Error' And BG_USER_02 <> 'Closed - Operator Error' And BG_USER_02 <> 'Closed - Could Not Duplicate' and BG_USER_01 = 'Defect - Test' and BG_PROJECT in (" & "'" & frmParts.Product.List(0) & "'," & "'" & frmParts.Product.List(1) & "')"
MsgBox com.CommandText
Set Recordset = com.Execute
i = 1
'MsgBox Recordset.RecordCount
MsgBox CStr(Recordset.FieldValue("BG_DETECTION_DATE ")) & "hh"
Do While Not Recordset.EOR
ThisWorkbook.Sheets("New").Cells(1, 2).Value = Recordset.FieldValue("BG_BUG_ID")//only one row is cming
ThisWorkbook.Sheets("New").Cells(i, 1).Value = Recordset.FieldValue("BG_USER_01")
ThisWorkbook.Sheets("New").Cells(i, 3).Value = Recordset.FieldValue("BG_USER_02")
ThisWorkbook.Sheets("New").Cells(1, 4).Value = Recordset.FieldValue("BG_USER_03")
ThisWorkbook.Sheets("New").Cells(i, 5).Value = Recordset.FieldValue("BG_STATUS")
ThisWorkbook.Sheets("New").Cells(i, 7).Value = Recordset.FieldValue("BG_SEVERITY")
ThisWorkbook.Sheets("New").Cells(i, 6).Value = Recordset.FieldValue("BG_DETECTION_DATE ")//not coming
ThisWorkbook.Sheets("New").Cells(i, 8).Value = Recordset.FieldValue("BG_PROJECT")
ThisWorkbook.Sheets("New").Cells(i, 9).Value = Recordset.FieldValue("BG_USER_27")
i = i + 1
Recordset.Next
Loop
End Sub