SELECT...INTO 语句示例

此示例选择在员工表中的所有记录，然后复制到命名为 Emp Backup 的新表中。

Sub SelectIntoX()

    Dim dbs As Database

    Dim qdf As QueryDef

    ' 在您的计算机中修改此行使其正确指到 Northwind 的路径。

    Set dbs = OpenDatabase("Northwind.mdb")

    ' 对运费超过 $100 的订单，

    ' 选择员工表中的所有记录，

    ' 并且复制到称作员工备份的新表中。

    dbs.Execute "SELECT Employees.* INTO " _

        & "[Emp Backup] FROM Employees;"

    ' 删除 QueryDef 因为这是一个演示。

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

    dbs.Close

End Sub