Hi Experts,
trying to create a small test code for creating a Bug using VB in ALM11.52.
Below is the code do we need OTA Client Lic to run this for ALM i do have full lic to my box.
when i try to run this code in VB i am getting error on Post function. any help will let me move ahead on this thanks.
Sub ConnectToQC(ByVal qcserver_txt, ByVal qcport_txt, ByVal qcusername_txt, ByVal qcpwd_txt, ByVal qcdomain_txt, ByValqcproj_txt)
Dim tdc1 As TDAPIOLELib.TDConnection
tdc1 =
New TDAPIOLELib.TDConnection
tdc1.InitConnectionEx(
"http://"& qcserver_txt & ":"& qcport_txt & "/qcbin")
tdc1.Login(qcusername_txt, qcpwd_txt)
tdc1.Connect(qcdomain_txt, qcproj_txt)
DimBugF
DimBugBg
BugF = tdc1.BugFactory()
BugBg = BugF.AddItem(System.
DBNull.Value)
BugBg.Summary =
"My Test Bug From VB App"
BugBg.Field(
"BG_DETECTION_DATE") = Today
BugBg.Field(
"BG_SEVERITY") = "2-Medium"
BugBg.Post()
If tdc1.Connected Then
MsgBox(
"You are connected to QC and created a Bug")
EndIf