MTS调试问题,请问高手
zzao 2000-08-18 05:20:00 我在一台工作站上装了MTS,并在VB中编写了一Com组件,其中一函数的关键代码如下:
Public Function Add(myval strID as string,strName as string)
Dim conn as ADODB.connection
......
......
conn.Execute strSQL
Getobjectcontext.setcomplete
Exit Function
ErrorHandler:
IF Not conn is Nothing then
Set conn=Nothing
Endif
Getobjectcontext.Setabort
编译生成Mytest.dll 后,在我本机的Transaction Server Exploer上双击我的计算机
增加一软件包,然后安装新组件选 Mytest.dll加入。
然后在VB中增加一测试工程,添加对 Mytest的引用,并输入如处代码
dim objUsers as myTest.Users
Set objUsers = CreateObject("Mytest.Users"
objUsers.Add "0001","AAAA"
运行后,出现错误 Run_time Error "91"
"object variable or with block variable not set"
我设置断点跟踪
发现问题出在COM中
Getobjectcontext.Setcomplete 行。
难道我的这种测试方法有错误吗?一定要将组件安装到服务器的软件包中才能创建对象吗?
能不能教我怎样正确地测度MTS组件。