我想用VB开发三层数据库,用MTS(Microsoft Transaction Server )增强中间层的可伸缩性。结果引用Microsoft Transaction Server Type Library,发现在WIN2000里,要用到COM+,才能用MTS。请问各位大侠,谁有开发这方面的经验或什么资料这类,给我讲一讲。如有资料请发到meteor_liang@263.net.
...全文
18514打赏收藏
一个关于COM+的事务处理服务器(MTS)的应用问题
我想用VB开发三层数据库,用MTS(Microsoft Transaction Server )增强中间层的可伸缩性。结果引用Microsoft Transaction Server Type Library,发现在WIN2000里,要用到COM+,才能用MTS。请问各位大侠,谁有开发这方面的经验或什么资料这类,给我讲一讲。如有资料请发到meteor_liang@263.net.
是这样的,我也碰到过这样的问题。以下是一段程序:
Public Function ExecQuery(ByVal SQLQuery As String, Optional ByVal Options As QUERYOPTIONS = QO_UseDefault) As Boolean
ExecQuery = False
On Error GoTo ErrorHandler
Set oConn = New ADODB.Connection
oConn.Open Connect
oConn.Execute SQLQuery, , Options
oConn.Close
Set oConn = Nothing
GetObjectContext.SetComplete'关注
ExecQuery = True
Exit Function
ErrorHandler:
IErrNo = Err.Number
sErrDesc = Err.Description
Resume NextLine
NextLine:
On Error Resume Next
GetObjectContext.SetAbort'关注
oConn.Close
Set oConn = Nothing
On Error GoTo 0
Err.Raise lErrNo, OBJNAME, sErrDesc
End Function