delphi :要UPDATE 带参数的ADOQUERY查询出来的结果如何写呢？

Question

with adoquery do
  begin
    Close;
    sql.text := 'update Product set SmallStorage=aa.SaleAmounts from 
    (select ProductCode,sum(SaleAmount) sumAmounts
    from  saleproductmx
    where Saledate>=:Date1 and Saledate<=:Date2) aa 
    where Product.ProductCode=aa.ProductCode '
    Parameters.ParamByName('Date1').Value:=StrTodate(FormatDateTime('yyyy-mm-dd',DateTimePicker1.Date));
    Parameters.ParamByName('Date2').Value:=StrTodate(FormatDateTime('yyyy-mm-dd',DateTimePicker2.Date));
    Execsql;
  end;

Answer 1

建議樓主就好是轉到其專版去。
會有更好的答案