Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.11.2019, 16: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 Кб, 10 просмотров)
Wektor9911 вне форума Ответить с цитированием
Старый 30.11.2019, 00:33   #2
xxbesoxx
Участник клуба
 
Регистрация: 10.08.2010
Сообщений: 1,389
По умолчанию

Компоненты между собой надо связывать нормально.
Код:
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 Кб, 26 просмотров)
Тип файла: png SSS1.png (17.8 Кб, 27 просмотров)
Тип файла: png SSS3.png (13.1 Кб, 27 просмотров)
xxbesoxx вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поиск по базе данных 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 21:47
Поиск по базе данных ERASERROR БД в Delphi 4 14.03.2008 16:34