Делфи 2010. Желательно разжёванное обьяснение

@InvincibleValik · Регистрация: 12.03.2019

Author24 — интернет-сервис помощи студентам

Как через Edit1 создать фильтр в DBGrid, при нажатии на кнопку Button1, чтобы в DBGrid остались только отфильтрованные данные?

При использовании ADOTable. В ADOQuery не шарю! Просьба не писать примеры с ним (ADOQuery). Не пойму.

В целом существует 5 Edit компонентов, которые предназначены для 5 разных столбцов в DBGrid.

--------------------------------
Компоненты в программе:
Edit x5
Button x1
DBGrid x1
--------------------------------

Благодарю за внимание.

@Мишааня · 12.03.2019, 14:27

Если я не ошибаюсь, то живые запросы через Table делать нельзя.
Да и как по мне Query гораздо удобнее и быстрее, когда-нибудь придётся и его выучить, не откладывайте неизбежное, там ничего сложного нет

@D1973 · 12.03.2019, 17:18

Delphi

1
2
3

ADOTable.Filtered := false;
ADOTable.Filter := '<FieldName> = ' + Edit1.Text;
ADOTable.Filtered := true;

Где вместо <FieldName> Вы пишете реальное имя поля БД, на основании которого фильтруете данные

@InvincibleValik · 14.03.2019, 13:34 **[ТС]**

Возможно всё же я не так понял <FieldName>.

Delphi

procedure TForm3.Edit1Change(Sender: TObject);
begin
   if Length(Edit1.Text)>0 then
    begin
    ADOTable1.Filtered:=false;
    ADOTable1.Filter:= 'Firmas nosaukums ='+Edit1.Text;
    ADOTable1.Filtered:=true;
     end
     else ADOTable1.Filtered:=false;
end;

--------------------------------------------
То что я написал ⬆
----------------------------------------------------------------
Ошибку выдаёт при вводе любого символа в Edit1
----------------------------------------------------------------
Ниже я приложил скрин таблицы, и описание ошибки.

@InvincibleValik · 14.03.2019, 13:52 **[ТС]**

Не обратил внимание на <>. Поставил, но ошибка та же.

@D1973 · 14.03.2019, 14:08

Сообщение от InvincibleValik

Не обратил внимание на <>

И не надо было обращать... А вот давать полям БД названия из нескольких слов - это очень и очень неправильно. И если сам Акцесс это позволяет - это не значит, что нужно так делать. Вот, собственно, на что Вы и напоролись.
Ну и про тип данных в поле Вы тоже ни единым словом не обмолвились, а это очень важная информация, скрывать которую не надо, если хотите получить нормальный ответ.
Вот так попробуйте:

Delphi

1	ADOTable1.Filter:= '[Firmas nosaukums] = ' + QuotedStr(Edit1.Text);

@InvincibleValik · 14.03.2019, 15:44 **[ТС]**

Да, прошу прощения за неполноценную информацию.
--------------------------
Благодарю! Работает.
--------------------------
Как думаете, стоит добавлять ввод на кнопку, с точки зрения пользователя программы? Лично мне 50/50. Но быть может обычному пользователю базы данных привычнее, когда действие выполняется после нажатия на кнопку...
Хотя это скорее вопрос не по теме.

Добавлено через 28 минут

Сообщение от D1973

А вот давать полям БД названия из нескольких слов - это очень и очень неправильно. И если сам Акцесс это позволяет - это не значит, что нужно так делать.

Через_нижнее_подчёркивание_советуете?

@qwertehok · 14.03.2019, 22:01

Сообщение от D1973

А вот давать полям БД названия из нескольких слов - это очень и очень неправильно.

да ладно

главное самому понимать что там хранится и что бы не вспоминать через год что ты хранишь в колонке StZEd
а писать [StoimostZaEdinicy] или [СтоимостьЗаЕдиницу] или [Стоимость за единицу без ндс и до вычета налогов] это уже на совести разработчика

@D1973 · 15.03.2019, 07:02

Сообщение от InvincibleValik

Через_нижнее_подчёркивание_советуете?

Если_без_нескольких_слов_совсем_не_обойтись: то да. МожноЕщеПростоСлитноПисать...

@InvincibleValik · 15.03.2019, 10:46 **[ТС]**

Ахахах, окей, благодарю

Делфи 2010. Желательно разжёванное обьяснение

Решение

Решение

@InvincibleValik 0 / 0 / 0 Регистрация: 12.03.2019 Сообщений: 6
		1
	Делфи 2010. Желательно разжёванное обьяснение 12.03.2019, 13:29. Показов 1925. Ответов 9 Метки нет (Все метки) Как через Edit1 создать фильтр в DBGrid, при нажатии на кнопку Button1, чтобы в DBGrid остались только отфильтрованные данные? При использовании ADOTable. В ADOQuery не шарю! Просьба не писать примеры с ним (ADOQuery). Не пойму. В целом существует 5 Edit компонентов, которые предназначены для 5 разных столбцов в DBGrid. -------------------------------- Компоненты в программе: Edit x5 Button x1 DBGrid x1 -------------------------------- Благодарю за внимание. 0

@Мишааня 1 / 1 / 0 Регистрация: 24.04.2018 Сообщений: 9
	12.03.2019, 14:27	2
	Если я не ошибаюсь, то живые запросы через Table делать нельзя. Да и как по мне Query гораздо удобнее и быстрее, когда-нибудь придётся и его выучить, не откладывайте неизбежное, там ничего сложного нет 1

@InvincibleValik 0 / 0 / 0 Регистрация: 12.03.2019 Сообщений: 6
	14.03.2019, 13:52 [ТС]	5
	Не обратил внимание на <>. Поставил, но ошибка та же. 0

@InvincibleValik 0 / 0 / 0 Регистрация: 12.03.2019 Сообщений: 6
	14.03.2019, 15:44 [ТС]	7
	Да, прошу прощения за неполноценную информацию. -------------------------- Благодарю! Работает. -------------------------- Как думаете, стоит добавлять ввод на кнопку, с точки зрения пользователя программы? Лично мне 50/50. Но быть может обычному пользователю базы данных привычнее, когда действие выполняется после нажатия на кнопку... Хотя это скорее вопрос не по теме. Добавлено через 28 минут Сообщение от D1973 А вот давать полям БД названия из нескольких слов - это очень и очень неправильно. И если сам Акцесс это позволяет - это не значит, что нужно так делать. Через_нижнее_подчёркивание_советуете? 0

@qwertehok 5393 / 4321 / 1060 Регистрация: 29.08.2013 Сообщений: 27,128 Записей в блоге: 3
	14.03.2019, 22:01	8
	Сообщение от D1973 А вот давать полям БД названия из нескольких слов - это очень и очень неправильно. да ладно главное самому понимать что там хранится и что бы не вспоминать через год что ты хранишь в колонке StZEd а писать [StoimostZaEdinicy] или [СтоимостьЗаЕдиницу] или [Стоимость за единицу без ндс и до вычета налогов] это уже на совести разработчика 1

@D1973 Модератор 9238 / 6021 / 2374 Регистрация: 21.01.2014 Сообщений: 25,730 Записей в блоге: 3
	15.03.2019, 07:02	9
	Сообщение от InvincibleValik Через_нижнее_подчёркивание_советуете? Если_без_нескольких_слов_совсем_не_обойтись: то да. МожноЕщеПростоСлитноПисать... 1

@InvincibleValik 0 / 0 / 0 Регистрация: 12.03.2019 Сообщений: 6
	15.03.2019, 10:46 [ТС]	10
	Ахахах, окей, благодарю 0

Опции темы