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