Форум: "Базы";
Текущий архив: 2004.02.02;
Скачать: [xml.tar.bz2];
ВнизОшибка в запросе для поля типа даты. Найти похожие ветки
← →
Чайник1 (2004-01-09 15:24) [0]Уважаемые мастера, в чем ошибка, выбираю записи между двумя датами, даты беру из формы где есть два компонента DataPicker, выдает сообщение, что не тот тип данных
код следующий:
procedure Tvv_usl.BitBtn1Click(Sender: TObject);
var sr_d,sr_m,sr_y,sr1_d,sr1_m,sr1_y:integer;
sr_dd,sr_mm,sr1_dd,sr1_mm,stroka:string;
sr,sr1:TdateTime;
Sheet: Variant;
Row:Integer; it,it1,it2:real;
begin
sr:=t1.date;
sr1:=t2.date;
if sr<sr1 then
begin
sr_d:=Dayof(t1.Date);
sr_m:=monthof(t1.date);
sr_y:=yearof(t1.date);
sr1_d:=dayof(t2.Date);
sr1_m:=monthof(t2.date);
sr1_y:=yearof(t2.date);
if sr_d<=9 then sr_dd:="0"+inttostr(sr_d) else sr_dd:=inttostr(sr_d);
if sr_m<=9 then sr_mm:="0"+inttostr(sr_m) else sr_mm:=inttostr(sr_m);
if sr1_d<=9 then sr1_dd:="0"+inttostr(sr1_d) else sr1_dd:=inttostr(sr1_d);
if sr1_m<=9 then sr1_mm:="0"+inttostr(sr1_m) else sr1_mm:=inttostr(sr1_m);
dat1.plan.SQL.Text:="select * from name_graf where dat_pl Between : and : Order by dat_pl";
dat1.plan.Params[0].asDate := StrTodateTime(sr_dd+"."+sr_mm+"."+inttostr(sr_y));
dat1.plan.Params[1].asDate :=StrTodateTime(sr1_dd+"."+sr1_mm+"."+inttostr(sr1_y));
dat1.plan.ExecSQL;
dat1.plan.Active:=true;
if Radio1.Checked=true then
begin
ot11.LoadFromFile("d:\ot1.frf");
ot11.PrepareReport;
ot11.ShowPreparedReport;
end;
спасибо.
← →
Desdechado (2004-01-09 15:45) [1]а зачем такие сложные манипуляции с преобразованием дат?
просто в параметры пиши значения из пикеров.
и в запросе двоеточия без имен параметров - это работает?
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2004.02.02;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c