![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_06.png?e8efa67)
まだVB歴1年ないので説明もうまくできないかも知れませんが
どなたか教えていただければ助かります。
Dim cn as ADODB.Connection
Dim rs as ADODB.Recordset
Set cn = New ADODB.Connection
cn.IsolationLevel = adXactRepeatabelRead
cn.Open *****
Set rs = New ADODB.Recordset
rs.CursorType = adOpenDynamic
rs.LockType = asLockPessimistic
rs.ActiveConnection = cn
rs.Open *****
上記のように設定したのち
データ読み込み
rs.MoveFirst
Do until rs.EOF
aaa = rs.Fields("ID").Value
中略
rs.MoveNext
Loop
ファイルクローズして他の処理したのち
再びファイルオープンして
rs.MoveFirst
For ***
Set rs = cn.Execute("UPDATE テーブル名 SET ID = ***** ")
中略
rs.MoveNext
Next ***
ファイルクローズ
上記のMoveNextがおかしいと思うのですが
他のところかもしれませんが悩んでいます。
この内容でわかっていただけるか心配ですが
よろしくお願いします。
No.3ベストアンサー
- 回答日時:
レコードを読んで、更新をかけるのであれば、
コネクションのExecuteメソッドではなく、レコードセットのUpdateメソッドを使わなくてはなりません。
Executeメソッドの戻り値は、レコードセットオブジェクトじゃありませんので、「Set rs = cn.Execute("UPDATE テーブル名 SET ID = ***** ") 」でおかしなこと(エラーになるんじゃ?)になっていると思うのです。
レコードを読む必要がないのであれば、Executeだけで良いですよ。
No.2
- 回答日時:
2つ目のループがおかしいですね。
ループではrsを回していますが、その中でrsを使って別のレコードセットを取得しちゃってます。
rs以外の変数を使ってみて下さい。
ありがとうございました。まだまだ勉強不足でわからないことばかりで
理解するのも一苦労ですが、昨日うまく動作しました。本当に助かりました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Access(アクセス) DoCmd.SearchForRecord が動かない時の解決方法 3 2022/07/22 15:31
- Visual Basic(VBA) データベースから絞り込んでデータを読み込み 1 2023/02/21 19:51
- Access(アクセス) 実行時エラー3131 FROM 句の構文エラーです について 7 2022/06/13 15:45
- Access(アクセス) docmd.gotorecordを起動するには 5 2022/06/17 15:20
- Access(アクセス) チェックボックスにチェックが入った後の挙動 1 2022/08/21 12:39
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Excel(エクセル) VBA フォルダ見える化のコードについて 2 2023/06/19 15:04
- Visual Basic(VBA) ExcelからAccessのテーブルに書き込む時に時間がかかる 1 2022/10/14 20:38
- 国産車 ホンダフィット2代GE6に乗っていますが RSというのはスポーティーですか 1 2023/06/01 15:09
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
ADOのMoveNextでアプリケーションエラー
Access(アクセス)
-
ADO VBA 実行時エラー3021
Visual Basic(VBA)
-
アクセス VBAについて FROM句の構文エラー
Access(アクセス)
-
-
4
エラー(型が一致しません。)の対処方法
Visual Basic(VBA)
-
5
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
6
レコードが存在しなかった場合
Microsoft ASP
-
7
実行時エラー3131 FROM 句の構文エラーです について
Access(アクセス)
-
8
SQLの速度をあげるには・・・
Visual Basic(VBA)
-
9
MoveNextの処理速度は?
Visual Basic(VBA)
-
10
ODBCの接続に失敗しました(3146)について
その他(Microsoft Office)
-
11
ADOのCursorLocationプロパティ
Visual Basic(VBA)
-
12
ACCESS ADOでupdateが効かない
その他(データベース)
-
13
「#エラー」の回避
Access(アクセス)
-
14
アクセスVBAのMe!と[ ]
Access(アクセス)
-
15
INSERT INTO ステートメントに認識できないフィールド
その他(データベース)
-
16
ACCESS VBA レコードセットの参照方法について
その他(データベース)
-
17
VBA エンターキーでイベントに入りたい。
PowerPoint(パワーポイント)
-
18
一部のカラムでdistinctし全てのカラムを取得
MySQL
-
19
Accessを使って日付を比較したい
その他(Microsoft Office)
-
20
実行時エラー 3265「要求された名前、または序数
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAで、条件に一致する...
-
JAVA初心者です。JAVAで音を鳴...
-
エクセルVBAにおけるON TIMEメ...
-
『増加する』メソッド名は?
-
VBA コピーが出来ません…!
-
エクセルのマクロでプリンタを...
-
引数で日付を2つ与え、その間の...
-
タグチメソッドと実験計画法の違い
-
SpringのHibernate連携での条件...
-
Refreshメソッドの使い方
-
C#.net Define文
-
Labelコントロールに数字を代入...
-
ウィンドウを最前面にできません
-
メソッドの分割(リファクタリ...
-
二分探索木のheight(高さ?)を見...
-
worksheets & rows メソッドは...
-
ODBCでMoveNextがうまく動作し...
-
boolean型のフィールドとゲッタ...
-
JSPで<SELECT>の中にDBから持っ...
-
次の日本語の意味を教えて下さい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBAで、条件に一致する...
-
final修飾子を使っているのに、...
-
JSPで<SELECT>の中にDBから持っ...
-
Labelコントロールに数字を代入...
-
エクセルVBAにおけるON TIMEメ...
-
javascriptからjavaを呼び出したい
-
DataGridViewでセルクリックイ...
-
VBPをダブルクリックするとたま...
-
onClickで関数呼出し後に、結果...
-
コマンドプロンプト実行後に画...
-
配列のメソッド
-
日本の教育って時間が無い中で...
-
Refreshメソッドの使い方
-
mainメソッドのthrows節で設定...
-
【sendkeysメソッドが動かずに...
-
C# 演算 最大値 最小値 表現の仕方
-
VBA コピーが出来ません…!
-
Application.Wait の参照設定
-
ウィンドウを最前面にできません
-
for文(拡張)内の変数(ローカ...
おすすめ情報