SELECT...INTO ステートメントの使用例

次の例では、Employees テーブルのすべてのレコードを選択し、Emp Backup という新しいテーブルにそれらのレコードをコピーします。

Sub SelectIntoX()

    Dim dbs As Database

    Dim qdf As QueryDef

    ' この下の行を、使用しているコンピュータ上の

    ' Northwind のパスに変更してください。

    Set dbs = OpenDatabase("Northwind.mdb")

    ' Employees テーブルのすべてのレコードを選択し

    ' Emp Backup という新しいテーブルに

    ' それらのレコードをコピーします。

    dbs.Execute "SELECT Employees.* INTO " _

        & "[Emp Backup] FROM Employees;"

    ' ここではデモとしてテーブルを削除します。

    dbs.Execute "DROP TABLE [Emp Backup];"

    dbs.Close

End Sub