Add a new requirement using OTA

Dim i As Object

Dim td As New TDAPIOLELib.TDConnection

td.InitConnectionEx("<servername>:8080/qcbin") td.Login("<username>", "<pwd>") td.Connect("<DOMAIN>", "<project>")

Dim RFact As TDAPIOLELib.ReqFactory

Dim myreq As TDAPIOLELib.Req

RFact = td.ReqFactory

‘Add 5 new requirements to the root

For i = 1 To 5

myreq = RFact.AddItem(System.DBNull.Value)

myreq.Author = "<Enter Name>"

myreq.Name = "<Enter Requirement Name>" & i

myreq.Type = "Undefined" & i

myreq.Post()

Next

MsgBox("Added 5 new requirements!")

myreq = Nothing

RFact = Nothing

td.Logout()

td.ReleaseConnection()

td = Nothing

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s