[seasar-dotnet:1761] Re: メソッド単位にかけたトランザクションがクラス全体にかかる

[koyak]

ナガイシさん

小谷です。

ソースコードを拝見致しましたが、
メソッドへのトランザクション設定として、
特に問題はないように思えます。

参考までに、ログがありましたら差し支えなければそちらも
見せていただけないでしょうか。

2010年7月6日0:34 kircheis <[E-MAIL ADDRESS DELETED]>:
> はじめまして、ナガイシと申します。
>
> 今、以下の環境でQuill + S2Dao.Netでスマートクライアント開発を
> 行うべく、サンプルを作成しています。
>
> 開発環境
> Windows XP SP3
> VisualBasic 2008 (.Net Framework3.5)
> S2Container.Net 1.3.17 (Quill)
> Oracle11.2.0.1
> ODP.NET 2.112.1.0
>
> サンプル構成
> (1)Windows Form (SampleFormクラス)
> ↓
> (2)ASP.NET XML Service (SampleWebServiceクラス)
> ↓
> (3)BusinessLogic (SampleBusinessLogicImplクラス(←ISampleBusinessLogicイ
> ンターフェース))　※トランザクション属性
> ↓
> (4)DAO Interface (IM_TESTdaoインターフェース)
>
> BusinessLogicにDataInsert、DataUpdate、DataDeleteメソッドを作成し
> 各メソッドにTransaction属性をつけてメソッド単位のトランザクション処理を
> 行うべく作成を行いました。
> 各メソッドのコミット、ロールバックは正常に行われるのですが
> 例えば、DataInsertメソッドにのみTransaction属性を付加しても
> Transaction属性をつけていないDataUpdate、DataDeleteメソッドで
> コミット、ロールバックが発生してしまいます。
> （クラス全体にTransaction属性はなく、DaoにもTransaction属性はありません）
>
> DataInsertメソッドの流れの概略は以下の通りです。
> (1)より(2).DataInsertメソッドを呼出
> ↓
> (2).DataInsertメソッドより(3)のDataInsertメソッドを呼出
> ↓
> (3).DataInsertメソッドは(4)のInsertDataメソッドを呼出
>
>
> 下記ソースの
> ＜＜BusinessLogic＞＞
> →※クラス
> →Public Class SampleBusinessLogicImpl
> →<Transaction()>
> Public Overridable Function DataInsert(ByVal entity As M_TESTentity) 〜
> がTransaction属性の部分です。
>
>
> 今回がスマートクライアントもSeasar.Netも初めてで
> 色々調べてみましたが、トランザクションがかからない現象は
> よく見かけるのですが、トランザクションの範囲が想定以上に
> なる現象は発見できませんでした。
>
> 下記にソースを記載しております。
> ソースが長く申し訳ありませんが
> 何かお気づきの事があればご助言頂きたいと考えております。
> よろしくお願いいたします。
>
>
>
>
> ＜＜Windows Form＞＞
> Public Class SampleForm
>
> Private Sub btnExec_Click(ByVal sender As System.Object, ByVal e As
> System.EventArgs) Handles btnExec.Click
>
> Dim _SampleWebService As New SampleWebService.SampleWebService
> Dim _entity As New SampleWebService.M_TESTentity
> Dim _entityList() As SampleWebService.M_TESTentity
>
> With _entity
> .Seqid = txtID.Text
> .Name = txtNAME.Text
> .Birth = CDate(dtpBirth.Value)
> .Biko = txtBIKO.Text
> End With
>
> Select Case True
> Case rdoInsert.Checked
> If _SampleWebService.DataInsert(_entity) Then
> MessageBox.Show("正常")
> Else
> MessageBox.Show("異常")
> End If
> Case rdoUpdate.Checked
> If _SampleWebService.DataUpdate(_entity) Then
> MessageBox.Show("正常")
> Else
> MessageBox.Show("異常")
> End If
> Case rdoDelete.Checked
> If _SampleWebService.DataDelete(_entity) Then
> MessageBox.Show("正常")
> Else
> MessageBox.Show("異常")
> End If
> End Select
> End Sub
>
> ＜＜Web Service＞＞
> <System.Web.Services.WebService(Namespace:="http://tempuri.org/")> _
> <System.Web.Services.WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)>
> _
> <ToolboxItem(False)> _
> Public Class SampleWebService
> Inherits System.Web.Services.WebService
>
> Protected injector As QuillInjector = QuillInjector.GetInstance
> Protected SampleClass As ISampleBusinessLogic
>
> Public Sub New()
> injector.Inject(Me)
> End Sub
>
> <WebMethod()> _
> Public Function DataInsert(ByVal entity As M_TESTentity) As Boolean
> Return SampleClass.DataInsert(entity)
> End Function
>
> <WebMethod()> _
> Public Function DataUpdate(ByVal entity As M_TESTentity) As Boolean
> Return SampleClass.DataUpdate(entity)
> End Function
>
> <WebMethod()> _
> Public Function DataDelete(ByVal entity As M_TESTentity) As Boolean
> Return SampleClass.DataDelete(entity)
> End Function
> End Class
>
>
> ＜＜Web.config＞＞
> <quill>
> <dataSources>
> <dataSource name="ds">
> <provider>ODP</provider>
> <connectionString>"Data Source=ORA_SAMPLE;User
> ID=sampleuser;Password=samplepwd"</connectionString>
> <class>Seasar.Extension.Tx.Impl.TxDataSource</class>
> </dataSource>
> </dataSources>
>
> <assemblys>
> <assembly>Seasar</assembly>
> <assembly>Seasar.Dao</assembly>
> <!-- Oracle Data Provider for .NET を使用する場合に必要です。 -->
> <assembly>Oracle.DataAccess, version=2.112.1.0, Culture=neutral,
> PublicKeyToken=89b483f429c47342</assembly>
> <!--<assembly>SampleBusinessLogic</assembly>-->
> </assemblys>
> </quill>
>
>
>
>
>
> ＜＜BusinessLogic＞＞
> ※インターフェース
> <Implementation(GetType(SampleBusinessLogicImpl))> _
> Public Interface ISampleBusinessLogic
> Function DataInsert(ByVal entity As M_TESTentity) As Boolean
> Function DataUpdate(ByVal entity As M_TESTentity) As Boolean
> Function DataDelete(ByVal entity As M_TESTentity) As Boolean
> End Interface
>
> ※クラス
> Public Class SampleBusinessLogicImpl
> Implements ISampleBusinessLogic
>
> Protected daoObject As IM_TESTdao
> <Transaction()>
> Public Overridable Function DataInsert(ByVal entity As M_TESTentity) As
> Boolean Implements ISampleBusinessLogic.DataInsert
> Dim intResult As Integer
> intResult = daoObject.InsertData(entity)
> Return True
> End Function
>
> Public Function DataUpdate(ByVal entity As M_TESTentity) As Boolean
> Implements ISampleBusinessLogic.DataUpdate
> Dim intResult As Integer
> intResult = daoObject.UpdateData(entity)
> Return True
> End Function
>
> Public Function DataDelete(ByVal entity As M_TESTentity) As Boolean
> Implements ISampleBusinessLogic.DataDelete
> Dim intResult As Integer
> intResult = daoObject.DeleteData(entity)
> Return True
> End Function
> End Class
>
>
> ＜＜Dao Interface＞＞
> ※インターフェース
> <Implementation()> _
> <S2Dao()> _
> <Bean(GetType(M_TESTentity))> _
> Public Interface IM_TESTdao
> Inherits AbstractBaseDao
>
> Function InsertData(ByVal data As M_TESTentity) As Integer
> Function UpdateData(ByVal data As M_TESTentity) As Integer
> Function DeleteData(ByVal data As M_TESTentity) As Integer
> End Interface
>
> ※エンティティクラス
> <Table("M_TEST")> _
> Public Class M_TESTentity
> Inherits AbstractBaseEntity
>
> Private _seqid As String
> Private _name As String
> Private _birth As Nullable(Of Date)
> Private _biko As String
>
> Public Sub New()
> _seqid = ""
> _name = ""
> _biko = ""
> End Sub
>
> <Column("SEQID")> _
> Public Property Seqid() As String
> Get
> Return _seqid.PadRight(5, " ") 'PrimaryKeyがChar型の場合、桁数に合わせて
> 空白を付加しないと自動作成SQLと連動できない
> End Get
> Set(ByVal value As String)
> _seqid = value
> End Set
> End Property
>
> <Column("NAME")> _
> Public Property Name() As String
> Get
> Return _name
> End Get
> Set(ByVal value As String)
> _name = value
> End Set
> End Property
>
> <Column("BIRTH")> _
> Public Property Birth() As Date
> Get
> Return _birth
> End Get
> Set(ByVal value As Date)
> _birth = value
> End Set
> End Property
>
> <Column("BIKO")> _
> Public Property Biko() As String
> Get
> Return _biko
> End Get
> Set(ByVal value As String)
> _biko = value
> End Set
> End Property
>
> End Class
>
> _______________________________________________
> seasar-dotnet mailing list
> [E-MAIL ADDRESS DELETED]
> https://ml.seasar.org/mailman/listinfo/seasar-dotnet
>