OpenAccess ORM for Oracle 實戰演練 Day 29

DAY 29

OpenAccess ORM for Oracle 實戰演練系列第 25 篇

oracle vb linq orm openaccess

2013-10-21 19:08:15

2538 瀏覽

多個OpenAccessLinqDataSource共用一個交易
當我們使用 OpenAccessLinqDataSource 做新增、修改時，有時會需要全部成功能才回寫資料庫，任一個作業失敗就要全部回復異動前狀況，這時我們就要讓多個 OpenAccessLinqDataSource 控制項可以共用一個交易。
當我們使用 OpenAccessLinqDataSource 時，通常頁面上都會有多個 OpenAccessLinqDataSource 控制項，有時候可能會需要執行多過控制項的新增、修改、刪除作業，但這此異動作業，只要有任何一筆發生錯誤，我們就必須要還原所有資料到異動前的版本，這時候該如何處理？

有兩種方式，一種是自訂 OpenAccessLinqDataSource 的 OpenAccessDataContext，也就是在 ContextCreating 事件，自行指派 OpenAccessDataContext，但這個方式很複雜，因為要處理至少以下這些工作：

在所有 OpenAccessLinqDataSource 建立前，先建立一個 OpenAccessDataContext，而且要使用類似獨體模式的架構，至少每次 PostBack 只能有一個 DataContext。

建立好 OpenAccessDataContext 後，調用 OpenAccessDataContext .Connection.BeginTransaction()。

因為預設所有 OpenAccessLinqDataSource 在執行 CRUD 後，會把自己用到的 DataContext 給 Dispose 掉，所以要去 ContextDisposing 事件，取消 Dispose 作業。

檢查所有 OpenAccessLinqDataSource 的 CRUD 作業都沒發生錯誤，才能把交易提交，否則要還原資料。

以上還只是文字說明，真正的作業方式還會再複雜些，所以我個人不建議使用此方式，最建議的方式，就是透過 TransactionScope 處理。

我們做個案例來展示 TransactionScope：當我們新增一筆訂單時，同時寫入一個新的客戶資料，這也是常見的實際案例。

現在請在 Web 專案中，新增一個 WebForm 名為 CreateOrdersAndAddNewCustomers.aspx，放置以下控制項：

一個 TextBox，名為 txtNewCustomerIdSuffix，預設會是 LEO 起頭之顧客編號的筆數。
● 一個 TextBox，名為 txtNewCustomerCompanyName。
● 一個 Button，名為 btnCreateOrder，為本次示範的核心。它會收集上述兩個 TextBox 的資料，並調用兩個 OpenAccessLinqDataSource 的新增函式，執行 Insert 作業，當然這裡還要掛 TransactionScope，以達成兩個控制項的新增作業，被放在同一次的交易中。
● 一個 GridView，名為 gvNewestOrder，用來顯示最新一筆訂單資料。
● 一個 GridView，名為 gvList，用來顯示 LEO 起頭顧客編號之顧客資料。
● 一個 Label，名為 lblLog，用來顯示兩個控制項 Insert 的 Sql Script。
● 一個 OpenAccessLinqDataSource，名為 oasrcOrders，設定以訂單編號逆排序（由大到小），然後再透過 Selecting 事件，指定只查第一筆資料。
● 一個 OpenAccessLinqDataSource ，名為 oasrcCustomers，設定以顧客編號逆排序，而且透過運算式編輯器設定 Where 條件，只取顧客編號起頭為 LEO 的資料回來。

這次的範例，會應用到前面幾篇文章的內容，如果有不了解的地方，請回頭參閱，本篇文章不再贅述。

CreateOrdersAndAddNewCustomers.aspx：

<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="CreateOrdersAndAddNewCustomers.aspx.vb" Inherits="OALinqDataSourceWeb01.CreateOrdersAndAddNewCustomers" %>
<%@ Register assembly="Telerik.OpenAccess.Web.40" namespace="Telerik.OpenAccess.Web" tagprefix="telerik" %>

<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
    <title>新增訂單資料同時新增顧客資料</title>


    <form id="form1" runat="server">
    <div>    
        新顧客編號：LEO +
        <asp:TextBox ID="txtNewCustomerIdSuffix" runat="server" MaxLength="2"></asp:TextBox>
        <br />
        新顧客公司：<asp:TextBox ID="txtNewCustomerCompanyName" runat="server"></asp:TextBox>
        <br />
        <asp:Button ID="btnCreateOrder" runat="server" Text="新增一筆訂單" />
        <br />
        最新訂單：<br />
        <asp:GridView ID="gvNewestOrder" runat="server" AutoGenerateColumns="False" DataKeyNames="ORDERID" DataSourceID="oasrcOrders">
            <Columns>
                <asp:BoundField DataField="ORDERID" HeaderText="ORDERID" ReadOnly="True" SortExpression="ORDERID" />
                <asp:BoundField DataField="CUSTOMERID" HeaderText="CUSTOMERID" SortExpression="CUSTOMERID" />
            </Columns>
        </asp:GridView>
        <br />
        最新顧客名單（LEO打頭）：<br />
        <asp:GridView ID="gvList" runat="server" AutoGenerateColumns="False" DataKeyNames="CUSTOMERID" DataSourceID="oasrcCustomers" PageSize="5">
            <Columns>
                <asp:BoundField DataField="CUSTOMERID" HeaderText="CUSTOMERID" ReadOnly="True" SortExpression="CUSTOMERID" />
                <asp:BoundField DataField="COMPANYNAME" HeaderText="COMPANYNAME" SortExpression="COMPANYNAME" />
            </Columns>
        </asp:GridView>
        <asp:Label ID="lblLog" runat="server"></asp:Label>
        <telerik:OpenAccessLinqDataSource ID="oasrcOrders" Runat="server" ContextTypeName="OALinqDataSourceWeb01.NWModel" EnableInsert="True" EntityTypeName="" ResourceSetName="Orders" OrderBy="ORDERID desc" />
        <telerik:OpenAccessLinqDataSource ID="oasrcCustomers" runat="server" ContextTypeName="OALinqDataSourceWeb01.NWModel" EntityTypeName="" ResourceSetName="Customers" OrderBy="CUSTOMERID desc" EnableInsert="True" Where="CUSTOMERID.StartsWith(@CUSTOMERID)" >
            <WhereParameters>
                <asp:Parameter DefaultValue="LEO" Name="CUSTOMERID" Type="String" />
            </WhereParameters>
        </telerik:OpenAccessLinqDataSource>
        </div>
    </form>

CreateOrdersAndAddNewCustomers.aspx.vb：

Imports System.Transactions

Public Class CreateOrdersAndAddNewCustomers
    Inherits System.Web.UI.Page
    Private tracer As MyNorthwindTraceListener
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If tracer Is Nothing Then
            tracer = New MyNorthwindTraceListener(New StringBuilder())
        End If
    End Sub

    Private Sub oasrcCustomers_Inserted(sender As Object, e As Telerik.OpenAccess.Web.OpenAccessLinqDataSourceStatusEventArgs) Handles oasrcCustomers.Inserted, oasrcOrders.Inserted
        lblLog.Text = tracer.GetLogString()
    End Sub

    Private Sub oasrcCustomers_Selected(sender As Object, e As Telerik.OpenAccess.Web.OpenAccessLinqDataSourceStatusEventArgs) Handles oasrcCustomers.Selected
        txtNewCustomerIdSuffix.Text = CType(e.Result, IList(Of Customers)).Count().ToString().PadLeft(2, "0")
    End Sub

    Protected Sub btnCreateOrder_Click(sender As Object, e As EventArgs) Handles btnCreateOrder.Click
        Dim customerId As String = "LEO" & txtNewCustomerIdSuffix.Text.Trim()

        Dim customerProperties As New ListDictionary()
        customerProperties.Add("CUSTOMERID", customerId)
        customerProperties.Add("COMPANYNAME", txtNewCustomerCompanyName.Text.Trim())

        Dim orderProperties As New ListDictionary()
        orderProperties.Add("CUSTOMERID", customerId)

        lblLog.Text = ""
        Try
            Using scope As New TransactionScope()
                Dim tracer = New MyNorthwindTraceListener(New StringBuilder())
                oasrcCustomers.Insert(customerProperties)
                oasrcOrders.Insert(orderProperties)
                scope.Complete()
            End Using

            lblLog.Text &= "<br />新增成功。<br />" & tracer.GetLogString()
            gvList.DataBind()
            gvNewestOrder.DataBind()
        Catch ex As Exception
            lblLog.Text &= ex.Message
            lblLog.Text &= ex.InnerException.Message
        End Try
    End Sub

    Private Sub oasrcOrders_Selecting(sender As Object, e As Telerik.OpenAccess.Web.OpenAccessLinqDataSourceSelectEventArgs) Handles oasrcOrders.Selecting
        e.Arguments.MaximumRows = 1
    End Sub

End Class

顯示效果：

如果我們故意在控制項執行 Insert 時，擲出 Exception，則新增作業就會被倒回（RollBack）：