ADOでAccess2003のレコードロックについて (ID:139888)

名前

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

本文

いつもお世話になっております。

開発環境は
 ・Windows XP
 ・VB6.0(SP6)
 ・Access2003
です。

ACCESSに複数のユーザが同時にアクセスし
データの追加・削除・更新を行う処理を作っております。
ソースは、以下の通りです。
------------------------------------------------------------
'// データベースをオープンする
Set cnConnection = New ADODB.Connection
cnConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                "Data Source=\\Bfduser\S-Designer\SDesigner.mdb;" & _
                                "Jet OLEDB:Database Locking Mode=1;"
cnConnection.CursorLocation = adUseClient
cnConnection.Open

'// 更新対象のレコードをロックする（その１）
sSQL = "SELECT *"
sSQL = sSQL & " FROM [T_ＸＸＸＸＸ]"
sSQL = sSQL & " WHERE ID = '99999'"
Set rdRecordset = New ADODB.Recordset
With rdRecordset
    .ActiveConnection = cnConnection
    .Properties("Jet OLEDB: Locking Granularity") = 2 （★）
    .LockType = adLockOptimistic
    .CursorType = adOpenKeyset
    .Source = sSQL
    .Open
End With

'// 更新対象のレコードをロックする（その２）
sSQL = "SELECT *"
sSQL = sSQL & " FROM [T_ＸＸＸＸＸ]"
sSQL = sSQL & " WHERE ID = '99999'"
Set rdRecordset = New ADODB.Recordset
Call rdRecordset.Open(sSQL, cnConnection, adOpenKeyset, adLockOptimistic, adCmdTableDirect)

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

ロック方法「その１」では、★印の部分でエラーになってしまいます。
ロック方法「その２」では、特に問題ないく処理は行われるのですが、ロックがかかりません。
VBからAccessに対しレコードロックを行う事自体無理なのでしょうか？

色々調べましたが分かりませんでした。
ご存じの方がおいででしたら、ご教授お願い致します。

←解決時は質問者本人がここをチェックしてください。

戻る