排他制御 (ID:122057)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんにちは。 排他制御について質問があります。 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