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

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

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


Ответ
 
Опции темы
Старый 29.11.2019, 17:16   #1
Wektor9911
Пользователь
 
Регистрация: 09.12.2017
Сообщений: 18
По умолчанию Поиск по базе данных

Помогите, пожалуйста, организовать поиск по базе данных. Ошибки не нахожу, поиск должен осуществляться при помощи Edit.
Код:
procedure TForm2.Edit1Change(Sender: TObject);
var help1:string;
begin
help1:='%'+form2.Edit1.Text +'%';
help1:=Quotedstr(help1);
with form2.adoquery1 do
begin
close;
sql.clear ;
sql.add('select*from Sotr where Фамилия like'+help1+' order by Фамилия ');
open;
end;
 
end;
Вложения
Тип файла: 7z УП2.7z (310.9 Кб, 9 просмотров)
Wektor9911 вне форума Ответить с цитированием
Старый 30.11.2019, 01:33   #2
xxbesoxx
Участник клуба
 
Аватар для xxbesoxx
 
Регистрация: 10.08.2010
Сообщений: 1,366
По умолчанию

Компоненты между собой надо связывать нормально.
Код:
procedure TForm2.Edit1Change(Sender: TObject);
  var
     help1:string;
begin
    help1:= Trim(Edit1.Text) ;
    with adoquery1 do
    begin
      close;
      sql.clear ;
      sql.add('select * from Sotr ');
      sql.add('where Фамилия like '''+help1+ '%' +'''');
      sql.add('order by Фамилия asc ');
      open;
    end;
end;

end.
Изображения
Тип файла: png SSSS.png (13.1 Кб, 18 просмотров)
Тип файла: png SSS1.png (17.8 Кб, 19 просмотров)
Тип файла: png SSS3.png (13.1 Кб, 19 просмотров)
xxbesoxx вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поиск по базе данных q123ser87 Помощь студентам 1 03.05.2012 13:59
Поиск в базе данных fonarik4448 Microsoft Office Access 6 01.01.2012 10:11
Поиск по базе данных WestDragon БД в Delphi 8 20.08.2011 19:55
Поиск в базе данных Egik_net БД в Delphi 3 17.02.2010 22:47
Поиск по базе данных ERASERROR БД в Delphi 4 14.03.2008 17:34