tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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()

------------------------------------------------------------------------

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。