getObjectContext的问题,急![在线等待中...]

matrix3301 2003-01-06 12:33:54
为什么我使用getObjectContext后程序始终告诉我为Nothing,以至于不能使用.setcomplete和.setabout。一使用就告诉我对象未定义。

源码如下:

Public Function test123() As Integer
On Error GoTo err_handle
Dim objContext As COMSVCSLib.ObjectContext
Set objContext = GetObjectContext

aaa = 3

test123 = aaa

Err.Raise (1)

objContext.SetComplete
Set objContext = Nothing

Exit Function
err_handle:
objContext.SetAbort
Set objContext = Nothing
test123 = aaa
End Function
...全文
8 点赞 收藏 2
写回复
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
matrix3301 2003-01-07
这个NOTHING的问题我自己解决了。但好象test123出来的还是3,并不是我想象的回到aaa=3以前的值,请问objectcontext的事务处理的SETABOUT是回到getObjectContext的地方吗?

还是我的理解有问题,与SQL的事务相混淆了。
回复
matrix3301 2003-01-07
这个问题没人知道吗?谁能帮帮我
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告