テーブルのコピーについて

ＶＢ初心者質問です。
開発環境　ＶＢ６　ＳＰ６
ＷＩＮ２０００　
ＶＢ６を使用しテーブルをコピーしようと思っています。
サイトが見つけられませんのでどなたかアドバイスお願います。
（内容）
a.mdbとb.mdbの２つがあり、それぞれaaaテーブル
があります。（構造は同一です）
a.mdbのaaaテーブルをb.mdbのaaaテーブルに上書きコピーするにはどのようにすればよろしいですか？
よろしくお願いします。

No.4 ベストアンサー 回答者： 1050YEN 回答日時： 2006/06/28 18:40

すいません。

訂正です。

>a.mdbとb.mdbの２つがあり、それぞれaaaテーブルがあります。（構造は同一です）
これを読み飛ばしておりました。

私の方法は、コピー先にテーブルを作成する方法です。
以下に、訂正を記します。


※ADOでの方法()メソッドにおいて
↓この部分は不要
>l_strSQL = ""
>l_strSQL = l_strSQL & "SELECT * " & vbCrLf
>l_strSQL = l_strSQL & "INTO [MS Access; DATABASE=C:\コピー先.mdb].コピー先の名前" & vbCrLf
>l_strSQL = l_strSQL & "FROM コピー元の名前" & vbCrLf
>l_adoCnn.Execute (l_strSQL)


んで、こっちを利用してください。
内容は#1の16AugustさんのSQL文と、ほぼ一緒です。
違いは、クエリを利用しないだけです。

l_strSQL = ""
l_strSQL = l_strSQL & "DELETE * FROM [MS Access; DATABASE=C:\コピー先.mdb].aaa" & vbCrLf
l_adoCnn.Execute (l_strSQL)

l_strSQL = ""
l_strSQL = l_strSQL & "INSERT INTO [MS Access; DATABASE=C:\コピー先.mdb].aaa" & vbCrLf
l_strSQL = l_strSQL & "SELECT *" & vbCrLf
l_strSQL = l_strSQL & "FROM aaa" & vbCrLf
l_adoCnn.Execute (l_strSQL)

この回答へのお礼

おかげさまで問題解決しました。
本当にありがとうございました。

お礼日時：2006/06/29 11:49

No.3 回答者： 1050YEN 回答日時： 2006/06/28 16:44

>ＡＣＣＥＳＳのＶＢＡではないかと思いますがいかがでしょうか？

>当方、ＶＢ６での処理で考えています。

※DoCmdについて
VB6であれば、その前にアクセスアプリケーション.DoCmdにするだけです。

※ADOについて
VB6であれば、独自にコネクションを張って、それに仕事をさせるだけです。


Sub アクセス利用()
　　Dim accObj　As Object
　　Set accObj = CreateObject("Access.Application")
　　accObj.OpenCurrentDatabase "C:\コピー元.mdb"
　　accObj.DoCmd.CopyObject "C:\コピー先.mdb", "コピー先での名前", 0, "コピー元の名前"
　　
　　accObj.Quit
　　Set accObj = Nothing
End Sub

Sub ADOでの方法()
　　Dim l_strSQL　　As String
　　Dim l_adoCnn　　As Object
　　Set l_adoCnn = CreateObject("ADODB.Connection")
　　
　　l_adoCnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\コピー元.mdb"
　　
　　l_strSQL = ""
　　l_strSQL = l_strSQL & "SELECT * " & vbCrLf
　　l_strSQL = l_strSQL & "INTO [MS Access; DATABASE=C:\コピー先.mdb].コピー先の名前" & vbCrLf
　　l_strSQL = l_strSQL & "FROM コピー元の名前" & vbCrLf
　　
　　l_adoCnn.Execute (l_strSQL)
　　
　　l_adoCnn.Close
　　Set l_adoCnn = Nothing
End Sub

この回答へのお礼

大変失礼しました。
丁寧なアドバイスありがとうございます。
早速試してみます。

お礼日時：2006/06/28 17:03

No.2 回答者： 1050YEN 回答日時： 2006/06/28 16:17

マクロの中に「オブジェクトのコピー」というのがあります。

それを、VBAに変換してみました。
DoCmd.CopyObject "C:\コピー先.mdb", "コピー先での名前", acTable, "コピー元の名前"



またはSQL文で、テーブル作成クエリのようなことも出来ます。
Dim l_strSQL As String
l_strSQL = ""
l_strSQL = l_strSQL & "SELECT * " & vbCrLf
l_strSQL = l_strSQL & "INTO [MS Access; DATABASE=C:\コピー先.mdb].コピー先での名前" & vbCrLf
l_strSQL = l_strSQL & "FROM コピー元の名前" & vbCrLf

CurrentProject.Connection.Execute (l_strSQL)

この回答へのお礼

アドバイスありがとうございます。
この回答ってＡＣＣＥＳＳのＶＢＡではないかと
思いますがいかがでしょうか？
当方、ＶＢ６での処理で考えています。
はずしていましたらお許しください。

お礼日時：2006/06/28 16:24

No.1 回答者： 16August 回答日時： 2006/06/28 14:58

b.mdb上にa.mdbのリンクテーブルlinkaaaを作ってよいならば、

ＡＤＯでコネクションを作って
connection.execute "DELETE FROM aaa;"
connection.execute "INSERT INTO aaa SELECT * FROM linkaaa;"
が簡単かなと思います。

この回答へのお礼

ありがとうございます。接続はＡＤＯで結構ですが残念ながらリンクテーブルの設定は出来ない状況です。

お礼日時：2006/06/28 16:14