UPDATE 语句示例 (DAO)

UPDATE 语句示例

此示例对于所有当前的“ReportsTo”字段值为 2 的员工记录更改其“ReportsTo”字段值为 5。

Sub UpdateX()

Dim dbs As Database

Dim qdf As QueryDef

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

Set dbs = OpenDatabase("Northwind.mdb")

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

' 对于当前所有 ReportsTo 字段值为 2 的员工记录

' 把其ReportsTo字段值改为5。

'

dbs.Execute "UPDATE Employees " _

& "SET ReportsTo = 5 " _

& "WHERE ReportsTo = 2;"

dbs.Close

End Sub