![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.4ベストアンサー
- 回答日時:
すいません。
訂正です。>a.mdbとb.mdbの2つがあり、それぞれ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)
No.3
- 回答日時:
>ACCESSのVBAではないかと思いますがいかがでしょうか?
>当方、VB6での処理で考えています。
※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
No.2
- 回答日時:
マクロの中に「オブジェクトのコピー」というのがあります。
それを、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
アドバイスありがとうございます。
この回答ってACCESSのVBAではないかと
思いますがいかがでしょうか?
当方、VB6での処理で考えています。
はずしていましたらお許しください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access VBAから使用したExcelプ...
-
DataTableに入っているデータを...
-
.BATでクリップボードに複数の...
-
Ctrl + Cなど複数の入力キー...
-
Listviewに表示された文字のコ...
-
文字化け ’能’
-
EXCEL VBAで複数行のコピー(...
-
一行おきに貼り付ける 可能でし...
-
他プロジェクトのFormを自プロ...
-
Eclipseでコピーするとき行数な...
-
VBA 最終行・最終列コピー範囲...
-
Activesheet.Pasteで困っています
-
arduino unoからデータを読み出...
-
文字列の切り出し
-
テーブルのコピーについて
-
エクセルVBA 実行時エラー'...
-
ROBOCOPYをスペース付きのフォ...
-
vb2010 ビルド後のexeコピーに...
-
C++言語で、構造体のコピーは可...
-
[Unity]シーンファイルの中が消...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access VBAから使用したExcelプ...
-
C++言語で、構造体のコピーは可...
-
一行おきに貼り付ける 可能でし...
-
Activesheet.Pasteで困っています
-
DataTableに入っているデータを...
-
Ctrl + Cなど複数の入力キー...
-
マウントしたディスクにcpで、...
-
Listviewに表示された文字のコ...
-
Eclipseのコード入力時の、行コ...
-
エクセルVBA 実行時エラー'...
-
arduino unoからデータを読み出...
-
文字列の切り出し
-
ROBOCOPYをスペース付きのフォ...
-
シートに張り付けたボタンがシ...
-
ブラウザからコピペすると文字...
-
【UWSC】WEBページ内コピーした...
-
他プロジェクトのFormを自プロ...
-
バッチで当日日付で作成される...
-
jakarta poiを使用し、EXCELの...
-
.BATでクリップボードに複数の...
おすすめ情報