まだ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(アクセス)
-
Access サブフォームでの選択行の取得
その他(データベース)
-
ADO VBA 実行時エラー3021
Visual Basic(VBA)
-
-
4
レコードが存在しなかった場合
Microsoft ASP
-
5
Access VBAで行ラベルが定義されていないというエラーが出ます
Access(アクセス)
-
6
エラー(型が一致しません。)の対処方法
Visual Basic(VBA)
-
7
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
8
アクセス VBAについて FROM句の構文エラー
Access(アクセス)
-
9
SQLの速度をあげるには・・・
Visual Basic(VBA)
-
10
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
11
カレントレコードが無い事を判定させる方法
Visual Basic(VBA)
-
12
MoveNextの処理速度は?
Visual Basic(VBA)
-
13
ADOを使ったDBアクセス後のメモリ解放
その他(データベース)
-
14
Access コンボボックスの値をクリアしたい。
PowerPoint(パワーポイント)
-
15
ADOのCursorLocationプロパティ
Visual Basic(VBA)
-
16
AccessのRefresh・Requery・Repaintの違い
Access(アクセス)
-
17
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
18
アクセスVBAのMe!と[ ]
Access(アクセス)
-
19
「#エラー」の回避
Access(アクセス)
-
20
access vbaにてテンポラリーテーブルが作りたいです。
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAで、条件に一致する...
-
onClickで関数呼出し後に、結果...
-
mainメソッドのthrows節で設定...
-
ODBCでMoveNextがうまく動作し...
-
final修飾子を使っているのに、...
-
DataGridViewでセルクリックイ...
-
Labelコントロールに数字を代入...
-
エクセルVBAにおけるON TIMEメ...
-
drawStringで文字間隔の調整
-
eclipse-Tomcatでのデバッグに...
-
ActivateMicrosoftAppメソッドは
-
誰か助けて下さい。UnityのC#で...
-
worksheets & rows メソッドは...
-
javascriptからjavaを呼び出したい
-
サーブレット GETからPOST送信
-
ディレクトリの階層構造をツリ...
-
エクセルのvbaによる書式のコピ...
-
DataGridViewの行追加について。
-
「CA2202: オブジェクトを複数...
-
Range クラスのAutoFitプロパテ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBAで、条件に一致する...
-
Labelコントロールに数字を代入...
-
final修飾子を使っているのに、...
-
エクセルVBAにおけるON TIMEメ...
-
コマンドプロンプト実行後に画...
-
mainメソッドのthrows節で設定...
-
DataGridViewでセルクリックイ...
-
javascriptからjavaを呼び出したい
-
VBPをダブルクリックするとたま...
-
onClickで関数呼出し後に、結果...
-
ExcelのxlDialogInsertPictureで。
-
Refreshメソッドの使い方
-
JSPで<SELECT>の中にDBから持っ...
-
【sendkeysメソッドが動かずに...
-
ウィンドウを最前面にできません
-
(String args[])というメッソ...
-
C# 演算 最大値 最小値 表現の仕方
-
Excel VBA シェイプの原型のサ...
-
VB.netで、シリアル通信のタイ...
-
Excel VBA でExcelを終了したい...
おすすめ情報