空のMDBを作成後、DoCmd.CopyObjectでテーブルコピー

メルマガ発行内容

＜空のMDBを作成後、DoCmd.CopyObjectでテーブルコピー＞
こんにちは、三流プログラマーＫｅｎ３です。

今回は、
Access2000〜でADOを使用した、
空のＭＤＢ作成方法
と
DoCmd.CopyObjectでテーブルコピー
です。

/*
 * １．今回のキッカケ
*/

下記の質問メールをもらいました。
----
In message "やばいです。",
m*****さん wrote...
 >テーブルのバックアップ用ボタンを作成したのですが
 >
 >Private Sub バックアップ_Click()
 >    If MsgBox("テーブルデータをバックアップしますか？", _
 >    vbYesNo + vbQuestion) = vbYes Then
 >        DoCmd.CopyObject "c:\Back\試作.mdb", , acTable, "指示書表紙テーブル"
 >        　　　　　　　　　　　　　~~~~~~~~               ~~~~~~~~~~~~~~~~~~
 >                                  ↑ファイル名　　　　　　↑テーブル名
 >        
 >    End If
 >End Sub
 >
 >
 >サブテーブル「指示内容テーブルサブ」も一緒にCopyさせたいのですが
 >テーブル名が１つしか入りません。
 >複数のテーブル名を指定するのは無理なのでしょうか？
 >
 >それから
 >指定したフォルダー内にあらかじめコピー先のデータベースを作成しておかないと
 >エラーが出てコピーできませんでした。(T◇T)
 >フォルダー指定だけではダメですか？
----

勝手な想像、人様の苦労の流れをいつものように想像（創造）
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
複数のテーブルをデータごとバックアップしたい。
いろいろと自分なりに調べ、
DoCmd.CopyObject "c:\Back\試作.mdb", , acTable, "指示書表紙テーブル"
で、テーブルがコピーできることを発見する。
ここまでは順調だったが、
空のＭＤＢファイルが無いと、DoCmd.CopyObjectが動作しないことに気がつく。
また、全てのテーブルを一度にコピーするコマンドがあれば聞きたい。
ってことかなぁ。

一生懸命、物語作るのはいいけど、
質問のままの方が、わかり易くない？

気にしないでください、三流解説前の儀式？ですから（笑）

やりたいことは、なんとなく、わかったけど、
さて、どうしましょう。

そんなにスゴイ手じゃないので、期待しないでくださいね。。。

/*
 * ２．空のＭＤＢファイルを作成する
*/

もう、DoCmd.CopyObjectでテーブルがコピーできることがわかっているので、
問題は、空のＭＤＢファイルを作ることだけです。

えっと、まずプログラム書く前に、
苦手な参照設定をイタズラします。

モジュールの編集画面のメニューから、
ツールの参照設定を選択します。


↑参考画面

その中から、
MicroSoft ADO Ext 2.5 for DDl〜を選択します
※ADO Ext 2.7など、環境によって違います
~~~~~~~~~~~~~~~~~


↑参考画面

ざっと書いちゃうと、

Private Sub コマンド0_Click()

    Dim catTest    As New ADOX.Catalog
    Dim strConnect As String
    
    Dim strDBNAME  As String
    
    strDBNAME = "D:\Backup\試作.mdb"  'バックアップ先のMdb

    If MsgBox("テーブルデータをバックアップしますか？", _
     vbYesNo + vbQuestion) = vbNo Then
        Exit Sub 'NOの時抜ける
    End If

    If Dir(strDBNAME) <> "" Then 'ファイルが存在したら消す
        Kill strDBNAME
    End If
    
    'データベースの新規作成
    ' ADOコネクション文字列の指定
    strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
    ' データベースの作成 名前を指定する
    catTest.Create strConnect & strDBNAME
    ' データベースを閉じる
    Set catTest = Nothing

    'テーブルのコピーテーブル数分書くのが簡単
    DoCmd.CopyObject strDBNAME, , acTable, "テーブルＡ"
    DoCmd.CopyObject strDBNAME, , acTable, "テーブルＢ"

    '
    MsgBox strDBNAME & "にバックアップしました"

End Sub

こんな感じです。

参照設定は
    Dim catTest    As New ADOX.Catalog
を使いたかったからです、実際に使うところは少し待っててもらって、
前準備から説明を開始します。

  If MsgBox("テーブルデータをバックアップしますか？", _
     vbYesNo + vbQuestion) = vbNo Then
        Exit Sub 'NOの時抜ける
  End If

普通のＹｅｓ／ＮＯの確認なんだけど、
私と違って、チャント書いてます。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
えっ、どこが？
vbYesNo + vbQuestionのとこかな。
メッセージボックスには種類があって（音と表示が違って）
vbCritical    警告メッセージ アイコンを表示します。 
vbQuestion    問い合わせメッセージ アイコンを表示します。 
vbExclamation 注意メッセージ アイコンを表示します。 
vbInformation 情報メッセージ アイコンを表示します。 
なんてのが、あったんですね。

Sub aaa()
    MsgBox "XXXXX", vbYesNo + vbCritical
    MsgBox "XXXXX", vbYesNo + vbQuestion
    MsgBox "XXXXX", vbYesNo + vbExclamation
    MsgBox "XXXXX", vbYesNo + vbInformation
End Sub
で表示させてみると、違いがよくわかります。
×？▲ｉって感じのアイコンと音が違います。

些細な違いだけど、丁寧な仕事のシステム、
メッセージの使い分けなどは必要ですよ。
※オマエも読者の丁寧さを少しは見習えよ、、、はい。


話を戻してと、

    If Dir(strDBNAME) <> "" Then 'ファイルが存在したら消す
        Kill strDBNAME
    End If
で、Kill ファイル名でバックアップ先のファイルを消してます。
これから新規に作成する位置にファイルが存在していると、
不具合が起きてしまうので、
Dir関数でファイルの存在をチェック後に削除してます。

次は、消したらすぐに作成する、、、忙しい行動なんだけど
本題のＭＤＢの新規作成です。

    'データベースの新規作成
    ' ADOコネクション文字列の指定
    strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
    ' データベースの作成 名前を指定する
    catTest.Create strConnect & strDBNAME
    ' データベースを閉じる
    Set catTest = Nothing
で作成します。

後は、配列とか使わないで、力技で簡単に書くと、
    'テーブルのコピーテーブル数分書くのが簡単
    DoCmd.CopyObject strDBNAME, , acTable, "テーブルＡ"
    DoCmd.CopyObject strDBNAME, , acTable, "テーブルＢ"
でコピーしてます。
※Ａｌｌの指定はわからなかったので、続けて書いただけのお馬鹿な書き方。
　せめてループで回せよな、、、

/*
 * ３．おわりの挨拶
*/

今回は、Access
・空のＭＤＢを作成する方法
・MsgBox警告、インフォなどウインドウの種類を指定してますか？
って話でした。

あっ、タイトルと内容がぜんぜん違うよ
まぁ、いつものことだからゆるしてね。。。（笑）

あっ、単純に、ＭＤＢの簡単なバックアップ方法を調べて、
解説すれば、それでよかったのかも。
最適化と組み合わせて、、など、いろいろ用途はありそうなのに。
※どこかから、簡単な技をパクって来たら、またお知らせします。

拾い読みして、
１つでも何かの参考となれば幸いです。

Ｅｘｃｅｌ／Ａｃｃｅｓｓ大好き、三流プログラマーＫｅｎ３でした。
※評価は↓で投票してね。感想は掲示板かメールでくださいね。

フィードバック

評価・感想

ページフッター(リンクや広告など)

情報を探す

Web www.ken3.org www.microsoft.com support.microsoft.com あとは、項目別にMSでお勉強かな？ ◆ マイクロソフト サイトの歩き方 ◇ How-To インデックス ◇ FAQ インデックス ◇ スキルレベル別おすすめコンテンツ ◇ テクノロジ マップ ◇ テーマ別技術資料一覧

書籍の購入

コンピュータ書籍の発送がハヤイ専門店

コンピュータの本・専門店

※種類が豊富で探し易いです。※在庫ありが48時間以内発送が急ぎで資料や書籍がほしい時、とても助かります。 お奨め本の目次を見るだけでも勉強になったり

amazon.co.jpでキーワード別チェック