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组件。
...全文
52 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧