Perl DBI begin_work 和与 SQL Server 2008 交互的嵌套事务

Question

我有一个像下面这样的场景。其中 main 方法需要调用多个方法，1 个表调用 1 个方法，每个方法运行一组必须是原子的语句。因此它们被包含在 begin_work、commit、rollback 块中。

另外，call_method_for_table1、call_method_for_table2、call_method_for_table3 应该全部成功或失败，这意味着它们必须是原子的。这就是为什么在 main 方法中也添加了 begin_work、commit、rollback 块的原因。但我可以看到 perl 不允许我。我收到异常 - “DBD::ODBC::db begin_work 失败：已在事务中”。现在我没有任何方法可以修改 call_method_for_table* 方法，因为它位于库中，并且由于多种原因无法修改它。

我可以使用检查点来解决此问题

1. 保存点会有所帮助吗（http://msdn.microsoft.com/en-us/library/ms378414%28v=SQL.105%29.aspx）
2. 将回滚直到保存点工作，即使有一些提交在两者之间（在我的示例中通常是这种情况）
3. 即使同一进程并行运行也可以吗？
4. 会不会造成数据不一致？

子主{
        $dbh->begin_work;
           评估{
              call_method_for_table1();
              call_method_for_table2();
              call_method_for_table3();
              $dbh->提交；
              1; 
        };

        如果（$@）{
              $dbh->回滚； }
       }

    子 call_method_for_table1 {
    $dbh->begin_work;
           评估{
           $dbh->do($INSERTSTATEMENT_TABLE1);
           $dbh->do($UPDATESTATEMENT_TABLE1);
           $dbh->do($DELETESTATMENT_TABLE1);
           $dbh->提交； 
           };

           如果（$@）{
             $dbh->回滚；
           }
    }

Answer 1

我认为不修改call_method_for_tableX是不可能的。

假设 call_method_for_table1 成功，则提交已完成，并且在 call_method_for_table2 最终失败后无法回滚。