сортировка в БД

[kuzmich]

привет всем!
создаю БД и у меня не получается сортировка.
вот код:

 Form1.Query1.Close;
 Form1.Query1.SQL.Clear;
 Form1.Query1.SQL.Add('select * from produkciya.db');
 case radiogroup2.ItemIndex of
  0 : s:='';
  1 : s:='DESK';
 end;
 case RadioGroup1.ItemIndex of
  0 : s:='order by Cena_produkt'+'  '+ s;
  1 : s:='order by Name_produkt'+ '  '+s;
  2 : s:='order by Cena'+ '  '+s;
 end;
 Form1.Query1.SQL.Add(s);
 Form1.Query1.Open;

выдает ошибку на вторую строку. подскажите.
вот сам проект - сюда

зарание спасибо

[=master=]

Ошибка секретная?

[kuzmich]

вот ошибка

[=master=]

Ну вот и смотрите, у вас в запросе есть какието неизвестные токены (clause).
Внимательно посмотрите на текст запроса и найдите что может быть неправильно.
Т.к. у вас запрос 2-х строчный, а ошибка во 2 строке то и надо искать именно в ней, при чем тогда когда по убыванию.
Собственно все уже сказано, только пальцем не ткнуто, сами справитесь?

[Аватар]

DESK ???

[kuzmich]

Сообщение от =master=

Ну вот и смотрите, у вас в запросе есть какието неизвестные токены (clause).
Внимательно посмотрите на текст запроса и найдите что может быть неправильно.
Т.к. у вас запрос 2-х строчный, а ошибка во 2 строке то и надо искать именно в ней, при чем тогда когда по убыванию.
Собственно все уже сказано, только пальцем не ткнуто, сами справитесь?

что то найти не могу! на InterBase - e работает

[=master=]

на InterBase - e работает

Быть того не может.

[Сергей33]

Я сортировку по столбцам делал так:
procedure TFTelsp.sDBGrid1TitleClick(Column: TColumn);
begin
if adoquery1.Sort = Column.FieldName then
adoquery1.Sort := ''
else
adoquery1.Sort := Column.FieldName;
end;

[kuzmich]

Сообщение от =master=

Быть того не может.

может, я ее тестировал на InterBase

[=master=]

Ок, сделаем по другому. По вашим критериям в итоге получаем вот такой запрос:

select * from produkciya.db
order by Cena_produkt DESK

скопируйте и запустите его "на InterBase". Ошибки есть?