Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


26892 / 76732 ←次へ | 前へ→

【55166】Re:エクセルからAccessのアクションクエリを実行する方法
発言  ichinose  - 08/4/17(木) 20:48 -

引用なし
パスワード
   こんばんは。

>
>ご丁寧に教えていただきましてありがとうございます。
>ただ、私がしたいことは新しいテーブルを作成するのではなく
>テーブル作成クエリを実行して既存テーブルの複製を作りたいのです。
>つまり、既存テーブルのバックアップをとりたいのです。
バックアップなら、MDBファイルの自体をコピーという意見が出ています。
そのとおりだと思いますが、phooさんの仕様を尊重してテーブルを複製するクエリです

前回の投稿のado関連のプロシジャーはそのまま使います。

前回と同様にこのブックと同じフォルダに空のsample.mdbは作成して置いてください。

mainを以下のように変更しました。

'===================================================
Sub main()
  Dim sql_str As String
  Dim retcode As Long
  If open_ado(ThisWorkbook.Path & "\sample.mdb") = 0 Then
    sql_str = "drop table testTable"
    Call exec_sql(sql_str)
    sql_str = "drop table copyTable"
    Call exec_sql(sql_str)
'    ↑一度、テーブルを削除   
   
    sql_str = _
       "CREATE TABLE testTable (ID integer PRIMARY KEY ,氏名 varchar(20),住所 varchar(30));"
    retcode = exec_sql(sql_str)
'   ↑testTableの作成 ID 氏名 住所 がフィールド名
    If retcode = 0 Then
     sql_str = " INSERT INTO testTable " _
            & "(ID,氏名,住所) VALUES " _
            & "(1, 'ichinose', '山梨県');"
     retcode = exec_sql(sql_str)
'     testTableに1レコードだけ作成 ID=1 氏名=ichinose 住所=山梨県
     If retcode = 0 Then
       sql_str = "select * into copyTable FROM testTable"
       retcode = exec_sql(sql_str)
'        testTableのコピーをcopyTableという名前で作成
       If retcode = 0 Then
        MsgBox "バックアップ終了"
       Else
        MsgBox Error(retcode)
        End If
     Else
       MsgBox Error(retcode)
       End If
    Else
     MsgBox Error(retcode)
     End If
     
    Call close_ado
    End If
End Sub

これで試してみてください。

4 hits

【55133】エクセルからAccessのアクションクエリを実行する方法 phoo 08/4/16(水) 15:22 質問
【55136】Re:エクセルからAccessのアクションクエリ... VBWASURETA 08/4/16(水) 16:31 回答
【55138】Re:エクセルからAccessのアクションクエリ... VBWASURETA 08/4/16(水) 16:35 発言
【55154】Re:エクセルからAccessのアクションクエリ... phoo 08/4/17(木) 12:32 質問
【55162】Re:エクセルからAccessのアクションクエリ... VBWASURETA 08/4/17(木) 15:16 発言
【55150】Re:エクセルからAccessのアクションクエリ... ichinose 08/4/16(水) 21:40 発言
【55153】Re:エクセルからAccessのアクションクエリ... phoo 08/4/17(木) 12:29 質問
【55155】Re:エクセルからAccessのアクションクエリ... ハチ 08/4/17(木) 13:50 発言
【55163】Re:エクセルからAccessのアクションクエリ... neptune 08/4/17(木) 15:35 発言
【55166】Re:エクセルからAccessのアクションクエリ... ichinose 08/4/17(木) 20:48 発言
【55167】Re:エクセルからAccessのアクションクエリ... VBWASURETA 08/4/18(金) 9:26 質問
【55160】Re:エクセルからAccessのアクションクエリ... Yuki 08/4/17(木) 15:08 発言
【55168】Re:エクセルからAccessのアクションクエリ... phoo 08/4/18(金) 15:49 お礼

26892 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free