可能是datetime的格式不对试试adodataset2.CommandText:='select sum(cashcount) 结果 from cashmanage where inoutflag=''out'' and datetime =‘'02-12-31'''; 报错的话,再试试别的格式!
老兄,看看我的代码,成功通过哦 begin Timeyear:=flatcombobox5.text; //对query10 ,query11操作 Tstr:='select htnumber,housenm,name,sex,shenfenhao,jobposit,peoplenumber,uses,entertime,memo from zhuser where (entertime>=:Timebegin)and(entertime<=:Timeend)'; TTstr:='select count(*) as recordcounts from zhuser where (entertime>=:Timebegin)and(entertime<=:Timeend)'; if Query10.Active then Query10.Active:=false; Query10.sql.clear; Query10.sql.SetText(pchar(Tstr)); Query10.ParamByName('timebegin').AsDatetime := strtodate(timeyear+'-1-1'); Query10.ParamByName('timeend').AsDatetime := strtodate(timeyear+'-12-31'); query10.active:=true; if Query11.Active then Query11.Active:=false; Query11.sql.clear; Query11.sql.SetText(pchar(TTstr)); Query11.ParamByName('timebegin').AsDatetime := strtodate(timeyear+'-1-1'); Query11.ParamByName('timeend').AsDatetime := strtodate(timeyear+'-12-31'); query11.active:=true; end;
begin
Timeyear:=flatcombobox5.text;
//对query10 ,query11操作
Tstr:='select htnumber,housenm,name,sex,shenfenhao,jobposit,peoplenumber,uses,entertime,memo from zhuser where (entertime>=:Timebegin)and(entertime<=:Timeend)';
TTstr:='select count(*) as recordcounts from zhuser where (entertime>=:Timebegin)and(entertime<=:Timeend)';
if Query10.Active then
Query10.Active:=false;
Query10.sql.clear;
Query10.sql.SetText(pchar(Tstr));
Query10.ParamByName('timebegin').AsDatetime := strtodate(timeyear+'-1-1');
Query10.ParamByName('timeend').AsDatetime := strtodate(timeyear+'-12-31');
query10.active:=true;
if Query11.Active then
Query11.Active:=false;
Query11.sql.clear;
Query11.sql.SetText(pchar(TTstr));
Query11.ParamByName('timebegin').AsDatetime := strtodate(timeyear+'-1-1');
Query11.ParamByName('timeend').AsDatetime := strtodate(timeyear+'-12-31');
query11.active:=true;
end;