Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Проблема с DBGridEh библиотеки EhLib и Адо [D7]


ArchValentin ©   (2009-03-05 12:07:00) 

Доброго времени суток. База данных фаил аксесс, связываюсь с ним через Адо. Хочу чтобы при клики на заголовок колонки, таблица сортировалась, решил использовать для этого DBGridEh. Подключаю модуль EhLibADO и при клике на заголовок получаю invalid class typecast

BDS 2006


KSergey   (2009-03-10 12:20:00) [1]

зачем такая поделка может понадобиться? тем более раз ADO умеет сортировать без переоткрытия. К стати, в такой парадигме уход указателя с тек. записи не беспокоит?


ArchValentin   (2009-03-10 11:24:00) [2]

поковырялся еще чуток, плюнул и сделал следующее, вдруг кому понадобится

procedure TDogForm.DBGridEh1TitleClick(Column: TColumnEh);
begin
case Column.Title.SortMarker of
smDownEh:
 begin
  qdog.SQL.Clear;
  qdog.SQL.Add('select * from dog order by '+Column.FieldName);
  qdog.Active:=true;
 end;
smUpEh:
 begin
  qdog.SQL.Clear;
  qdog.SQL.Add('select * from dog order by '+Column.FieldName+' desc');
  qdog.Active:=true;
 end;
end;
end;


KSergey   (2009-03-10 09:53:00) [3]

скопировать EhLibADO и ручками дошаманить по месту сообразно применяемым типам. Не знаю как сейчас, но когда-то этот модуль был излишне примитивен, подходил только как пример/шаблон для развития собственного.


Наверх

Титульная страница Поиск, карта сайта Написать письмо