当前位置: 首页 > 文档资料 > SQL 合计函数 >

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

优质
小牛编辑
124浏览
2023-12-01

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