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