Access БД. Поиск по таблице через Edit

@y2ng · Регистрация: 01.02.2015

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

Ребята, подскажите, какой нужно вписать код в Edit, чтобы осуществить поиск по полю по первым символам. Потому что у меня поле "ФИО" и получилось сделать поиск только по полному вводу, вот код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm2.FindEditChange(Sender: TObject);
begin
if length(FindEdit.Text)>0 then
DataModule3.pac.Filtered:=true
else
DataModule3.pac.Filtered:=false;
DataModule3.pac.Filter:='ÔÈÎ='''+FindEdit.Text+'''';
DataModule3.pac.Filtered:=true;
if length(FindEdit.Text)=0 then
DataModule3.pac.Filtered:=False;
end;

Помогите осуществить поиск по первым символам...
Скрин прилагается.

@Xenhoby · 01.02.2015, 20:21

SQL
1
2
3
SELECT column_name(s)
FROM TABLE_NAME
WHERE column_name LIKE pattern

Делаешь похожий запрос, а в эдите на событие OnChange ставишь этот код для выполнения. Юзай ADOQuery. Ну ты знаешь, чего я рассказываю.

По идее, должен получиться мгновенный поиск по твоим данным с первых введённых символов.

@y2ng · 01.02.2015, 21:01 **[ТС]**

Не получилось... Чайник я еще тот.
Видел еще тут на форуме эту тему, решил попробовать так сделать, но все равно поиск не осуществляется, что-то я нахимичил.
Вообщем, в эдите написал такой код

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm2.FindEditChange(Sender: TObject);
Var help1,help2:string;
begin
if FindEdit.Text = '' then Exit;
  help1:='%'+Unit2.Form2.FindEdit.Text+'%';
  help2:=QuotedStr(help1);
  with DataModule3.ClientFind do //ClientFind - это AdoQuery
  begin
    Close;
//    SQL.Clear;
    SQL.Text := 'select * from Пациенты where ФИО like ' + help2;
    Open;
  end;
end;

создал к этому поиску в датамодуле AdoQuery и Датасоурс к нему. назвал
а адокуэри написал такой sql запрос

SQL
1
2
3
SELECT *
FROM Пациенты
WHERE ФИО LIKE '%%'

итог : захожу, вписываю данные в эдит - ничего не происходит.

Если можешь, то опиши cвой метод по подробнее. Возможно он куда проще и легче

Спасибо.

@virtual[ity] · 01.02.2015, 21:47

Delphi
1
2
3
SELECT *
FROM Пациенты
WHERE ФИО LIKE ''%'+Edit1.Text'%''

@y2ng · 01.02.2015, 22:05 **[ТС]**

и так пробовал - ничего. Программа работает, ошибок нету, но и поиск не работает.

@virtual[ity] · 01.02.2015, 22:32

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

procedure TForm2.FindEditChange(Sender: TObject);
Var help1,help2:string;
begin
if FindEdit.Text = '' then Exit;
* help1:='%'+Unit2.Form2.FindEdit.Text+'%' ;
* help2:=QuotedStr(help1);
* with DataModule3.ClientFind do //ClientFind - это AdoQuery
* begin
* * Close;
// * *SQL.Clear;
* * SQL.Text := 'select * from Пациенты where ФИО like ' + help2;
* * Open;
* end;
end;

Вот это всё такая суета, которая приводит к отсутствию результата и не пониманию ошибки.

Delphi
1
2
3
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text:= 'SELECT * FROM TBL1 WHERE FIO LIKE ''%'+Edit1.Text+'%'' ' ;
  ADOQuery1.Open;

100% рабочий вариант, у самого такой сейчас используется!

@y2ng · 02.02.2015, 00:49 **[ТС]**

Когда прописываю скл запрос в адоквери, а именно :
SELECT *
FROM Пациенты
WHERE ФИО LIKE ''%'+FindEdit.Text'%''

то пишет при активации - "ошибка синтаксиса в выражении запроса ФИО LIKE ''%'+FindEdit.Text'%''
Помоги, пожалуйста.

Добавлено через 2 часа 0 минут
Проблема решена, спасибо!
Вопрос закрыт!

@klausteam · 15.04.2016, 21:21

тут можно писать?

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

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure TMain.Edit1Change(Sender: TObject);
begin
 
 with ibQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT DISTINCT KADNOM FROM KADASTR WHERE KADNOM LIKE '+Edit1.Text+'%'' ');
    Open;
    First;
    ListBox1.Items.BeginUpdate;
    try
      ListBox1.Clear;
      while not Eof do
      begin
        ListBox1.Items.Add(FieldByName('KADNOM').AsString);
        Next;
      end;
    finally
      ListBox1.Items.EndUpdate;
    end;
  end;
end;

Есть вот такой код на поиск по базе данных по значениям введенным в эдит1. Проблема заключается в том что на событии onClick у меня эдиту присваивается пустое значение чтобы пользователь мог ввести критерии поиска. Как сделать так чтобы SQL не ругался на то что происходит поиск по пустому параметру? Может его на другой эвент повесить?

@northener · 16.04.2016, 01:28

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

Как сделать так чтобы SQL не ругался на то что происходит поиск по пустому параметру? Может его на другой эвент повесить?

Сразу после первого begin

Delphi
1
if TEdit(Sender).Text = '' then Exit;

@klausteam · 16.04.2016, 01:50

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

Сразу после первого begin

Но ведь тогда он просто не выполнит все что написано после exitа, а так как я сам ему присваиваю ' ' то получается он его не выполнит ни при каких обстоятельствах(((( А мне надо чтобы он взял паузу и не выполнял запрос прежде чем пользователь введет данные.

@northener · 16.04.2016, 01:55

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

Но ведь тогда он просто не выполнит все что написано после exitа, а так как я сам ему присваиваю ' ' то получается он его не выполнит ни при каких обстоятельствах(((( А мне надо чтобы он взял паузу и не выполнял запрос прежде чем пользователь введет данные.

Тогда не поленись, сформулируй свой вопрос (и задачу тоже) и задай его в своём топике.

@klausteam · 16.04.2016, 02:48

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

Тогда не поленись, сформулируй свой вопрос (и задачу тоже) и задай его в своём топике.

Яне ленюсь, я просто не хочу плодить похожих тем. Нашел подходящую по названию и решил в нее продолжить.
Что касается формулировки вопроса, то тут да, у меня есть над чем работать.

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

Но ведь тогда он просто не выполнит все что написано после exitа, а так как я сам ему присваиваю ' ' то получается он его не выполнит ни при каких обстоятельствах(((( А мне надо чтобы он взял паузу и не выполнял запрос прежде чем пользователь введет данные.

Вот тут я был не прав, того чего я хотел твой совет помог добиться, ошибка не выскакивает сразу, она теперь выскакивает при внесении данных. причем ошибка меняется. если оставить всё так как написано в примере то система выдает такую ошибку: SQL Parse error EOF in string detected.
При таком варианте запроса

Delphi
1
SQL.Add('SELECT DISTINCT KADNOM FROM KADASTR WHERE KADNOM LIKE '+Edit1.Text+'%');

Программа пишет Dynamic SQL Error SQL Error Code = -104 Token Unknown - line 1, column 56 %. В принципе я понимаю, что в таком варианте программа не понимает что я хочу сказать знаком процент в конце запроса, но если его убрать то вообще поиск по условию не выполняется. Так же я догадываюсь что я с каким то параметром ошибся, скорее всего я чего то недописал..........

Добавлено через 32 минуты
Всё, разобрался. надо было оказывается вот так писать

Delphi
1
2
SQL.Add('SELECT DISTINCT KADNOM FROM KADASTR WHERE KADNOM LIKE :M');
    params.ParamValues['M']:=Edit1.Text+'%';

Новые блоги и статьи Все статьи Все блоги /
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .

@y2ng 0 / 0 / 0 Регистрация: 01.02.2015 Сообщений: 18
	01.02.2015, 22:05 [ТС]
	и так пробовал - ничего. Программа работает, ошибок нету, но и поиск не работает. 0

@y2ng 0 / 0 / 0 Регистрация: 01.02.2015 Сообщений: 18
	02.02.2015, 00:49 [ТС]
	Когда прописываю скл запрос в адоквери, а именно : SELECT * FROM Пациенты WHERE ФИО LIKE ''%'+FindEdit.Text'%'' то пишет при активации - "ошибка синтаксиса в выражении запроса ФИО LIKE ''%'+FindEdit.Text'%'' Помоги, пожалуйста. Добавлено через 2 часа 0 минут Проблема решена, спасибо! Вопрос закрыт! 0

Access БД. Поиск по таблице через Edit

Решение