Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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


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

Здравствуйте.
Работаю с БД 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 в 12:41.
Wolfire вне форума   Ответить с цитированием
Старый 08.10.2018, 11:23   #2
viks1
человек
Участник клуба
 
Аватар для viks1
 
Регистрация: 11.05.2009
Адрес: Украина, Одесса)
Сообщений: 516
Репутация: 90
По умолчанию

По хорошему любую фильтрацию лучше делать запросом
Код:

SELECT * // либо перечислить поля какие нужны для вывода
FROM your_table
WHERE // твое условие фильтрации

viks1 вне форума   Ответить с цитированием
Старый 14.10.2018, 23:37   #3
Wolfire
 
Регистрация: 23.09.2018
Сообщений: 4
Репутация: 10
По умолчанию Может поможет кому...

Код:

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 в 12:42.
Wolfire вне форума   Ответить с цитированием
Старый 14.10.2018, 23:58   #4
xxbesoxx
Профессионал
 
Аватар для xxbesoxx
 
Регистрация: 10.08.2010
Адрес: Грузия Рустави
Сообщений: 1,274
Репутация: 628
Отправить сообщение для xxbesoxx с помощью Yahoo
По умолчанию

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

 if Trim(Edit1.Text) <> '' and Trim(Edit2.Text)  = ''  and Trim(Edit3.Text) = '' then
.................

__________________
E_MAIL: rijgvina7@yahoo.com
xxbesoxx вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Обработка данных. Shtyrman Фриланс 7 01.11.2015 13: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


21:32.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru