ADO технология. Delphi. SQL

@lolita322 · Регистрация: 21.09.2015

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

Сама учусь еще только работать с БД и Delphi в целом. Поэтому хочу спросить. Имеется таблица "Clienti" в которой есть поле "Familiya". Нужно организовать поиск с конструкцией Like. Пользовалась уроком, который скинул препод. Но что-то не идет. Ругается и говорит: ошибка синтаксиса в предложении from.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
procedure TClienti.Edit2KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  pos:word;
begin
   if Key>47 then
    begin
     Edit2.ClearSelection;
     Pos:=Length(Edit2.Text);
     ADOQuery1.SQL.Add('SELECT * FROM Clienti WHERE Familiya LIKE:Fam');
     ADOQuery1.Parameters.ParamValues['Fam']:=Trim(Edit2.Text)+'%';
     ADOQuery1.Active:=True;
     with ADOQuery1 do
      begin
       if Active then
        Close;
       Open;
       if FieldByName('Familiya').IsNull=False then
        begin
        Edit2.Text:=fieldbyname('Familiya').AsString;
        Edit2.SelStart:=Pos;
        Edit2.SelLength:=length(Edit2.Text)-1;
        ADOQuery1.SQL.Clear;
        end
       else MessageBeep(0);
      end;
    end;

@lolita322 · 31.01.2016, 15:47 **[ТС]**

Сама учусь еще только работать с БД и Delphi в целом. Поэтому хочу спросить. Имеется таблица "Clienti" в которой есть поле "Familiya". Нужно организовать поиск с конструкцией Like. Пользовалась уроком, который скинул препод. Но что-то не идет. Ругается и говорит: ошибка синтаксиса в предложении from.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
procedure TClienti.Edit2KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  pos:word;
begin
   if Key>47 then
    begin
     Edit2.ClearSelection;
     Pos:=Length(Edit2.Text);
     ADOQuery1.SQL.Add('SELECT Familiya FROM Clienti WHERE Familiya LIKE:Fam');
     ADOQuery1.Parameters.ParamValues['Fam']:=Trim(Edit2.Text)+'%';
     ADOQuery1.Active:=True;
     with ADOQuery1 do
      begin
       if Active then
        Close;
       Open;
       if FieldByName('Familiya').IsNull=False then
        begin
        Edit2.Text:=fieldbyname('Familiya').AsString;
        Edit2.SelStart:=Pos;
        Edit2.SelLength:=length(Edit2.Text)-1;
        ADOQuery1.SQL.Clear;
        end
       else MessageBeep(0);
      end;
    end;

@schdub · 31.01.2016, 16:03

lolita322, забыли пробел между LIKE и :

@Hikari · 31.01.2016, 16:05

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

LIKE:Fam

Тут бы пробельчик поставить не помешает.

@lolita322 · 31.01.2016, 16:10 **[ТС]**

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

Тут бы пробельчик поставить не помешает.

Ставила, все также ошибка

@lolita322 · 31.01.2016, 16:40 **[ТС]**

schdub, Спасибо. Уже заметила. Если не сложно ответьте на еще один вопрос. В свойстве Parametres компонента ADOQuery создала параметр Fam, но при активации поиска программа ругается и говорит что параметр не найден.

@schdub · 31.01.2016, 16:40

lolita322, вместо

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

Delphi
1
ADOQuery1.Parameters.ParamValues['Fam']:=Trim(Edit2.Text)+'%';

попробуйте:

Delphi
1
ADOQuery1.Parameters.ParamByName('Fam').Value:=Trim(Edit2.Text)+'%';

PS: на будущее вы создали тему не в том разделе (нужно было в https://www.cyberforum.ru/delphi-database/).
PPS: пишу по памяти, т.к. давно не работаю с Delphi.

@lolita322 · 31.01.2016, 16:42 **[ТС]**

schdub, Спасибо! После создания темы только заметила, а как перетащить не знаю. Поэтому туда продублировала

@Hikari · 31.01.2016, 17:08

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

все также ошибка

А так?:

Delphi
1
2
3
4
     ADOQuery1.SQL.Add('SELECT Familiya FROM Clienti WHERE Familiya LIKE '
              +QuotedStr(Trim(Edit2.Text)+'%'));
     ADOQuery1.Active:=True;
...

@lolita322 · 31.01.2016, 17:20 **[ТС]**

Hikari, ошибка. Попробовала сейчас вновь поставить пробел все норм заработало

Только теперь говорит, что не найден параметр. Создавала его через свойство parametres компонента adoquery

@Hikari · 31.01.2016, 18:13

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

не найден параметр

Покажи свой последний вариант кода.

@lolita322 · 31.01.2016, 18:20 **[ТС]**

Hikari,

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
procedure TClienti.Edit2KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  pos:word;
begin
   if Key>47 then
    begin
     Edit2.ClearSelection;
     Pos:=Length(Edit2.Text);
     ADOQuery1.SQL.Add('SELECT Familiya FROM Clienti WHERE Familiya LIKE : Fam');
     ADOQuery1.Parameters.ParamValues['Fam']:=Trim(Edit2.Text)+'%';
     ADOQuery1.Active:=True;
     with ADOQuery1 do
      begin
       if Active then
        Close;
       Open;
       if FieldByName('Familiya').IsNull=False then
        begin
        Edit2.Text:=fieldbyname('Familiya').AsString;
        Edit2.SelStart:=Pos;
        Edit2.SelLength:=length(Edit2.Text)-1;
        ADOQuery1.SQL.Clear;
        end
       else MessageBeep(0);
      end;
    end;

@Hikari · 31.01.2016, 19:27

Жуткая какая-то смесь у тебя вышла...

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
procedure TClienti.Edit2KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
 
 procedure Ed(s:string);
 var
  pos:word;
 begin
   with Edit2 do begin
       ClearSelection;
        Pos:=Length(Text);
        Text:=s;
        SelStart:=Pos;
        SelLength:=length(Text)-1;
  end;
 end;
 
begin
   if Key>47 then
      with ADOQuery1 do begin
       Active:=False;
       SQL.Text:=('SELECT Familiya FROM Clienti WHERE Familiya LIKE : Fam');
       Parameters.ParamValues['Fam']:=Trim(Edit2.Text)+'%';
      Try
       Active:=True;
       if not FieldByName('Familiya').IsNull then Ed(fieldbyname('Familiya').AsString);
      Except
          on E:Exception do ShowMessage('Ошибка при открытии запроса: '+e.Message);
      end;
     end;
 
end;

Хотя бы так вот напиши что ли...

@lolita322 · 01.02.2016, 13:45 **[ТС]**

Hikari, я пробовала пересоздать параметр и естественно исправила его в коде.( вместо fam, просто F). До этого на Fam тож ругался

@qwertehok · 01.02.2016, 13:53

параметр пишется как :F
а дальше вы пишите ADOQueru1.Params[0].value:=

то что у вас после Active:=true - неправильно
подумайте что будет если таких записей несколько

@lolita322 · 01.02.2016, 14:20 **[ТС]**

qwertehok, можете объяснить по полочкам? Не совсем поняла что вы хотите сказать. Ибо с базами столкнулась всего пару месяцев назад

@qwertehok · 01.02.2016, 14:42

скопируйте сюда текст процедуры

@lolita322 · 01.02.2016, 14:46 **[ТС]**

qwertehok,

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
procedure TClienti.Edit2KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  pos:word;
begin
   if Key>47 then
    begin
     Edit2.ClearSelection;
     Pos:=Length(Edit2.Text);
     ADOQuery1.SQL.Add('SELECT Familiya FROM Clienti WHERE Familiya LIKE : F');
     ADOQuery1.Parameters.ParamValues['F']:=Trim(Edit2.Text)+'%';
     ADOQuery1.Active:=True;
     with ADOQuery1 do
      begin
       if Active then
        Close;
       Open;
       if FieldByName('Familiya').IsNull=False then
        begin
        Edit2.Text:=fieldbyname('Familiya').AsString;
        Edit2.SelStart:=Pos;
        Edit2.SelLength:=length(Edit2.Text)-1;
        ADOQuery1.SQL.Clear;
        end
       else MessageBeep(0);
      end;
    end;

@qwertehok · 01.02.2016, 14:51

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TClienti.Edit2KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  pos:word;
begin
   if Key>47 then
    begin
     Edit2.ClearSelection;
     Pos:=Length(Edit2.Text);
     ADOQuery1.SQL.Add('SELECT Familiya FROM Clienti WHERE Familiya LIKE :F');
     ADOQuery1.Params[0]:=Trim(Edit2.Text)+'%';
     ADOQuery1.Active:=True;
     if ADOQuery1.RecordCount=1 then
     begin
        Edit2.Text:=ADOQuery1.Fields[0].AsString;
        Edit2.SelStart:=Pos;
        Edit2.SelLength:=length(Edit2.Text)-1;
     end
     else showmessage('Найдено несколько фамилий '+inttostr(ADOQuery1.RecordCount));
end;

как-то так

@lolita322 · 01.02.2016, 15:10 **[ТС]**

qwertehok, спасибо за помощь, но увы

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью в КА2. Данные берутся из регистра сведений, по которому настроено. . .

@schdub 3073 / 1411 / 425 Регистрация: 19.01.2009 Сообщений: 3,894
	31.01.2016, 16:03
	lolita322, забыли пробел между LIKE и : 1

@lolita322 0 / 0 / 0 Регистрация: 21.09.2015 Сообщений: 42
	31.01.2016, 16:40 [ТС]
	schdub, Спасибо. Уже заметила. Если не сложно ответьте на еще один вопрос. В свойстве Parametres компонента ADOQuery создала параметр Fam, но при активации поиска программа ругается и говорит что параметр не найден. 0

@lolita322 0 / 0 / 0 Регистрация: 21.09.2015 Сообщений: 42
	31.01.2016, 16:42 [ТС]
	schdub, Спасибо! После создания темы только заметила, а как перетащить не знаю. Поэтому туда продублировала 0

@lolita322 0 / 0 / 0 Регистрация: 21.09.2015 Сообщений: 42
	31.01.2016, 17:20 [ТС]
	Hikari, ошибка. Попробовала сейчас вновь поставить пробел все норм заработало Только теперь говорит, что не найден параметр. Создавала его через свойство parametres компонента adoquery 0

@lolita322 0 / 0 / 0 Регистрация: 21.09.2015 Сообщений: 42
	01.02.2016, 13:45 [ТС]
	Hikari, я пробовала пересоздать параметр и естественно исправила его в коде.( вместо fam, просто F). До этого на Fam тож ругался Миниатюры 0

@qwertehok 5980 / 4555 / 1095 Регистрация: 29.08.2013 Сообщений: 28,183 Записей в блоге: 3
	01.02.2016, 13:53
	параметр пишется как :F а дальше вы пишите ADOQueru1.Params[0].value:= то что у вас после Active:=true - неправильно подумайте что будет если таких записей несколько 0

@lolita322 0 / 0 / 0 Регистрация: 21.09.2015 Сообщений: 42
	01.02.2016, 14:20 [ТС]
	qwertehok, можете объяснить по полочкам? Не совсем поняла что вы хотите сказать. Ибо с базами столкнулась всего пару месяцев назад 0

@qwertehok 5980 / 4555 / 1095 Регистрация: 29.08.2013 Сообщений: 28,183 Записей в блоге: 3
	01.02.2016, 14:42
	скопируйте сюда текст процедуры 0

@lolita322 0 / 0 / 0 Регистрация: 21.09.2015 Сообщений: 42
	01.02.2016, 15:10 [ТС]
	qwertehok, спасибо за помощь, но увы Миниатюры 0