排他制御

Lock 2005-05-31 01:17:03 No: 122057

こんにちは。
排他制御について質問があります。
BeginTransからCommitTransまでに更新処理するテーブルに対して
レコード単位ではなくテーブル単位に排他制御がかかります。
レコード単位に排他制御をかけたいのですが・・・
以下、コードです。
※得意先Mの主キーは得意先CD
Dim rst As New ADODB.Recordset

    strBuf = " SELECT 得意先CD"
    strBuf = strBuf & " FROM   得意先M"
    strBuf = strBuf & " WHERE  得意先CD = '1001'
    With rst
        Set .ActiveConnection = conn
        .Open strBuf, conn, adOpenKeyset, adLockPessimistic
        If (.EOF) = False Then
            UpdFlg = True
        End If
        'SQL CLOSE
        .Close
        Set rst = Nothing
    End With

    '存在する場合は更新
    If booUpdFlg = True Then
        strBuf = ""
        strBuf = strBuf & " UPDATE 得意先M"
        strBuf = strBuf & " SET    得意先CD.[得意先名]  = '得意先１'
        strBuf = strBuf & " WHERE  得意先CD = '1001'
        conn.Execute (strBuf)
    End If

。。。 2005-05-31 01:37:12 No: 122058

肝心のDataBaseは何よ？
Oracleで話を進めてもいい？無駄に終わりそうだけど・・・。

龍 2005-05-31 01:41:53 No: 122059

”Select ... For Update ”というＳＱＬ文を使って、試してください

Lock 2005-05-31 05:06:21 No: 122060

申し訳ないです。SQL Serverです。

３−ｔ 2005-05-31 06:04:18 No: 122061

こういうことでいいのかな？

http://www.microsoft.com/japan/msdn/library/ja/acdata/ac_8_con_7a_1hf7.asp?frame=true

龍 2005-05-31 23:18:10 No: 122062

>>    strBuf = " SELECT 得意先CD"
>>    strBuf = strBuf & " FROM   得意先M"
>>    strBuf = strBuf & " WHERE  得意先CD = '1001'
というＳＱＬ文ですが、下記のものを追加したら、更新する時行の排他することができると思います。
    conn.BeginTrans
    strBuf = " SELECT 得意先CD"
    strBuf = strBuf & " FROM   得意先M"
    strBuf = strBuf & " WITH (ROWLOCK)"          <----------
    strBuf = strBuf & " WHERE  得意先CD = '1001'

    ’更新処理を行う
    ’
    conn.CommitTrans

medaka 2005-05-31 23:28:05 No: 122063

timestamp列のチェックもした方がいいかも