Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2299 / 76734

←次へ　｜　前へ→


	【80079】ADODB.Recordsetを使用してデータベースを更新したい

ごう - 18/8/1(水) 13:56 -


	引用なし

	パスワード

ADODB.Recordsetを使用してデータベースの更新をするマクロを作成しています。

更新する項目が多いので、Update分を分けて書こうとしました。
以下のようなコードを書きましたが、2回目のUpdate文で
「実行時エラー '3265': 要求された名前、または序数に対応する項目がコレクションで見つかりません。」というエラーメッセージが出ます。

なぜこのようなメッセージが出るのか、そしてどこを見直せばよいか、教えていただけないでしょうか？

With rs2
　　' テーブルを開く
　　.Source = "TABLE"
　　.ActiveConnection = cn
　　.CursorType = adOpenKeyset　　　' キーセットカーソル使用
　　.LockType = adLockPessimistic　 ' レコード単位排他的ロック
　　.Open
　　
　　.Find "SerialNo = '" + strSerialNo + "'", 0, adSearchForward
　　
　　' レコードを更新する
　　.Update Array("A", "B", "C"), Array(Data11, Data12, Data13)
　　.Update Array("D", "E", "F", "G"), Array(Data14, CStr(Color14), Data15, CStr(Color15))
End With

rs2.Close

12 hits

▼

【80079】ADODB.Recordsetを使用してデータベースを更新したい ごう 18/8/1(水) 13:56