powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / поиск
3 сообщений из 3, страница 1 из 1
поиск
    #32284448
ruslan_r
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Подскажите как сделать поиск по маске.
У меня в базе есть поле например (фамилия). Чтобы при запросе ввести (Кузнец*) что бы показало все записи на Кузнец* (Кузнецов,Кузнецова и.т.д.).
Заранее благодарю за помощь.


Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('SELECT * FROM Baza WHERE');
IF Edit1.Text<>'' THEN BEGIN Query10.SQL.Add('Familia="'+ Edit1.Text+'" AND'); END;
IF Edit2.Text<>'' THEN BEGIN Query10.SQL.Add('Ima="'+ Edit2.Text+'" AND'); END;
IF Edit3.Text<>'' THEN BEGIN Query10.SQL.Add('Othes="'+ Edit3.Text+'" AND'); END;

Query1.SQL.Add(' NN=0 ');
Query1.Open;
KK:=Query1.RecordCount;
IF Query1.RecordCount=0 THEN
BEGIN Application.MessageBox('Записи не уществует !', 'Внимание', MB_OK);
END
...
Рейтинг: 0 / 0
поиск
    #32284461
RDen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Можно через фильтер:

Basa.Filter := True;
Basa.Filter := 'Familia = ' + QuotedStr(Edit1.Text + '*');//частичное совпадение
...
Рейтинг: 0 / 0
поиск
    #32284564
Фотография Cauchy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
есть оператор like :

select * from employee
where lastname like "B%"
- выводит все записи, где lastname начинается с B.

Можно также делать : like "B%N" - начинается на B, заканчивается на N.

Ну а теье надо что-то типа :
Код: plaintext
1.
2.
3.
4.
5.
6.
Query1.Close; 
Query1.SQL.Clear; 
Query1.SQL.Add('SELECT * FROM Baza WHERE'); 
IF Edit1.Text<>'' THEN BEGIN Query10.SQL.Add('Familia like "'+ Edit1.Text+
'%" AND'); END; 
IF Edit2.Text<>'' THEN BEGIN Query10.SQL.Add('Ima="'+ Edit2.Text+'" AND'); END; 
IF Edit3.Text<>'' THEN BEGIN Query10.SQL.Add('Othes="'+ Edit3.Text+'" AND'); END; 
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / поиск
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]