クエリーで日付型項目を空値にするには (ID:43280)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

Query3.Close;
    with Query3 do
    begin
        SQL.Clear;
        SQL.Add('UPDATE "発注.DB"');
        if HatyuTbl.FieldByName('回答納期').AsDateTime < now - 300  then
        begin
          SQL.Add('SET 回答納期 = '', 備考 = :P1');
          SQL.Add('WHERE (購買伝票番号 = :P2)');
          SQL.Add(' AND (明細番号 = :P3)');
          Params.ParamByName('P1').AsString := HatyuTbl.FieldByName('備考').asString;
          Params.ParamByName('P2').AsString := HatyuTbl.Fields[0].AsString;
          Params.ParamByName('P3').AsString := HatyuTbl.Fields[1].AsString;          
        end  
        else
        begin
          SQL.Add('SET 回答納期 = :P1, 備考 = :P2');
          SQL.Add('WHERE (購買伝票番号 = :P3)');
          SQL.Add(' AND (明細番号 = :P4)');
          Params.ParamByName('P1').AsString := HatyuTbl.FieldByName('回答納期').asDateTime;
          Params.ParamByName('P2').AsString  := HatyuTbl.FieldByName('備考').asString;
          Params.ParamByName('P3').AsString := HatyuTbl.Fields[0].AsString;
          Params.ParamByName('P4').AsString := HatyuTbl.Fields[1].AsString;             
        end;
        try
          execSQL;
        except
          showMessage('更新に失敗しました！');
        end;
        showMessage('変更を保存しました！');

end;

こんな書き方ってできましたっけ？

←解決時は質問者本人がここをチェックしてください。

戻る