Excel VBA質問箱 IV

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

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


5233 / 13646 ツリー ←次へ | 前へ→

【51997】エクセルでアクセスのテーブル情報を移す方法 ある 07/10/15(月) 11:52 質問[未読]
【52004】Re:エクセルでアクセスのテーブル情報を移... ichinose 07/10/15(月) 20:44 発言[未読]
【52011】Re:エクセルでアクセスのテーブル情報を移... ある 07/10/16(火) 9:44 お礼[未読]

【51997】エクセルでアクセスのテーブル情報を移す...
質問  ある  - 07/10/15(月) 11:52 -

引用なし
パスワード
   お世話になります。あるです。

環境
エクセル2000
アクセス2000
adoで接続

やりたいことは、
アクセスでまったく同じテーブルが2つあり、ひとつのテーブルを更新すると
更新される前の情報をバックアップとしてもうひとつのテーブルに
移したいのですが、簡単な方法又は参考ページはありますでしょうか??

検索の仕方が悪いのか見つかりませんでした。宜しくお願いします。

【52004】Re:エクセルでアクセスのテーブル情報を...
発言  ichinose  - 07/10/15(月) 20:44 -

引用なし
パスワード
   こんばんは。

>
>環境
>エクセル2000
>アクセス2000
>adoで接続
>
>やりたいことは、
>アクセスでまったく同じテーブルが2つあり、ひとつのテーブルを更新すると
>更新される前の情報をバックアップとしてもうひとつのテーブルに
>移したいのですが、簡単な方法又は参考ページはありますでしょうか??
Connectionオブジェクトのイベント
(ExecuteCompleteやWillExecute)



Recordsetオブジェクトのイベント
(WillChangeRecordやWillChangeRecordset)を

使って、テーブルの更新を見つけるということでしょうか?

バックアップはSqlを使えば(Tbl1[元テーブル]とTbl2[バックアップ用]があった場合)、
上記のイベントで更新前を把握して、

"delete * from Tbl2"

↑「テーブルTbl2のデータ削除」


"INSERT INTO Tbl2 SELECT * FROM Tbl1" 

↑「テーブルTbl2にテーブルTbl1のデータをコピー」

というSqlでバックアップテーブルを作成する

ということになりますが・・・。

検討してみてください。

【52011】Re:エクセルでアクセスのテーブル情報を...
お礼  ある  - 07/10/16(火) 9:44 -

引用なし
パスワード
   ▼ichinose さん:
>こんばんは。
>
>>
>>環境
>>エクセル2000
>>アクセス2000
>>adoで接続
>>
>>やりたいことは、
>>アクセスでまったく同じテーブルが2つあり、ひとつのテーブルを更新すると
>>更新される前の情報をバックアップとしてもうひとつのテーブルに
>>移したいのですが、簡単な方法又は参考ページはありますでしょうか??
>Connectionオブジェクトのイベント
>(ExecuteCompleteやWillExecute)
>
>と
>
>Recordsetオブジェクトのイベント
>(WillChangeRecordやWillChangeRecordset)を
>
>使って、テーブルの更新を見つけるということでしょうか?
>
>バックアップはSqlを使えば(Tbl1[元テーブル]とTbl2[バックアップ用]があった場合)、
>上記のイベントで更新前を把握して、
>
>"delete * from Tbl2"
>
>↑「テーブルTbl2のデータ削除」
>
>
>"INSERT INTO Tbl2 SELECT * FROM Tbl1" 
>
>↑「テーブルTbl2にテーブルTbl1のデータをコピー」
>
>というSqlでバックアップテーブルを作成する
>
>ということになりますが・・・。
>
>検討してみてください。


返信ありがとうございました。
ばっちりやりたいことが出来ました。
ありがとうございました。
(検索の仕方が悪かったみたいです。簡単な事ですいませんでした)

5233 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free