[seasar-dotnet:1782] Re: 複数データソース指定で、 Transaction 属性を付けたメソッドでアカウントロックエラー発生
kubo
[E-MAIL ADDRESS DELETED]
2010年 7月 16日 (金) 01:16:24 JST
久保(jflute)です。
ナガイシさん、こんばんは
さらに詳しい情報を、というところで：
<A>
(QuillTestCaseなどを使った)自動単体テストで動作するか？
<B>
DBMS依存のエラーメッセージ「ORA-28000」が、
DB上で何が起きたときに発生するものなのか？
(ロックというキーワードがありますが、DBMSとして
どういった状態のものを示すのかどうか、など)
を提供して頂けると、MLの閲覧者の方が
もっとコメントしやすくなると思います。
2010/7/15 <[E-MAIL ADDRESS DELETED]>:
> ナガイシです。
>
> また質問で恐縮ですが
>
> Dao設定クラスを作成し、DaoインターフェースのS2Dao属性で設定し
> データソースの切替を行っています。
>
> データソースの切替には成功しましたが
> Transaction属性付きのメソッドを最初に実行すると
> 「ORA-28000: アカウントがロックされています。」とエラーが発生します。
> 一度,Transaction属性の無いメソッドを実行すると正常に処理が行われ
> それ以降はTransaction属性付きのメソッドも正常に処理されます。
>
> エラー内容は以下の通りです。
> 場所 Seasar.Framework.Util.DataSourceUtil.GetConnection(IDataSource dataSource)
> ---> System.Data.DataException: コネクションのオープンに失敗しました。
> データベースは起動しているか？接続文字列、プロバイダの設定は正しいか？
> ご確認をお願いします。
> ---> Oracle.DataAccess.Client.OracleException ORA-28000: アカウントがロックされています。
> 場所 Oracle.DataAccess.Client.OracleException.HandleErrorHelper
> (Int32 errCode, OracleConnection conn, IntPtr opsErrCtx,
> OpoSqlValCtx* pOpoSqlValCtx, Object src, String procedure)
>
>
> データソースをS2Dao属性に設定しない場合は上記のエラーは発生せず
> 正常に処理が行われます。
>
>
> サンプルソースは以下に記述していますが
> Dao設定クラスのソースをここに記述します。
>
> ＜＜Dao設定クラス＞＞
> Namespace Dao
>
> Public Class DS1DaoSetting
> Inherits Seasar.Quill.Dao.Impl.TypicalDaoSetting
>
> Public Overrides ReadOnly Property DataSourceName() As String
> Get
> Return "DS1"
> End Get
> End Property
>
> End Class
>
> Public Class DS2DaoSetting
> Inherits Seasar.Quill.Dao.Impl.TypicalDaoSetting
>
> Public Overrides ReadOnly Property DataSourceName() As String
> Get
> Return "DS2"
> End Get
> End Property
>
> End Class
>
>
> Seasar.NetのHPを見て、作成してみましたが
> ソース上何か問題はありますでしょうか？
>
> ご助言などございましたら、ご返信をお願い致します。
>
> Seasar.NetのDllは前回の質問で頂いた修正版のソースから
> コンパイルしたものを使用しています。
>
>
>
> ソースはスレッドの1760、1770の改造版なのですが
> 違いは、Quillの設定ファイルをWeb.configから
> 独自ファイル(Seasar.Net.Quill.config)に変更
>
> WebServiceのGlobal.asaxのApplication_Startメソッドで
> QuillConfig.ConfigPathに指定。
>
> データソースの設定を２つ(DS1、DS2)設定し、DS1は接続エラーになる設定で
> S2Dao属性でDS2を指定しています。
>
>
> 開発環境
> 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インターフェース)
>
>
> ＜＜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＞＞
>
> 中略
>
> <appSettings>
> <add key ="SeasarNetSetting" value ="D:\Program Files\Source\Define\Seasar.Quill.dll.config"/>
> </appSettings>
>
>
> ＜＜Global.asax＞＞
> Public Class Global_asax
> Inherits System.Web.HttpApplication
>
> Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
> ' アプリケーションの起動時に呼び出されます。
>
> QuillConfig.ConfigPath = ConfigurationManager.AppSettings("SeasarNetSetting")
>
> End Sub
>
> 以下、省略
>
>
>
> ＜＜Seasar.Net.Quill.config＞＞
> <?xml version="1.0" encoding="utf-8" ?>
> <configuration>
> <configSections>
> <section name="quill" type="Seasar.Quill.Xml.QuillSectionHandler, Seasar.Quill" />
> </configSections>
>
> <quill>
> <dataSources>
> <dataSource name="DS1">
> <provider>ODP</provider>
> <connectionString>"Data Source=ORA_NOT;User
> ID=notuser;Password=notpwd"</connectionString>
> <class>Seasar.Extension.Tx.Impl.TxDataSource</class>
> </dataSource>
>
> <dataSource name="DS2">
> <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>
> </configuration>
>
>
>
>
>
> ＜＜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
>
> <Transaction()>
> 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(DS2DaoSetting)> _
> <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
>
seasar-dotnet メーリングリストの案内