创建事务（企业库）

以下是一个在需要一次保存到多个表时创建事务的示例。我使用了 Microsoft 企业库。我假设存在一对多关系。

Dim _Connection As DbConnection = Nothing
Dim _Transaction As DbTransaction = Nothing

试试

         Dim _DB As Database = DatabaseFactory.CreateDatabase("YourConnectionStringNameInConfigFile")
         _Connection = _DB.CreateConnection
         _Connection.Open()
         _Transaction = _Connection.BeginTransaction()

                            //插入主表记录，您可以在此处设置参数
                            .Insert(_DB, _Transaction)


                              For i As Integer = 0 To NoOfItemsInGrid

                                         //插入事务记录，您可以在此处设置参数
                                        .Insert(_DB, _Transaction)

                             Next

               _Transaction.Commit()


               Catch ex As Exception
              

                                _Transaction.Rollback()

                Finally

                                 If _Connection.State = ConnectionState.Open Then
                                         _Connection.Close()

                                 End If

End Try