[AlexGTX]

Прошу помощи у знающих людей, не могу организовать отбор записей в таблице из заданного диапазона дат(DateTimePicker). Вылезает непонятная ошибка при попытке сортировки. Поле Data в таблице типа Date/Time. Фрагмент запроса:

Код:

procedure TForm3.Button4Click(Sender: TObject);
Var
Data1, Data2:string;
begin
  Data1:=DateToStr(DateTimePicker1.DateTime);
  Data2:=DateToStr(DateTimePicker2.DateTime);
with Form3.Query1 do
        begin
        Close;
        SQL.Clear;
        Form3.Query1.Close;
        SQL.Text:='SELECT * FROM OsSklad WHERE Data >= '+Data1+' and Data <='+Data2+'';
        Open;
        end;
end;

Админ: Пользуемся тегами для оформления кода!

Ошибка на рисунке

[Ildar-tsr]

Код:

with Form3.Query1 do
  begin
    Close;
    SQL.Text:= 'select * from OsSklad where [Data] >= '+QuotedStr(Data1)+' and [Data] <= '+QuotedStr(Data2);
    Open;
  end;

Если не поможет, пропишите перед Open строчку:

Код:

SQL.SaveToFile('C:\123.txt');

Потом посмотрите получившийся запрос в 123.txt на диске С:\ и скиньте сюда текст запроса.

[AlexGTX]

Не сработало((( ошибка такая же, вот файлик.

[Ildar-tsr]

А если без квадратных скобок?

Код:

SQL.Text:= 'select * from OsSklad where Data >= '+QuotedStr(Data1)+' and Data <= '+QuotedStr(Data2);

Как в Paradox кстати перевести строку в дату?

[AlexGTX]

Тоже самое и без скобок, из строки в дату вроде так StrToDateTime

[lmikle]

Сообщение от AlexGTX

Тоже самое и без скобок, из строки в дату вроде так StrToDateTime

Перепиши на использование параметров - подозреваю, что проблемы именно с предстввлением даты:

Код:

...
SQL.Text:= 'select * from OsSklad where Data >= :param1 and Data <= :param2';
ParamByName('param1').AsDateTime := DateTimePicker1.DateTime;
ParamByName('param2').AsDateTime := DateTimePicker2.DateTime;
Open;
...

[AlexGTX]

Классно! Помогло, только почему-то первую дату не включает. Например, есть записи подряд с 15.04.2012 по 20.04.2012. В DateTimePicker1 выбираю 15.04.2012, а DateTimePicker2 - 20.04.2012, и записи в таблице появляются начиная с 16.04.2012. Что за хрень???

[Ildar-tsr]

Сообщение от AlexGTX

Классно! Помогло, только почему-то первую дату не включает. Например, есть записи подряд с 15.04.2012 по 20.04.2012. В DateTimePicker1 выбираю 15.04.2012, а DateTimePicker2 - 20.04.2012, и записи в таблице появляются начиная с 16.04.2012. Что за хрень???

Код:

ParamByName('param1').AsDateTime := DateTimePicker1.DateTime;
ParamByName('param2').AsDateTime := DateTimePicker2.DateTime;

[AlexGTX]

Такая же хрень, не включает первую дату, но отбор работает, таблица заполняется со следующей даты из диапазона.

[lmikle]

Сообщение от AlexGTX

Такая же хрень, не включает первую дату, но отбор работает, таблица заполняется со следующей даты из диапазона.

А это уже проблемы того, что подствляется и время.
Тогда попробуй так:

Код:

...
SQL.Text:= 'select * from OsSklad where Data >= :param1 and Data < :param2';
ParamByName('param1').AsDateTime := DateOf(DateTimePicker1.DateTime);
ParamByName('param2').AsDateTime := DateOf(DateTimePicker2.DateTime)+1;
Open;
...

[Yurk@]

Сообщение от lmikle

Код:

...
SQL.Text:= 'select * from OsSklad where Data >= :param1 and Data < :param2';
ParamByName('param1').AsDateTime := DateOf(DateTimePicker1.DateTime);
ParamByName('param2').AsDateTime := DateOf(DateTimePicker2.DateTime)+1;
Open;
...

Код:

ParamByName('param1').AsDate := DateTimePicker1.Date;
ParamByName('param2').AsDate := DateTimePicker2.Date+1;

не будем усложнять себе жизнь

[AlexGTX]

Сообщение от Yurk@

Код:

ParamByName('param1').AsDate := DateTimePicker1.Date;
ParamByName('param2').AsDate := DateTimePicker2.Date+1;

не будем усложнять себе жизнь

Спасибо за помощь!!! Все работает !!! Правда код слегка подправил)))
ParamByName('param1').AsDateTime := DateTimePicker1.DateTime-1;
ParamByName('param2').AsDateTime := DateTimePicker2.DateTime;