Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.01.2011, 19:38   #1
demiancz
Форумчанин
 
Регистрация: 28.09.2010
Сообщений: 246
По умолчанию Создание автофильтра

Люди помогите сделать автофильтр с помощью SQL
Есть DB Grid в котором выводится список фильмов и нужно с помощью автофильтра искать фильмы. В SQL вообще я ноль. Потому прошу помощи. Если не трудно объясните подробно как это все реализовать. Файл прикрепил.
Вложения
Тип файла: rar proba.rar (374.2 Кб, 16 просмотров)
Смотреть фильмы HD Фильмы для планшетов
demiancz вне форума Ответить с цитированием
Старый 08.01.2011, 20:31   #2
demiancz
Форумчанин
 
Регистрация: 28.09.2010
Сообщений: 246
По умолчанию Re

Вот немного переделал.
Вот такой код.
Цитата:
ADOQuery1.Active := false;
ADOQuery1.Parameters.ParamByName('F indfilm').Value:=
Edit1.Text;
ADOQuery1.Active:=true;
Но теперь список вообще не отображается при запуске программы.
Вложения
Тип файла: rar proba.rar (375.6 Кб, 8 просмотров)
Смотреть фильмы HD Фильмы для планшетов
demiancz вне форума Ответить с цитированием
Старый 08.01.2011, 22:37   #3
demiancz
Форумчанин
 
Регистрация: 28.09.2010
Сообщений: 246
По умолчанию

Все сам сделал
Цитата:
DataModule1.FilmsQuery.Active:=fals e;
DataModule1.FilmsQuery.SQL.Clear;
DataModule1.FilmsQuery.SQL.Add('SEL ECT*');
DataModule1.FilmsQuery.SQL.Add('FRO M bdf');
DataModule1.FilmsQuery.SQL.Add('WHE RE films LIKE ''%'+FindEdit.Text+'%''');
DataModule1.FilmsQuery.Active:=true ;
Это кому интеренсно
Смотреть фильмы HD Фильмы для планшетов
demiancz вне форума Ответить с цитированием
Старый 09.01.2011, 13:32   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

А я бы писал так:
Код:
with DataModule1.FilmsQuery do begin
 Active:=false;
 sql.text:='SELECT * FROM bdf WHERE films LIKE '+QuotedStr('%'+FindEdit.Text+'%');
 Active:=true; 
end;
ИМХО читабельнее выглядит...
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
использование автофильтра в макросе андей Microsoft Office Excel 0 02.04.2010 10:30
колонки автофильтра НеВа6464 Microsoft Office Excel 18 03.03.2010 12:40
Анализ состояния автофильтра НеВа6464 Microsoft Office Excel 3 20.11.2009 15:43
Не верная работа автофильтра DsXack Microsoft Office Excel 2 06.11.2009 08:50
Глюк автофильтра Gorizont Microsoft Office Excel 8 04.08.2008 10:23