DELPHI Урок 4 Поиск по БД, быстрый поиск по БД

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

[PitSobaka]

Да вы, батенька, профи! Эта "хрень" называется одинарная кавычка!) Но вообще то уроки неплохие!

[АлинаМашкова-пу]

Получилось, спасибо, долго не получалось, переписывала около 30 раз. И в бд все соединила и пробелы удалила, не выходила, хорошо, что в коменты залезла. Что бы не был пропущен оператор в самой базе нужно все написать на английском и без пробелов.

[ДанилТокалов-чф]

Спасибо вам огромное ! Тем кто не понимает смотрите с первого видео!!!

[YuriiMokryi]

Спасибо за видео! Материал мне очень пригодился!

[unreal]

Проблема в типе. Попробуйте сделать это но уже только текстовыми полями. Например Имя, Фамилия, Отчество, Чтобы было только тексты.. Или же когда создаете базу то опишите цифру как текстовый (Alpha). У меня получился.. Спасибо большое Автору за видео урок

[amerym]

А как можно прописать, если используется ADOTable? Что нужно писать после begin? Помогите пожалуйста :(

[heroG]

все в точности как у тебя но у меня ошибка "пропущен оператор" хотя я ничего не пропускал(((

[MasterOfGophers]

Наверно врядли кто-то ответит, но почему то данная поисковая строка работает у меня на 2х из 3х форм, на 3й форме при попытке ввода текста в Edit вылетает неопознанная ошибка с указанием на Recordset.Open(Source, ActiveConnection, . Код проверил 100 раз, точно такой же, заново делал форму несколько раз. Ничего не помогает =(

[ShOkErKa]

Здравствуйте подскажите в чём ошибка? Компилирование проходит, но как только начинаю забивать в поиске что-то, то вылазит такая ошибка
First chance exception at $76233EF2. Exception class EOleException with message 'Неопознанная ошибка'. Process Project1.exe (8036)

[КонстантинНиколаев-лц]

а как работает конструкция help1:=''%'+Edit1.Text+'%'; что даёт знак процента в апострофах до и после Edit?

[kuin]

procedure TForm1.Edit1Change(Sender: TObject);
var help1, help2 :string;
begin
help1 := '%'+form1.Edit1.Text+'%';
help2 := QuotedStr(help1);
With form1.ADOQuery1 do
begin
close;
SQL.Clear;
SQL.Add('select * from avisma where nam like'+help2+' or group like'+help2+' or otv like'+help2+' or xpe like'+help2+' order by nam');
open;
end;
end;


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

[rat]

А как сделать это на двух связанных таблицах? Он находит все именая во всех категориях хотя должен только в выбранной категории имена находить?

[treanya]

Помогите пожалуйста, работаю с interbase вроде бы все сделала, но не ищет вообще, нуль реакции
procedure TForm4.Edit1Change(Sender: TObject);
var h1, h2:string;
begin
h1:='%'+Form4.Edit1.Text+'%';
h2:=QuotedStr(h1);
with Form4.IBQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from OTVET_ZA_REMONT_KOMP_TEX where FIO like' + h2 + ' or DR like ' + h2 + ' or TABEL_NOMER_OTVET_S like ' + h2 + ' or DOLGNOST_DOLGNOST like ' + h2 + ' or KATEGORIYA like ' + h2 + ' order by FIO ');
Open;
end;

[Заробіток-йъ]

а как сделать поиск если в таблице 40 полей? все перечесоять?

[ПавелЛ-пй]

Добрый день. Подскажите как сделать поиск по дате, где есть точки. Т. Е например 17.05.2020

[Oleksii_Makhno]

можно TForm1.Edit1.Text.. и все прочее без TForm1 ведь все в одном юните. Типа так: search := QuotedStr('%' + Edit1.Text + '%'); А search лучше передать, как параметр в := search, сделав SQL запрос параметризированным, типа ADOQuery1.SQLAdd('SELECT * FROM DB WHERE fam LIKE :parameter')

[МатвейИнчин-ыр]

У меня, автор, данные не отображаются.

[Sibarit_Minsk]

Виктор, добрый день! После того, как трижды перепроверил код и расставил все "лайки" и согласовал имена колонок - все заработало. Спасибо! Но у меня такой вопрос возник: как только начинаю пользоваться поисковиком тут же пропадает полоса прокрутки справа по всей таблице... Даже после того, как удаляю все из строки поиска, она все равно не работает. После перезапуска всей программы снова появляется ДО ТЕХ ПОР, пока не начинаю пользоваться поиском. Т.к. база данных состоит из 8к. записей, то это ОЧЕНЬ не удобно... В чем может быть проблема? Что посоветуете? Спасибо.

[СтаніславОлександрович-гб]

Люди просто пишем без пробелов. На англ языке работает.
Также ошибка может быть с числами, тогда указываем в акселе тип не числовой, а текстовый.

[hitsislove]

procedure TForm2.Edit1Change(Sender: TObject);
var
j, k:string;
begin
j:='%'+Form2.Edit1.Text+'%';
k:=QuotedStr (j);
with Form2.ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from Hitsi where Fullname like'+k+' or DateofBirth like'+k+' or Education like'+k+' or Position like'+k+' or Workexperience like'+k+' ORDER BY Fullname');
Open;
end;
end;
Ошибка - ADOQuery1: cannot perform this operation on a closed dataset
Помоги решить пожалуйста