访问远程COM+时提示自动化错误,请高手指点
zh.cls:
Public Function MySqlUserid() As String
MySqlUserid = "myname"
End Function
Public Function MySqlPwd() As String
MySqlPwd = "mypwd"
End Function
FrmTest.frm:
Dim ox As Object
Set ox = CreateObject("SqlIdPwd.Zh", "10.1.254.211")
TxtUserId = ox.mysqluserid
TxtPwd = ox.mysqlpwd
Set ox = Nothing
运行时提示:实时错误“-2147467238(8000401a):自动化错误”
我试过故意用一个其它的字符串替换类名"SqlIdPwd.Zh"会提示未在本机注册类,用别的IP替换 "10.1.254.211"会提示找不到服务器,说明COM+远程访问本身没有问题,那么问题出在哪里呢