SELECT...INTO 語句示例 (DAO)

SELECT...INTO 語句示例

此示例選擇在員工表中的所有記錄，然后復(fù)制到命名為 Emp Backup 的新表中。

Sub SelectIntoX()

   Dim dbs As Database

   Dim qdf As QueryDef

   ' 在您的計算機中修改此行使其正確指到 Northwind 的路徑。

   Set dbs = OpenDatabase("Northwind.mdb")

   ' 對運費超過 $100 的訂單，

   ' 選擇員工表中的所有記錄，

   ' 并且復(fù)制到稱作員工備份的新表中。

   dbs.Execute "SELECT Employees.* INTO " _

       & "[Emp Backup] FROM Employees;"

     

   ' 刪除 QueryDef 因為這是一個演示。

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

 

   dbs.Close

End Sub