◆書式

UPDATE テーブル名 SET フィールド名=新しい値

◆Sample

次の例は、テーブル「商品」の単価を1.05倍に更新します。

Function まとめて更新()
   Dim ct As ADODB.Connection
   Dim rs As ADODB.Recordset
   Dim cm As ADODB.Command
   Dim msg As Integer

   ' Connectionオブジェクト変数「ct」に、カレントプロジェクトを代入する
   Set ct = Application.CurrentProject.Connection
   ' レコードセット変数に「rs」を代入する
   Set rs = New ADODB.Recordset
   '「商品」テーブルをレコードセットで開く
   rs.Open "商品", ct
   msg = MsgBox(rs.GetString, , rs.Source)
   ' Commandオブジェクト変数「cm」にコマンドを代入する
   Set cm = New ADODB.Command
   cm.ActiveConnection = ct
   cm.CommandText = "UPDATE 商品 SET 単価 =単価*1.05;"
   ' SELECTステートメントをレコードセットで開く
   Set rs = cm.Execute
   '「商品」テーブルをレコードセットで開く
   rs.Open "商品", ct
   msg = MsgBox(rs.GetString, , rs.Source)

   rs.Close: Set rs = Nothing
   ct.Close: Set ct = Nothing
End Function