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で質問しましょう!
似たような質問が見つかりました
- SQL Server ACCESSで表が作りたく、そのためのSQL文や設定方法を教えてください。 1 2022/08/15 12:28
- SQL Server DBのテーブルの設計ができず困っています。 2 2023/06/29 16:43
- SQL Server ACCESSで3ファイルを結合して、表を作成するやり方を教えて下さい。 17 2022/08/15 20:34
- その他(データベース) pythonでsqlight勉強中、クエリー結果の利用法教えて下さい 1 2022/04/28 20:38
- その他(Microsoft Office) パワークエリの複数ファイルのデータ統合について 3 2022/07/14 17:06
- MySQL 【投稿情報用データベース posts】は必要ないと思います。 1 2022/06/02 21:25
- SQL Server ACCESSで複数テーブルを結合して、リストを作る方法を教えてください。 2 2022/08/12 19:32
- Access(アクセス) アクセス テーブルの空白を変数に置換するボタンが作りたい 4 2022/07/08 11:19
- MySQL PHP 画像のアップロード Qiita 2 2022/11/28 04:44
- Access(アクセス) AccessVBAで降順にするテーブル作成クエリを使用して作成したテーブルを削除し同一のテーブル作成 1 2023/01/06 11:17
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access VBAから使用したExcelプ...
-
C++言語で、構造体のコピーは可...
-
Eclipseのコード入力時の、行コ...
-
Excel VBA キーワードから列を...
-
エクセルVBA 実行時エラー'...
-
CStringArray[2]のコピー
-
Ctrl + Cなど複数の入力キー...
-
他プロジェクトのFormを自プロ...
-
【UWSC】WEBページ内コピーした...
-
ROBOCOPYをスペース付きのフォ...
-
文字列の切り出し
-
シートに張り付けたボタンがシ...
-
ブラウザからコピペすると文字...
-
Subversion 履歴のパージ方法
-
VLOOKUP関数について質問です。...
-
Activesheet.Pasteで困っています
-
文字化け ’能’
-
Listviewに表示された文字のコ...
-
vector操作でコピーコンストラ...
-
テキストエディタのAtomはコピ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
C++言語で、構造体のコピーは可...
-
Access VBAから使用したExcelプ...
-
マウントしたディスクにcpで、...
-
一行おきに貼り付ける 可能でし...
-
Activesheet.Pasteで困っています
-
Listviewに表示された文字のコ...
-
エクセルVBA 実行時エラー'...
-
DataTableに入っているデータを...
-
Eclipseのコード入力時の、行コ...
-
Ctrl + Cなど複数の入力キー...
-
文字列の切り出し
-
arduino unoからデータを読み出...
-
バッチで当日日付で作成される...
-
jakarta poiを使用し、EXCELの...
-
シートに張り付けたボタンがシ...
-
【UWSC】WEBページ内コピーした...
-
Eclipseでコピーするとき行数な...
-
エクセルのマクロについて教え...
-
Excelでコピーしたセル(テキス...
-
OutlookVBAでコピーした文字を...
おすすめ情報