VB初心者ですＡｃｃｅｓｓを更新したいのですが

質問

VB初心者です、よろしくお願いします。
VBでAccessのレコードの一項目を更新したいのですが出来ません。
抽出条件からAccessのデータを持ってきた後、更新したいのですがどうすればいいのでしょうか？
因みに抽出条件までは変更できません、AddNew以降でお願いします。

VB6でAccess2003です。
エラーは現在のRecordsetは更新をサポートしておりませ。プロダイバーかロックタイプの限界の可能性があります。
Set rst = New ADODB.Recordset

'処理をするテーブル指定
rst.Open "[＊＊]", db, adOpenStatic, adLockOptimistic

With rst
.MoveFirst

.Filter = ""
criteria1 = ""
criteria1 = "＊＊= '" & Module1.＊＊ & "'"
.Filter = criteria1
If .RecordCount = 0 Then
MsgBox "は登録されていません"
Else
.Filter = ""
criteria2 = ""
criteria2 = "＊＊= '" & Module1.＊＊ & "' "
.Filter = criteria2
If .RecordCount = 0 Then
MsgBox "登録されていません"
Else
.Filter = ""
criteria3 = ""
criteria3 = "＊＊'" & Module1.＊＊ & "' "
.Filter = criteria2
If .RecordCount = 0 Then
MsgBox "登録されていません"
Else
Module1.＊＊ = rst.Fields("＊＊")
.AddNew
.Fields("＊＊＊") = Module1.＊＊
.Update
End If
End If
End If

End With

回答No.1

ese_ee · ベストアンサー

プロバイダやCursorLocationによっては、
指定したCursorType、LockTypeが違うものに置き換えられている場合
があります。
また、クエリが更新可能であることを確認してください。
プライマリキーを持たないODBCテーブルリンクが結合に含まれている等で更新できない場合があります。

例えば、今回Recordsetに渡したSQL文と同一のクエリーをAccessで作成し、
これが更新できるかどうか．．．等で確認できると思います。
抽出条件が変えられないのであれば、
単一のテーブルごとにUPDATE文を発行する等（トランザクションを使用する等で整合性は確保してください）、
更新方法を変えることを検討してみてください。

お礼

ありがとうございます、大変参考になりました。やはり更新方法を変更せざるを得ませんね、思い切って聞いてみてよかったです。