タイトル : Re: データベースの排他について 投稿日 : 2011/07/05(Tue) 21:59 投稿者 : FIN
失礼いたしました、ソースに誤りがありました。 ------------------------------------------------------------------------ Imports System Imports System.Data Imports System.Data.OracleClient '接続オブジェクトをインスタンス化します。 Me._con = New OracleConnection(Me._ocsb.ConnectionString) 'データベースに接続します。 Me._con.Open() 'コマンドオブジェクトをインスタンス化します。 Me._cmd = New OracleCommand() 'コマンドオブジェクトに接続オブジェクトを引き渡します。 Me._cmd.Connection = Me._con 'トランザクションを開始します。 Me._tran = Me._con.BeginTransaction() 'コマンドオブジェクトにトランザクションを引き渡します。 Me._cmd.Transaction = Me._tran 'SQLを設定します。 Dim sql As String = "*更新SQL*" 'SQLを実行します。 Me._cmd.CommandText = sql Me._cmd.CommandType = commandType Me._cmd.ExecuteNonQuery() 'この処理間に更新対象テーブルが他のトランザクションからアクセス出来なくなります。 'コミット処理を行います。 Me._tran.Commit() ------------------------------------------------------------------------ |