Answer Posted / murali raju

I am sending the complete script to connect Quality Center

'***********************************************************
************************************************************
*

'Description:

'

'This example connects to a Quality Center project, opens a
test (checks it out, if applicable),

'updates the Active Screen values and test object
descriptions, and, if applicable,

'checks the modified test back into the Quality Center
project.

'

'Assumptions:

'The test1 test is not already checked out.

'There is no unsaved test currently open in QuickTest.

'For more information, see the example for the Test.SaveAs
method.

'When QuickTest opens, it loads the add-ins required for
the test.

'For more information, see the example for the
Test.GetAssociatedAddins method.

'***********************************************************
************************************************************
*



Dim qtApp 'As QuickTest.Application ' Declare the
Application object variable

Dim qtUpdateRunOptions 'As QuickTest.UpdateRunOptions '
Declare an Update Run Options object variable

Dim qtRunResultsOptions 'As QuickTest.RunResultsOptions '
Declare a Run Results Options object variable

Dim blsSupportsVerCtrl ' Declare a flag for indicating
version control support



Set qtApp = CreateObject("QuickTest.Application") ' Create
the Application object

qtApp.Launch ' Start QuickTest

qtApp.Visible = True ' Make the QuickTest application
visible



' Make changes in a test on Quality Center with version
control

qtApp.TDConnection.Connect "http://tdserver/tdbin", _
"MY_DOMAIN", "My_Project", "James", "not4you",
False ' Connect to Quality Center



If qtApp.TDConnection.IsConnected Then ' If connection is
successful

blsSupportsVerCtrl =
qtApp.TDConnection.SupportVersionControl ' Check whether
the project supports vervion control



qtApp.Open "[QualityCenter] Subject\tests\test1",
False ' Open the test

If blsSupportsVerCtrl Then ' If the project supports
version control

qtApp.Test.CheckOut ' Check out the test

End If



' Prepare the UpdateRunOptions object

Set qtUpdateRunOptions = CreateObject
("QuickTest.UpdateRunOptions") ' Create the Update Run
Options object

' Set the Update Run options: update the Active Screen
and test object descriptions. Do not update checkpoint
values

qtUpdateRunOptions.UpdateActiveScreen = True

qtUpdateRunOptions.UpdateCheckpoints = False

qtUpdateRunOptions.UpdateTestObjectDescriptions = True



' Prepare the RunResultsOptions object

Set qtRunResultsOptions = CreateObject
("QuickTest.RunResultsOptions") ' Create the Run Results
Options object

qtRunResultsOptions.ResultsLocation
= "<TempLocation>" ' Set a temporary results location



'Update the test

qtApp.Test.UpdateRun qtUpdateRunOptions,
qtRunResultsOptions ' Run the test in Update Run mode

qtApp.Test.Description = qtApp.Test.Description &
vbNewLine & _
"Updated: " & Now ' Document
the update in the test's description (Test Settings >
Properties tab)



qtApp.Test.Save ' Save the test



If blsSupportsVerCtrl And qtApp.Test.VerCtrlStatus
= "CheckedOut" Then ' If the test is checked out

qtApp.Test.CheckIn ' Check it in

End If



qtApp.TDConnection.Disconnect ' Disconnect from Quality
Center

Else

MsgBox "Cannot connect to Quality Center" ' If
connection is not successful, display an error message.

End If



qtApp.Quit ' Exit QuickTest

Set qtUpdateRunOptions = Nothing ' Release the Update Run
Options object

Set qtRunResultsOptions = Nothing ' Release the Run Results
Options object

Set qtApp = Nothing ' Release the Application object

What are the different recording modes?

989

---

Explain the differences between table and db checkpoints?

995

---

Hi, Hope you viewers are doing fine with good health. What are the steps and connection parameters to connect to Oracle db ? Can you connect with just the Oracle client or Oracle XE ? Cheers!!

2990

---

what is the difference between IE & Netscape in web testing on a log in page

2314

---

If I give some thousand tests to execute in two days what do you do?

1027

---

Explain different types of checkpoints?

1024

---

What are table and db checkpoints?

1076

---

How to customize qtp?

1037

---

Can any one brief some detail on how the shared and action object repository utilized/implemented in a real time project. I already know how to make shared object repositor by saving OR as .tsr extension..I wanted the actual concept of implementation...couple of live examples will be highly appreciated. Thanks

2413

---

In what occasion we can specify global sheet and action sheet?

1031

---

terminal services client

2246

---

Is QTP Supports SWT applications? If yes, can you write a sample script for opening a new package in eclipse.

3505

---

Can we record using all the modes in a single script? Explanation with example is appreciated

1855

---

Plz Explain AUTOMATION REFERENCE MODEL?

2212

---

how u will evaluate the tool for test automation?

1851

---