Сортировка в dbgrid

[Михаил Юрьевич]

Подскажите как можно отсортировать записи в DBGrid по алфавиту, сделал выборку из базы , в DBGrid отображаются только записи соответствующие выборке,других записей нет,как теперь отсортировать по алфавиту только эти записи.

[Yurk@]

добавить в конец запроса выборки

ORDER BY <перечень полей для сорт-ки>

и сортировать, например, по клику на шапке грида

[Михаил Юрьевич]

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

добавить в конец запроса выборки

ORDER BY <перечень полей для сорт-ки>

и сортировать, например, по клику на шапке грида

Извиняюсь,но что то не догоняю как надо. так не сортирует
form1.ABSQuery.SQL.Text := 'select * from book WHERE gruppa=3 ORDER BY 3 ASC';

[Stilet]

Так будет сортировать по третьему полю. Тебе это надо?

[Михаил Юрьевич]

Всем спасибо! разобрался

[Sciv]

Предположим, в таблице TAB три поля, по которым нужна сортировка (полей может быть и больше): NUM (номер), DAT (Дата), FIO (ФИО). Запрос с сортировкой:

SELECT * FROM TAB WHERE NUM>0 ORDER BY NUM,DATA,FIO

В данном случае сортировка сначала пойдет по полю "Номер", потом (так сказать, внутри первой сортировки) по дате, и, наконец, по фио.

При перестановке полей, например, так:

SELECT * FROM TAB WHERE NUM>0 ORDER BY DATA,NUM,FIO

получим сначала упорядочивание по дате, затем по номеру и по фио.

И, наконец, еще одна фишка:

SELECT * FROM TAB WHERE NUM>0 ORDER BY DATA,NUM,FIO DESK

выдаст обратное упорядочивание - по убыванию значений.

Упсь... опоздал

[Михаил Юрьевич]

Спасибо! Поучительно.

[IT-NGTK]

Привет всем. Я тут новичок поэтому если чуть ошибся темой не судите строго. А вопрос у меня вот какой: есть таблица и есть DBGrid также есть Edit, необходимо сделать фильтрацию по одному полю и отображать ее в DBGrid, по мере ввода данных в Edit, проще говоря работать должно все вот как: запустили проект в DBGrid Выведена таблица начинаем вводить условие в Edit (какой ни будь текст) событие OnChange начинает фильтр соответственно. И выводит отфильтрованные по заранее определенному полю записи в DBGrid. Где то в интернете откопал кусок кода и сделал под себя но при выполнении события OnChange вылетает ошибка "operation not applicable" в чем проблема подскажите, очень нужно сделать такой фильтр... вот код на событие OnChange:
procedure TOcenki.Edit1Change(Sender: TObject);
begin if Length(Edit1.Text) > 0 then
begin DataModule1.Table7.Filtered:=false;
DataModule1.Table7.Filter:='Dis LIKE '+ #39 + Edit1.Text + '%' + #39;
DataModule1.Table7.Filtered:=true;
end
else
DataModule1.Table1.Filtered:=false;
end;

Обращаю внимание что "Dis" - это поле по которому должна происходить фильтрация в таблице.

[Sciv]

если чуть ошибся темой не судите

Да ты, дорогой, не темой ошибся, ты в закрытую ветку написал, здесь ведь и не прочитать могут.

начинаем вводить условие в Edit (какой ни будь текст) событие OnChange начинает фильтр

Я бы порекомендовал не OnChange, а OnKeyPress

"operation not applicable"

СУБД какая? Возможно, она фильтр на команде LIKE не поддерживает. Попробуй так:

procedure TOcenki.Edit1KeyPress(Sender: TObject; var Key: Char);
begin 
  if Length(Edit1.Text) > 0 then begin 
    DataModule1.Table7.Filtered:=false;
    DataModule1.Table7.Filter:='Dis='+ #39 + Edit1.Text + '*' + #39;
    DataModule1.Table7.Filtered:=true;
  end
  else DataModule1.Table1.Filtered:=false;
end;

[IT-NGTK]

А куда тогда писать я не знаю... И да огромное спасиба!!! ))) все заработало! таблицы на парадоксе сделаны. И еще вопрос все работает только косяк один когда в edit стираю символы обратно то в DBGrid не меняется ни чего... как сделать что бы при стирании символов в DBGrid возвращался прежний список записей? то есть теперь нужна как бы сказать обратная операция... Спасиба Sciv