02-14-2012, 04:07 PM
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
Set TDConnection = CreateObject("TDApiOle.TDConnection")
throws an error "cannot create activex component TDAPiOle.TDConnection" Please note the correction
Set TDConnection = CreateObject("TDApiOle80.TDConnection")