| SQL 不等号に合ったレコードを全て更新 | ||||
UPDATE テーブル SET 数量=500 WHERE 金額>3000 この場合、金額が3000円以上のデータの数量を500にセットします。 その他、「金額>=3000」「金額<3000」「金額<=3000」のように指定します。
サンプルソフト 入力された「高さ」以上の製品の「梱包」を”済み”に更新します。 「高さ」を入力し、「実行」ボタンをクリックしてください。 数値を入力してください、もし文字を入力し実行するとエラーになります。 入力された「高さ」以上の製品が見つからない場合は、何も変更されません。 ![]() Option Compare Database Private Sub コマンド8_Click() Dim SQL As String Dim n1 As Long Dim n2 As Long Dim n3 As Long If IsNull(Me!テキスト1) Then MsgBox "更新する高さを入力してください。" Exit Sub End If SQL = "UPDATE T_商品管理 SET 梱包='済み' WHERE 高さ>=" & Me!テキスト1 CurrentDb.Execute SQL, dbFailOnError End Sub
ダウンロード |
||||
Copyright(C) 2007-2008 FeedSoft