Сортировка DBGrid

[Cyn4uk]

Поиск юзал, просмотрел все тем 20 по его результатам, но что-то ничего для себя не откопал =(

Итого мы имеем DBGrid и нам нужно по нажатии на title отсортировать по тому заголовку, на который мы нажали.

Делаю SQL запрос, но выскакивает ошибка при нажатии на титл. Раньше сортировку через SQL не делал, поэтому не очень ориентируюсь.

  dm.fq.Active := false;
  dm.fq.SQL.clear;
  dm.fq.SQL.add('select * from Table_zakaz where [Íîìåð]="' + form1.zakcb.Text + '"');
  dm.fq.SQL.Add('order by "' + dbt1.selectedfield.AsString +'"');
  dm.fq.Active := true;

Ошибка в строчке dm.fq.SQL.Add('order by "' + dbt1.selectedfield.AsString +'"');

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

[Cyn4uk]

пробовал так:

  dm.fq.Active := false;
  dm.fq.SQL.clear;
  QuerySQL:='select * from Table_zakaz where [Íîìåð]="' + form1.zakcb.Text + '"';
  dm.fq.SQL.add(QuerySQL);
  dm.fq.SQL.Add('order by' + column.FieldName);
  dm.fq.Active := true;

Выскакивает ошибка order by. Хотя в инете этот способ признан рабочим.

[dron-s]

используй EhLib, там уже всё реализовано в два клика

[Cyn4uk]

Сообщение от dron-s

используй EhLib, там уже всё реализовано в два клика

Да, я решил не мучатся, установил и настроил уже. Но все-таки из принципа нужно этот вопрос разобрать =)

[mihali4]

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

Да, я решил не мучатся, установил и настроил уже. Но все-таки из принципа нужно этот вопрос разобрать =)

Так ORDER BY делается по ИМЕНИ поля, а не по его ЗНАЧЕНИЮ!
Во втором варианте вы хоть и перемудрили с процессом присвоения SQL, но зато использовали именно ИМЯ поля, правда, забыли сделать перед ним пробел...

[Cyn4uk]

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

Так ORDER BY делается по ИМЕНИ поля, а не по его ЗНАЧЕНИЮ!
Во втором варианте вы хоть и перемудрили с процессом присвоения SQL, но зато использовали именно ИМЯ поля, правда, забыли сделать перед ним пробел...

Блин, как обычно долго мучаешься из-за какого-то пустяка =)

Спасибо, буду знать =)

[ГОСЕАН]

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

Так ORDER BY делается по ИМЕНИ поля, а не по его ЗНАЧЕНИЮ!
Во втором варианте вы хоть и перемудрили с процессом присвоения SQL, но зато использовали именно ИМЯ поля, правда, забыли сделать перед ним пробел...

Очень Вам признателен Михалыч. Я использовал Ваш метод, но вот одна проблема. После сортировки (очень удачно делает) все названия колонок написанные на русском языке (в титуле Caption) исчезли, все названия полей. Как сделать, чтобы при сортировке названия в Титуле на русском сохранялись?

[Stilet]

Выскакивает ошибка order by

Правильно выскакивает.
dm.fq.SQL.Add('order by' + column.FieldName); Тут между by и FieldName нет пробела, там получается если поле называется Pole1 то получается order byPole1
Ессно ошибка...

Так ORDER BY делается по ИМЕНИ поля, а не по его ЗНАЧЕНИЮ!

Сортировка делается либо по имени поля либо по нимеру колонки.

ГОСЕАН

У меня такой вариант работает и ничего не исчезает.

[ГОСЕАН]

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
witzh Query1 do
begin
DisableControls;
Close;
SQL.Clear;
SQL.Add('Select * From dbo.firm');
SQL.Add('ORDER BY ' + Column.FieldName);
Open;
// Восстанавливаем настройки заголовка
DBGrid1.Columns.RestoreDefaults;
Column.Title.Font.Color := clBlue;
EnableControls;
end;
end;

Тогда, что я не так сделал? Все русские названия в титуле колонок исчезли.

[mihali4]

Так а это вы зачем делаете???

DBGrid1.Columns.RestoreDefaults;

Что такое Defaults?
Вы же сами сбрасываете то, что настроили ранее...