Connect to QC

[ravi.gajul]

Code:

Set TDConnection = CreateObject("TDApiOle80.TDConnection")

TDConnection.InitConnection "http://qc........../qcbin" ' URL for the DB
TDConnection.Login "<learnqtp>","<learnqtp>"
TDConnection.Connect "<mydomain>","<myproject>" ' Valid login information

If TDConnection.Connected Then
  MsgBox("Connected to " + chr (13) + "Server " + TDConnection.ServerName  + chr (13) +"Project " + TDConnection.ProjectName )
Else
  MsgBox("Not Connected")
End If

The first line as per qtp help file (code sample) is
Set TDConnection = CreateObject("TDApiOle.TDConnection")
throws an error "cannot create activex component TDAPiOle.TDConnection" Please note the correction
Set TDConnection = CreateObject("TDApiOle80.TDConnection")