[求助] ActiveX 部件不能创建对象: 'TDApiOle.TDConnection'

[复制链接]

Haereticus

该用户从未签到

电梯直达

1^#

发表于 2009-9-7 11:03:52 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

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

ActiveX, TDApiOle, TDConnection, 对象