DBの更新？？

質問

ソースは下記です。

Set db=Server.CreateObject("ADODB.Connection")
db.Provider="Microsoft.Jet.OLEDB.4.0"
db.Mode=2
db.ConnectionString=Server.MapPath("../../script/db_dat/crv_haken.mdb")
db.Open
Set rs=db.Execute("select * from control " )
rs("day-upd") = Request.Form("編集担当")
rs("tanto-upd") = date
rs.update
rs.Close
db.Close
Set db=Nothing

で・・・実行しますと

エラー タイプ
ADODB.Recordset (0x800A0CB3)
現在の Recordset は更新をサポートしていません。プロバイダか、選択されたロックタイプの限界の可能性があります。

のメッセージがでます。
何が原因でしょうか？お教えください。

回答No.1

Mizyu · ベストアンサー

このケースは試したことが無いので「予想」でお答えします。間違っていたらすいません。
ExecuteでSelect文を「実行」することにより、「参照可能なクエリ」をRecordSetに格納されます。故に、その参照用のクエリに対し、更新をすることができない、ということではないでしょうか？

これは、新しいレコードを作ろうとしているのか、既存のレコードを更新しようとしているのかが不明確ではありますが、Executeを使ってINSERT文、もしくはUPDATE文を使ってみてはいかがでしょうか？
（ただし、DBがAccessの場合、パフォーマンスが落ちます）

もう一つの解決策として
Set rs=db.Execute("select * from control " )
この行を
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open "control", db, adOpenKeyset, adLockOptimistic
としてやってみてください。

未テストですし、私の頭の中だけでの問題抽出なので確実性は低いと思ってください・・・。あしからず。

補足

Set rs=Server.CreateObject("ADODB.Recordset") でやると上手くいきました。あれこれ悩んでそういう結論に昨日到達したのでした。
回答のメールがこなかったので回答があったことが解りませんでした。