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