ActiveX 部件不能创建对象: 'TDApiOle.TDConnection'
QTP连接QC时，报这个错：ActiveX 部件不能创建对象: 'TDApiOle.TDConnection'插件已装了，在QTP里手动连接QC能连接上，用代码连接时报错，求高手解答
Dim TDConnection
Set TDConnection = CreateObject("TDApiOle.TDConnection")
TDConnection.InitConnection "http://yovav/tdbin" ' URL for the DB
TDConnection.ConnectProject "TD76","bella","pino" ' 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
页:
[1]
