[AlexGTX]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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]

Код:

1 2 3 4 5 6

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

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

Код:

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

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

[AlexGTX]

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

[Ildar-tsr]

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

Код:

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

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

[AlexGTX]

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

[lmikle]

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

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

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

Код:

1 2 3 4 5 6

... 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. Что за хрень???

Код:

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

[AlexGTX]

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

[lmikle]

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

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

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

Код:

1 2 3 4 5 6

... 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

Код:

Код:

1 2	ParamByName('param1').<b>AsDate</b> := DateTimePicker1.<b>Date</b>; ParamByName('param2').<b>AsDate</b> := DateTimePicker2.<b>Date</b>+1;

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

[AlexGTX]

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

Код:

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

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