VB初心者ですAccessを更新したいのですが
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
お礼
返事が遅くなりましてすみませんでした。 結果としてADOに変えてやってみましたが、今までのRDOを全てADOに変える事を考えるとそこまでやるほどの違いが見られませんでした。 アドバイス有難う御座いました。