如何得出HR结果错误信息 [英] How to resulve HR result Error Message
本文介绍了如何得出HR结果错误信息的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
ALL,
以下代码用于将TC上传到ALM。它正在抛出一些未被发现的成员。 (来自HRESULT的异常:0x80020003(DISP_E_MEMBERNOTFOUND))sampleTest.Field(TS_NAME)= xlworksheets.Cells(i,2)Code附近的错误消息。请帮助这是非常必要的
ALL,
The following code has been given for to upload TC to ALM. Its is throwing some Member not found. (Exception from HRESULT: 0x80020003 (DISP_E_MEMBERNOTFOUND))Error message near " sampleTest.Field("TS_NAME") = xlworksheets.Cells(i, 2) " Code. Please help this is very much Required
<pre>
Private Sub Upload_btn_Click(sender As Object, e As EventArgs) Handles Upload_btn.Click
Dim combo_domain, combo_Project
Dim xl_App As New Excel.Application()
QC_ID = WindowsApplication1.Form1.TextBox_Username.Text
QC_Pass = WindowsApplication1.Form1.TextBox_Password.Text
combo_domain = WindowsApplication1.Form1.Domain_txt.Text
combo_Project = WindowsApplication1.Form1.Project_txt.Text
tdc = CreateObject("TDApiOle80.TDConnection")
tdc.InitConnectionEx("https://alm-eas.zurich.com/qcbin")
tdc.Login(QC_ID, QC_Pass)
tdc.Connect(combo_domain, combo_Project)
Dim tsf
Dim trmgr
Dim trfolder, testList, sampleTest
Dim dsf, dstep, StepList, iLastRow
tsf = tdc.TestFactory
trmgr = tdc.TreeManager
trfolder = trmgr.NodebyPath("Subject\Subjectt\CR235")
Dim xlworkBook As Excel.Workbook
Dim xlworksheets As Excel.Worksheet
xlworkBook = xl_App.Workbooks.Open(TextBox1.Text)
xlworksheets = xlworkBook.Worksheets("TestCase")
iLastRow = xlworksheets.UsedRange.Rows.Count
MsgBox(iLastRow)
For i = 2 To iLastRow - 1
testList = tsf.NewList("")
' now create a test case
sampleTest = trfolder.TestFactory.AddItem(DBNull.Value)
' set mandatory values
sampleTest.Field("TS_NAME") = xlworksheets.Cells(i, 2) 'Test Name'
sampleTest.Field("TS_TYPE") = xlworksheets.Cells(i, 9) 'Type'
sampleTest.Field("TS_USER_01") = xlworksheets.Cells(i, 4) ' Requrimet ID'
sampleTest.Field("TS_USER_02") = "1"
sampleTest.Field("TS_STATUS") = "Imported"
sampleTest.Field("TS_USER_03") = "SIT"
sampleTest.Field("TS_RESPONSIBLE") = "pa041225"
sampleTest.Field("TS_DESCRIPTION") = xlworksheets.Cells(i, 5) 'Description'
sampleTest.Post()
'design Step'
dsf = sampleTest.DesignStepFactory
StepList = dsf.NewList("")
'Create Desingstep'
dstep = dsf.AddItem(DBNull.Value)
dstep.Field("DS_STEP_NAME") = xlworksheets.Cells(i, 6)
dstep.Field("DS_DESCRIPTION") = xlworksheets.Cells(i, 7)
dstep.Field("DS_EXPECTED") = xlworksheets.Cells(i, 8)
StepList.Add(dstep)
StepList.Post()
Next ' add the next test case
End Sub
End Class
推荐答案
我尝试了解决方案,仍然无法在tbe系统上使用相同的值/代码
I tried the solution, Still failinf on the same value/Code on tbe system
这篇关于如何得出HR结果错误信息的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文