access2003でSQLServer2008へのリンクテーブルを作成し、
vbaでadoを使ってデータ更新処理をしようとしています。
以下のように記述していますが、
実行後、BやCのテーブルが開かなくなります。
(正確にはインサートしたデータが表示されるであろうページがロックされているような動きです。)
また、その状態からAccessを一旦終了し、再度起動すると、データがインサートされていない状態です。
コミットが効いてないように感じます。
こちら原因としてどんなことが考えられるでしょうか?
ちなみにDAOで動かしても同様でした。
宜しくお願い致します。
以下 コード============================
Set cn = CurrentProject.Connection
Set rst = New ADODB.Recordset
cn.BeginTrans
rst.Open "select key from A", cn, adOpenForwardOnly, adLockReadOnly
Do Until rst.EOF
cne.Execute "insert into B ( aa, bb) select aa, bb from A where key = " & rst!key & " "
cne.Execute "insert into C ( aa, bb) select aa, bb from A where key = " & rst!key & " "
rst.MoveNext
Loop
rst.Close
cn.CommitTrans
cn.Close
set rst = Nothing
set cn = Nothing
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
シロウトなので、詳しいことは知らないので憶測だけど
コミットするまではメモリ上で処理しているんじゃないかな?
お返事遅くなり申し訳ありません。
回答ありがとうございます。
メモリ上というところは理解しているつもりなのですが、
コミットしても反映せず、ロールバックしてもテーブルロックがかかったままになり、
Accessを終了して再度起動するしか解除できなくなってしまいます。
とりあえずはロックタイプの指定を変えることで対処しましたが、
未だに動きが理解できてません・・・
No.1
- 回答日時:
adLockReadOnly
でインサートできるわけないよね。
この回答への補足
ありがとうございます!結果としてご指摘の通り、
rst.Open strSql, cn, adOpenKeyset, adLockOptimistic
でできました!
が、府に落ちてません。。。
まず、adLockReadOnlyが読み取り専用(コピーのようなもの?)で開くということなので
そのレコードセットに対する編集ができないのは分かるのですが
コネクションのExecuteでも書き込みできないのでしょうか?
そもそもExecute自体は通っていましたが、Execute直後からテーブルがロックされ
コミットでも解放されないという現象が不可解に思います。
ちなみにトランザクションを使わない場合、インサートできていたのですが
このプログラムの記述自体が何か不都合な書き方なのでしょうか?
可能性のレベルでも良いのでご指摘頂けますとありがたいです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- PHP PostgreSQLからCSV形式でエクスポートする際にカラム内の改行をとる方法 1 2023/02/22 10:05
- Access(アクセス) アクセス レポートを開いたときにパラメーターの自動入力がしたい 4 2022/11/30 11:21
- Visual Basic(VBA) ExcelからAccessのテーブルに書き込む時に時間がかかる 1 2022/10/14 20:38
- Access(アクセス) access,vbaでフォルダ内のファイルをテーブルにインポート、ファイル名もフィールドに追加したい 1 2022/08/31 11:11
- Visual Basic(VBA) エクセルVBAのコードで質問です。 下のコードはJ16の文字列をB3を起点とする範囲から探して、見つ 5 2023/04/07 11:07
- PHP php my adminより取り出したデータ表示 2 2022/06/15 11:56
- BTOパソコン dz60 1 2023/06/11 15:27
- Oracle SQL update方法 2 2022/06/22 14:07
- Visual Basic(VBA) VBAコードが作動せず、どこに問題があるのか教えて下さい。 3 2023/06/13 13:20
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
accessのロック
その他(データベース)
-
ACCESS2007 VBA 「INSERT INTO~」について
PowerPoint(パワーポイント)
-
他のMDBのテーブルに追加したい
その他(プログラミング・Web制作)
-
-
4
ADOを使ったDBアクセス後のメモリ解放
その他(データベース)
-
5
【Oracle】ADOでSELECT * FROM ・・・・ を実行すると処理が遅いんです
その他(データベース)
-
6
Access サブフォームでの選択行の取得
その他(データベース)
-
7
AccessのDAO.ExecuteとDoCmd.RunSqlの違いについて
その他(データベース)
-
8
「RunSQL」と「Execute」の違い
Access(アクセス)
-
9
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
10
accessでレコード更新直後の反映について
その他(データベース)
-
11
フォントの大きさ
Visual Basic(VBA)
-
12
ADOのCursorLocationプロパティ
Visual Basic(VBA)
-
13
MS Accessでフォームの「開く時」と「読込み時」のイベントの違い
Access(アクセス)
-
14
SQLの速度をあげるには・・・
Visual Basic(VBA)
-
15
ACCESS──メインフォームでサブフォームのレコード件数をカウントしたい
Access(アクセス)
-
16
Access VBAで行ラベルが定義されていないというエラーが出ます
Access(アクセス)
-
17
ADOで排他ロックがうまくいかない
その他(データベース)
-
18
ACCESS ADOでupdateが効かない
その他(データベース)
-
19
[性能改善]AccessのDBに大量のデータをUpdateする場合の性能対策について
その他(データベース)
-
20
Accessのフィールド数が255しかない=業務では使えない?
PowerPoint(パワーポイント)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
サブフォルダに格納されている...
-
IF文、条件分岐の整理方法
-
VBAコードのインデント表示
-
A列に記載されているフォルダ...
-
VB.net(VB)で、フォームにExcel...
-
VBAなくなるの?
-
【ExcelVBA】インデックスが有...
-
vba アクティブシートの名前変...
-
vba 削除
-
エクセルのマクロについて教え...
-
エクセルVBAにて =A1=B1とすれ...
-
VBA 別ブックから条件に合うも...
-
時間短縮のために、テキストフ...
-
ワードVBA どの表か知ることは...
-
エクセルのマクロについて教え...
-
エクセルのVBAコードについて教...
-
VBA指定行削除
-
VBAで大量のファイルをシート名...
-
VBA 別ブックからコピペしたい...
-
配列のペースト出力結果の書式...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ACCESSでリンクテーブルへINSER...
-
Perlのソートについて
-
access adoのトランザクション
-
ソートの方法
-
漢字を含む文字列のソート
-
ExecuteSQLについて
-
gitでコミットするタイミングが...
-
Access VBAで行ラベルが定義さ...
-
Accessのマクロでモジュールを...
-
エクセルVBAでUserFormを起動し...
-
Statement ignored というエラー
-
キャッシュを使わずにSELECTを...
-
ODBCリンクの際にACCESSでは読...
-
今日の日付が入った行のデータ...
-
エクセルの日付に時差を加算 #V...
-
VBA プロシージャの名前の取得
-
sqlplusでヘッダーが付かない
-
PL/SQLカーソルの2重FORループ...
-
Accessの数値から時間に変換す...
-
likeとsubstrの使いわけについて
おすすめ情報