update tm set 圖號=:a where 接圖日期>=:ks and 接圖日期<=:js and 客戶=:khupdate tm set 圖號=:a where 接圖日期 between :ks and :js and 客戶=:kh接圖日期不起作用,就把我選定客戶的全部更新。是access數據庫。
update tm set 圖號=:a where (接圖日期 between :ks and :js) ==> [接圖日期] >= :KS and [接圖日期] <= :JSand (客戶=:kh)
begin adoquery1.Close; adoquery1.SQL.Clear; adoquery1.SQL.Add('update tm set 圖號=:a where [接圖日期] >=:ks and [接圖日期] <=:js and (客戶=:kh)'); adoquery1.Parameters.ParamByName('a').Value:='test'; adoquery1.Parameters.ParamByName('kh').Value:=combobox1.Text; adoquery1.Parameters.ParamByName('ks').Value:=datetostr(datetimepicker1.DateTime); adoquery1.Parameters.ParamByName('js').Value:=datetostr(datetimepicker2.DateTime); adoquery1.ExecSQL; end;這是全部代碼。
adoquery1.Parameters.ParamByName('ks').Value:=datetostr(datetimepicker1.DateTime);
adoquery1.Parameters.ParamByName('js').Value:=datetostr(datetimepicker2.DateTime);
(接圖日期 between :ks and :js) ==> [接圖日期] >= :KS and [接圖日期] <= :JSand (客戶=:kh)
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('update tm set 圖號=:a where [接圖日期] >=:ks and [接圖日期] <=:js and (客戶=:kh)');
adoquery1.Parameters.ParamByName('a').Value:='test';
adoquery1.Parameters.ParamByName('kh').Value:=combobox1.Text;
adoquery1.Parameters.ParamByName('ks').Value:=datetostr(datetimepicker1.DateTime);
adoquery1.Parameters.ParamByName('js').Value:=datetostr(datetimepicker2.DateTime);
adoquery1.ExecSQL;
end;這是全部代碼。
adoquery1.Parameters.ParamByName('js').AsDateTime:=datetimepicker2.DateTime;
adoquery1.Parameters.ParamByName('ks').Value:=datetimepicker1.DateTime;
adoquery1.Parameters.ParamByName('js').Value:=datetimepicker2.DateTime;
adoquery1.Parameters.ParamByName('ks').DataType :=ftDateTime;
adoquery1.Parameters.ParamByName('js').DataType :=ftDateTime;
update tm set 圖號=:a where 接圖日期>=:ks and 客戶=:kh
字段類型是日期型的
改成這樣就可以了
adoquery1.Parameters.ParamByName('kh').Value:=trim(combobox1.Text);
結帖了!!!