電子書籍の厳選無料作品が豊富!

別のACCESSデータベースのテーブルのレコードを追加したいのです

同じ内容のデータベースが二つあります
データベース1とデータベース2を其々別の人がデータを入力しています
データベース1にデータベース2のテーブルで T_データT_データ明細の二つのレコードを追加したいのですがどの様にすればよいでしょうか

ご指導をお願いいたします。

A 回答 (35件中31~35件)

なんだか先に回答してすみません。


>チェックボックスを追加してチェックの入ったレコードのみを移したいです

テーブルのフィールドにチェックボックスを
追加してチェックがTrueのレコードをまとめて
送る、ということですか。

この回答への補足

ありがとうございます
その通りです
よろしくお願いいたします

補足日時:2010/06/26 19:40
    • good
    • 0

一応すべてのレコードを移すことでコードを


対応しておきます。

データベース2のフォームでボタンクリック
イベントで作成しています。
DAOを使っているので参照設定でDAOにチェックを
入れてください。ADOにチェックが入っていたら
チェックをはずしてください。

データベース1へのパス"C:\データベース1.mdb"と
フィールド名は適当ですので訂正、追加してください。



Private Sub コマンド0_Click()
Dim dbOut As Database 'データベース2
Dim dbIn As Database 'データベース1
Dim rsOut As Recordset
Dim rsIn As Recordset


Set dbOut = CurrentDb
Set dbIn = DBEngine.Workspaces(0).OpenDatabase("C:\データベース1.mdb")
Set rsOut = dbOut.OpenRecordset("T_データT_データ明細", dbOpenDynaset)
Set rsIn = dbIn.OpenRecordset("T_データT_データ明細", dbOpenDynaset)

Do Until rsOut.EOF
rsIn.AddNew
rsIn!名前 = rsOut!名前
rsIn!住所 = rsOut!住所
rsIn!電話 = rsOut!電話
rsIn.Update
rsOut.MoveNext
Loop

rsOut.Close
Set rsOut = Nothing
rsIn.Close
Set rsIn = Nothing
dbOut.Close
Set dbOut = Nothing
dbIn.Close
Set dbIn = Nothing
End Sub
    • good
    • 0

すみません。

もう一点だけ。
追加するデータはデータベース2のテーブルでT_データT_データ明細
のすべてのレコードを移せばいいのでしょうか。

この回答への補足

ありがとうございます

出来ますれば チェックボックスを追加してチェックの入ったレコードのみを移したいです
よろしくお願いいたします。

補足日時:2010/06/26 18:42
    • good
    • 0

別枠で追加質問ですが。


この二つのファイルはサーバーにおいて
あるものですか、それとも別PCにそれぞれ
存在するファイルですか。
もう一点、まったく同じ構成のファイルで
テーブル名も同じですか。

この回答への補足

ありがとうございます
同じパソコンにあります
そして すべて構成は同じものですテーブル名も同じです
ただ入力する人が違うのとファイル1のmdbは毎月1か月分のデータのみでバックアップを取っている
構造になっていますのでテーブルリンクが使えません
よろしくお願いいたします。

補足日時:2010/06/26 17:39
    • good
    • 0

失礼なことを言ってすみませんが、用語の関係ではっきりしないことがありますので、ファイル、テーブル、フィールド、レコードと言う語を用いて、再度質問してください。

この回答への補足

ありがとうございます
初心者ですので お許しください

アクセスデータベースでバージョン2002で作ったデータベース(ファイル同じもの)が二つありまして
其々に使っています。
(そのデーターベースファイル間でテーブルの追加をしたいのです つまり別々に作ったT_データT_データ明細を合体させたいのです)

其々 ファイル1ファイル2として ファイル1のテーブルであるT_データT_データ明細にファイル2のT_データT_データ明細を追加したいのです
ご理解いただけたでしょうか

補足日時:2010/06/26 14:57
    • good
    • 0
←前の回答 1  2  3  4

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!