все спасибо с этим сам разобрался и без параметров..
щас другой вопрос появился, как сделать БЭКАП БД (ado/аксес)?
мот каму еще пригодитсья :
var
d1,d2,d3,d4,d5,d6:Word;
dt1,dt2,dt3,dt4,dt5,dt6 : String ;
begin
DecodeDate(DateTimePicker1.Date, d1, d2, d3);
DecodeDate(DateTimePicker2.Date, d4, d5, d6);
dt1:=IntToStr(d1);
dt2:=IntToStr(d2);
dt3:=IntToStr(d3);
dt4:=IntToStr(d4);
dt5:=IntToStr(d5);
dt6:=IntToStr(d6);
DM.qfilt2.Close;
DM.qfilt2.SQL.Text:='';
DM.qfilt2.SQL.add('SELECT * FROM prihod WHERE data BETWEEN DateSerial('+dt1+','+dt2+','+dt3+') and DateSerial('+dt4+','+dt5+','+dt6+')');
DM.qfilt2.ExecSQL();
end;
|