TestDirector下通过OTA接口查找&创建一条记录

[TD]

[TestDirector]

[Find Method AddItem]

[OTA]

 

假设目前测试需求的目录结构如下图：

我们的目的是使用VBSCRIPT脚本通过OTA接口查找test-1及其下的记录，就可以使用如下脚本：

Private Sub CommandButton1_Click()
    On Error Resume Next
   
    Dim td
    Set td = CreateObject("TDApiOle80.TDConnection.1")
    td.InitConnectionEx ""
    td.ConnectProjectEx "Default", "Test", "admin", ""
       
    If Err.Number > 0 Then
        MsgBox ("[ERROR:1]" & Err.Description)
        Err.Clear
        Exit Sub
    End If
   
    Dim factoryReq
    Dim myReq
   
    Set factoryReq = td.ReqFactory
    Set myReq = factoryReq.NewList("").Item(0)
    Set reqList = factoryReq.Find(myReq.ID, "RQ_REQ_NAME", "test-1")
   
    If Err.Number > 0 Then
        MsgBox ("[ERROR:2]" & Err.Description)
        Err.Clear
        GoTo 100
    End If
   
    For Each reqString In reqList
        MsgBox reqString
    Next

100:
   
    If td.Connected Then
        If td.ProjectConnected Then
            td.DisconnectProject
        End If
        td.releaseconnection
    End If
    Set mybug = Nothing
    Set bfact = Nothing
    Set td = Nothing
    MsgBox ("OK")
End Sub

 

 

'-------------------------------------------------------
'创建记录

Private Sub CommandButton1_Click()
    On Error Resume Next
   
    Dim td
    Set td = CreateObject("TDApiOle80.TDConnection.1")
   
    td.InitConnectionEx ""
    td.ConnectProjectEx "Default", "Test", "admin", ""
       
    If Err.Number > 0 Then
        MsgBox ("[ERROR:1]" & Err.Description)
        Err.Clear
        Exit Sub
    End If
   
    Dim factoryReq
    Dim myReq
   
    Set factoryReq = td.ReqFactory
    Set myReq = factoryReq.AddItem(-1)
   
    myReq.name = "TEST_" & "[" & Now & "]"
    myReq.Author = "admin"
    myReq.Field("RQ_USER_01") = "HEB_20070821_TEST"
    myReq.Field("RQ_USER_15") = "334390"
    myReq.Priority = "4-Very High"
    myReq.Type = "常规"
    myReq.Product = "经营分析"
    myReq.Post
   
    If Err.Number > 0 Then
        MsgBox ("[ERROR:2]" & Err.Description)
        Err.Clear
        GoTo 100
    End If

100:
   
    If td.Connected Then
        If td.ProjectConnected Then
            td.DisconnectProject
        End If
        td.releaseconnection
    End If
    Set mybug = Nothing
    Set bfact = Nothing
    Set td = Nothing
    MsgBox ("OK")
End Sub