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

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

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

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

Delphi

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

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

     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

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

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

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

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, спасибо за помощь, но увы

@Hikari Хитрая блондиночка $) 1472 / 988 / 399 Регистрация: 21.12.2015 Сообщений: 3,785
	31.01.2016, 18:13	11
	Сообщение от lolita322 не найден параметр Покажи свой последний вариант кода. 0

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

@Hikari Хитрая блондиночка $) 1472 / 988 / 399 Регистрация: 21.12.2015 Сообщений: 3,785
	31.01.2016, 16:05	4
	Сообщение от lolita322 LIKE:Fam Тут бы пробельчик поставить не помешает. 1

@lolita322 0 / 0 / 0 Регистрация: 21.09.2015 Сообщений: 42
	31.01.2016, 16:10 [ТС]	5
	Сообщение от Hikari Тут бы пробельчик поставить не помешает. Ставила, все также ошибка 0

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

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

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

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

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

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

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,135 Записей в блоге: 3
	01.02.2016, 14:42	17
	скопируйте сюда текст процедуры 0

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