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