从Excel VBA开始一个TransactionScope？

Question

从Excel VBA开始一个TransactionScope？

c#sql-servervbaexcelcom-interop

7

我有一些现有的C#代码，希望通过COM互操作公开，以便可以从Excel VBA调用。由于我将执行许多嵌套的批量更新操作，因此需要支持事务，并且为了最小化在C#级别上所需的重构，我想使用TransactionScope方法：

使用Transaction Scope实现隐式事务 http://msdn.microsoft.com/en-us/library/ms172152.aspx

TransactionScope类提供了一种简单的方式来标记一个代码块参与事务，而不需要你与事务本身进行交互。事务范围可以自动选择和管理环境事务。由于其易用性和效率，建议在开发事务应用程序时使用TransactionScope类。

此外，您无需显式地使用事务注册资源。任何System.Transactions资源管理器（如SQL Server 2005）都可以检测到由作用域创建的环境事务的存在并自动注册。

我的问题是：在VBA代码中是否可以启动TransactionScope（或通过COM互操作调用c#方法来实例化和返回TransactionScope对象），然后继续通过COM互操作调用各种其他c#对象，这些对象都将自动参与单个根事务？

- tbone

不，你绝对不能在VBA中这样做。 - user2140173

你能详细说明一下吗？（希望我没有让你证明一个否定的东西） - tbone

我已经删除了我的回答，因为我认为我们对于C#中的TransactionScope以及在VBA中的作用并不在同一个理解层面上。ADODB实现了在事务期间回滚任何更改的机制，但是你不能将任何VBA代码块包装在TransactionScope中，并在事务失败时将其回滚... - user2140173

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- Heinzi · Accepted Answer

我觉得你的方法没有问题。在VBA中没有using，所以你需要通过以下方式模拟：

使用错误处理程序并
非常小心地不要在某种情况下离开方法而不处置TransactionScope。

例如，在你的C#应用程序中，你提供了以下方法：

public TransactionScope BeginTransactionScope()
{
    return new TransactionScope();
}

public void CommitTransactionScope(TransactionScope scope)
{
    scope.Complete();
    scope.Dispose();  // simulates leaving the using { ... } scope
}

public void RollbackTransactionScope(TransactionScope scope)
{
    scope.Dispose();  // simulates leaving the using { ... } scope
}

// Does some work using Connections and maybe nested scopes
public void DoSomeWork1() { ... }
public void DoSomeWork2() { ... }
public void DoSomeWork3() { ... }

你需要通过COM互操作将编译好的C# DLL提供给Excel VBA。在VBA中，你可以按照以下方式运行方法：

Private Sub MySub()

    On Error Goto MyErrorHandler

    ...
    Dim scope As Object
    Set scope = myCsObject.BeginTransactionScope()
    ...
    myCsObject.DoSomeWork1
    ...
    myCsObject.DoSomeWork2
    ...
    myCsObject.DoSomeWork3
    ...
    myCsObject.CommitTransactionScope scope
    Set scope = Nothing
    ...

    Exit Sub

MyErrorHandler:
    If Not (scope Is Nothing) Then
        myCsObject.RollbackTransactionScope scope
    End If
    ' Remainder of your error handler goes here
    ...
End Sub

请注意，使用VBA代码（在DoSomeWork调用之间）执行的任何数据访问都将位于事务范围之外，因为TransactionScope与经典的ADO或DAO不兼容。