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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 07.10.2018, 23:29   #1
Wolfire
 
Регистрация: 23.09.2018
Сообщений: 6
По умолчанию Обработка данных БД

Здравствуйте.
Работаю с БД Access.
Разобрался как фильтровать текстовые данные:
Код:
{procedure TForm12_1.Edit1Change(Sender: TObject);
begin
if Edit1.Text <> ' '  then
 begin
 FDM.TEngine.Filtered := False;
 FDM.mark:=Edit1.Text;
 FDM.TEngine.Filtered := True;
 end
 else
 FDM.TEngine.Filtered := False;
end;}.
И теперь стоит задача фильтровать числовые данные.. И в этом главная загвоздка.
Кто-нибудь может подсказать как разобраться с этим моментом?
Ссылки, варианты и т.п...
Заранее благодарю.

Последний раз редактировалось Arigato; 17.10.2018 в 11:41.
Wolfire вне форума Ответить с цитированием
Старый 08.10.2018, 10:23   #2
viks1
человек
Форумчанин
 
Аватар для viks1
 
Регистрация: 11.05.2009
Сообщений: 517
По умолчанию

По хорошему любую фильтрацию лучше делать запросом
Код:
SELECT * // либо перечислить поля какие нужны для вывода
FROM your_table
WHERE // твое условие фильтрации
viks1 вне форума Ответить с цитированием
Старый 14.10.2018, 22:37   #3
Wolfire
 
Регистрация: 23.09.2018
Сообщений: 6
По умолчанию Может поможет кому...

Код:
if (Edit1.Text <> '') and (Edit2.Text = '') and (Edit3.Text = '') then
  begin
  FDM.QEngine.Close;
  FDM.QEngine.SQL.Clear;
  FDM.QEngine.SQL.Add('Select * from Engine where [Марка] like "%'+Edit1.Text+'%"');  // В Edit1 текстовые данные
  FDM.QEngine.Open;
  end;

 if (Edit1.Text = '') and (Edit2.Text <> '') and (Edit3.Text = '') then
  begin
  FDM.QEngine.Close;
  FDM.QEngine.SQL.Clear;
  FDM.QEngine.SQL.Add('Select * from Engine where [Масса (кг)] <= '+Edit2.Text+';');       //В Edit2 числовые данные
  FDM.QEngine.Open;
  end;

Последний раз редактировалось Arigato; 17.10.2018 в 11:42.
Wolfire вне форума Ответить с цитированием
Старый 14.10.2018, 22:58   #4
xxbesoxx
Участник клуба
 
Регистрация: 10.08.2010
Сообщений: 1,389
По умолчанию

Цитата:
Сообщение от Wolfire Посмотреть сообщение
if (Edit1.Text <> '') and (Edit2.Text = '') and (Edit3.Text = '') then
Код:
 if Trim(Edit1.Text) <> '' and Trim(Edit2.Text)  = ''  and Trim(Edit3.Text) = '' then
.................
xxbesoxx вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Обработка данных. Shtyrman Фриланс 7 01.11.2015 12:06
Обработка данных Jopses JavaScript, Ajax 0 27.01.2013 04:50
Обработка данных chipesca Microsoft Office Excel 0 25.05.2012 01:14
Обработка данных grichanuk Microsoft Office Excel 2 20.06.2011 12:36
Обработка данных Myagkiy Microsoft Office Excel 2 01.04.2009 10:26