Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 4.50/8: Рейтинг темы: голосов - 8, средняя оценка - 4.50
x_X-x3
-27 / 0 / 0
Регистрация: 18.05.2013
Сообщений: 33
#1

Фильтрация данных в DBGrid

15.04.2016, 11:51. Просмотров 1420. Ответов 26
Метки нет (Все метки)

Здравствуйте.Нуждаюсь в помощи.
Имеется БД Access которая связана с Delphi при помощи ADOTable1 .
Имеется код
Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm3.Edit5Change(Sender: TObject);
 
begin 
if Length(Edit5.Text) > 0 then
begin 
ADOTable1.Filtered:=false; 
ADOTable1.Filter:=Combobox1.Text + ' LIKE ' + #39 + Edit5.Text + '%' + #39; 
ADOTable1.Filtered:=true; 
end
else ADOTable1.Filtered:=false;
end;
Допустим вы выбрали в Combobox "Влажность" в Edit вспиали 90 и он оставляет нам строки с эти числом
Но как реализовать,что бы он оставлял все строки не только 90,но и большим значением?
Также как сделать,что бы в фильтрации было несколько условий помимо "Влажности" ?
Надеюсь на помощь.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.04.2016, 11:51
Ответы с готовыми решениями:

Фильтрация данных в DbGrid
В моей проге есть поиск: выбираем в combobox поле в котором необходим поиск, в...

Фильтрация данных в DBGrid
Необходимо оставить в DBGride только поля (их может быть несколько) у которых...

Проверка перед вводом данных и фильтрация DBGrid
Необходимо перед добавлением каких либо данных проверить их на наличие в базе!...

Фильтрация данных в DBGrid через SQL запрос DataSet-a
Delphi 2009, fibplus, firebird. Имеется DataSet c SQL-запросом: SELECT...

Фильтрация и поиск данных мпонента DBGrid при подключении к MySQL server (ODE)
Не могу настроить фильтрацию и поиск данных компонента DBGrid при подключении к...

26
qwertehok
2210 / 2199 / 599
Регистрация: 29.08.2013
Сообщений: 14,674
16.04.2016, 19:47 #21
Цитата Сообщение от x_X-x3 Посмотреть сообщение
почему он не фильтрует?
он тебя не понимает
0
x_X-x3
-27 / 0 / 0
Регистрация: 18.05.2013
Сообщений: 33
17.04.2016, 08:43  [ТС] #22
qwertehok, как его вразумить?)

Добавлено через 11 часов 7 минут
Delphi
1
2
3
4
5
6
7
8
procedure TForm7.FormCreate(Sender: TObject);
begin
if  RadioButton1.Checked  then
begin
ADOQuery1.Filter := 'Способ записи Like > '+QuotedStr('По движению');
ADOQuery1.Active:=True;
end
end;
так он тоже не понимает....Что исправить?
0
x_X-x3
-27 / 0 / 0
Регистрация: 18.05.2013
Сообщений: 33
17.04.2016, 14:25  [ТС] #23
мдааа...может на этот вопрос ответят и подскажут..
Хочу сделать фильтрацию по 2 критериям.
Первый проходит,а если использую второй,то первый слетает.
Что исправить,что бы можно было фильтровать совместно?
Первый критерий
Delphi
1
2
3
4
procedure TForm3.ComboBox1Change(Sender: TObject);
begin
ADOQuery1.Filter:='(Размещение ''%' + Combobox1.Text + '%'')';
ADOQuery1.Filtered:=true;
ВТорой
Delphi
1
2
3
4
5
procedure TForm3.ComboBox2Change(Sender: TObject);
begin
ADOQuery1.Filter:='(Взрывозащищенность LIKE ''%' + Combobox2.Text + '%'')';
ADOQuery1.Filtered:=true;
end;
0
qwertehok
2210 / 2199 / 599
Регистрация: 29.08.2013
Сообщений: 14,674
18.04.2016, 09:05 #24
ты совсем ни думать не хочешь, ни читать

взял первый попавшийся учебник по Delphi7, вот там такой пример по Filter
Delphi
1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOTable1.Filtered:=false;
ADOTable1.Filter:='ФАМИЛИЯ LIKE '+ #39 + Edit2.Text + '%' + #39 +' AND ' + 'ИМЯ LIKE '+ #39 + Edit3.Text + '%' + #39 + ' AND ' + 'ОТЧЕСТВО LIKE ' + #39 + Edit4.Text + '%' + #39;
ADOTable1.Filtered:=true;
end;
0
Lev436
0 / 0 / 0
Регистрация: 08.06.2016
Сообщений: 74
04.06.2018, 14:46 #25
Не работает! Пишет ошибку.
0
krapotkin
3393 / 3007 / 1040
Регистрация: 14.04.2014
Сообщений: 14,579
Записей в блоге: 15
04.06.2018, 15:02 #26
странно!
а мы ничего не видим
0
D1973
Модератор
3398 / 2437 / 1201
Регистрация: 21.01.2014
Сообщений: 10,082
Записей в блоге: 3
Завершенные тесты: 1
04.06.2018, 15:37 #27

Не по теме:

Цитата Сообщение от krapotkin Посмотреть сообщение
а мы ничего не видим
Что-то с Вашим миелофоном случилось... :D


Lev436, если судить по постам 2-хлетней давности - то у Вас такая же канитель:
"вот такое во название поля" - это не есть хорошо...
Если не дошло, разжевываю: поля и таблицы БД называются на латинице без пробелов...
0
04.06.2018, 15:37
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.06.2018, 15:37

DBGrid Фильтрация
Имееться такая вот база данных ToolBar1: TToolBar; Edit1: TEdit; ...

Фильтрация в DBGrid
Необходимо осуществить фильтрацию базы данных в DBGrid. Для этого нужно в 3...

Фильтрация в DbGrid
Программа Dephi7. Имеется База Данных созданная в Acces с двумя строками:...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
27
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru