Micro Focus QTP (UFT) Forums
Unable to Update QC from QTP - Printable Version

+- Micro Focus QTP (UFT) Forums (https://www.learnqtp.com/forums)
+-- Forum: Micro Focus UFT (earlier known as QTP) (https://www.learnqtp.com/forums/Forum-Micro-Focus-UFT-earlier-known-as-QTP)
+--- Forum: VB Scripting/Descriptive Programming (https://www.learnqtp.com/forums/Forum-VB-Scripting-Descriptive-Programming)
+--- Thread: Unable to Update QC from QTP (/Thread-Unable-to-Update-QC-from-QTP)

Unable to Update QC from QTP - leninraj - 08-21-2010

Hi All,
I am working on QTP 10.0, Running all my scripts from my local machine. I want to just update the results of my script in the QC.
here I am not loading the script from QC, since it cosumes more time , I have all my scripts in the local PC & just want to updae the result in QC.
Its easy to update QC if we load & run the scrpt from QC.

here is the code snap which I treid , but didnt work.

Code:
Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object
Set TDConQTP = qtApp.TDConnection
qtApp.Launch ' Start QuickTest
qtApp.Visible = True ' Make the QuickTest application visible
qtApp.Options.Run.RunMode = "Fast"
qtApp.Options.Run.ViewResults = False
qtApp.Options.Run.ImageCaptureForTestResults = "OnError" ' Set QuickTest run options


Set qtResultsObj = CreateObject("QuickTest.RunResultsOptions")
If TDConQTP.IsConnected = False Then
TDConQTP.Connect QCurl, QCProject, QCRelease, QCUser, QCPwd, False
msgbox "QC Conected"
End If

qtApp.Open ":\D\Extest", True ' Open the test in read-only mode

Set qtTest = qtApp.Test 'set run settings for the test

qtResultsobj.TDRunName = "Run 8-21 13-46-14"
qtResultsobj.TDTestInstance = 1
qtResultsobj.TDTestSet = "[QualityCenter] Root\Trash\Test_MW_QTP"
qtTest.Run qtResultsObj ' Run the test
qtTest.Close ' Close the test

Please help to solve this issue
Thanks
Leninraj

RE: Unable to Update QC from QTP - leninraj - 09-13-2010

Guys any luck on this??