[artemavd]

Этот запрос не работает:

Код:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
 f:string;
begin
 f:=inputbox('Поиск по БД','Введите фамилию человека','');
if f <> '' then
  begin
  with Form1.Query1 do begin
  close;
    SQL.Add('SELECT *');
    SQL.Add('FROM MobNomera');
    SQL.Add('WHERE LIKE Fam %'+f+'%');
    SQL.Add('ORDER BY Name');
  open;
  end;
end;
end;

Нужно чтобы пользователь вводил фамилию и имя, и после нажатия на кнопку в таблице выделялась либо вся строка с фамилией именем и номером, либо только ячейка с номером искомого человека. Но код приведенный выше выдает ошибку:
<
Invalid use of keyword.
Token: WHERE
Line Number: 3
>
Что делать?

[mik]

Код:

'WHERE Fam LIKE %'+f+'%'

[Qwed86]

Вобщем надо так

Код:

sql.Add('where fam like '''+'%'+f+'%''');

Или так

Код:

sql.Add('where fam like '+quotedstr('%'+f+'%'));

[artemavd]

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

Вобщем надо так

Код:

sql.Add('where fam like '''+'%'+f+'%''');

Я попробовал так сделать. Запускается и компилируется, но когда я ему ввожу в строку поиска фамилию и имя или только фамилию или только имя, то он не выводит в ответ сообщение с результатом запроса (т.е. с номером).
Пробовал так:

Код:

sql.Add('where fam like '+quotedstr('%'+f+'%'));

Но программа не компилируется и не запускается из-за этой функции quotedstr. Может можете что то предложить по первому варианту?

[Qwed86]

Понятия не имею как из-за неё не запускается
Ну тогда используй 1 вариант. У меня оба работают.
Что по нему предлагать по 1 варианту?
У тебя было:

Код:

'WHERE LIKE Fam %'+f+'%'

а надо

Код:

'where fam like '''+'%'+f+'%'''

Синтаксис LIKE

WHERE <имя_столбца> LIKE <образец>

[mik]

Да, забыл про кавычки:

Код:

'WHERE Fam LIKE ''%'+f+'%'''

или:

Код:

'WHERE Fam LIKE "%'+f+'%"'

Какой результат выдает запрос?

[artemavd]

Попрежнему не появляется сообщение с результатом(. Может вы приведете полный код? Может я что неправильно вписываю. Напиши пожалуйста полностью вместе с кодом. И напишите плиз как сделать чтобы результат выводился пользователю). Ответ в любом варианте: Label, Edit, или просто сообщение.

[mik]

Код:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
 f:string;
begin
 f:=inputbox('Поиск по БД','Введите фамилию человека','');
if f <> '' then
  begin
  with Form1.Query1 do begin
  close;
    SQL.Add('SELECT *');
    SQL.Add('FROM MobNomera');
    SQL.Add('WHERE Fam LIKE  ''%'+f+'%''');
    SQL.Add('ORDER BY Name');
  open;
  ShowMessage(IntToStr(RecordCount));
  end;
end;
end;

Попробуй
Должен вывести количество записей в результатирующем наборе данных

[mik]

Код:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  f: string;
begin
  f := InputBox('Поиск по БД','Введите фамилию человека','');
  if f <> '' then
  begin
    with Form1.Query1 do 
    begin
      close;
      SQL.Add('SELECT *');
      SQL.Add('FROM MobNomera');
      SQL.Add('WHERE Fam LIKE  ''%'+f+'%''');
      SQL.Add('ORDER BY Name');
      open;
      //Здесь выводим содержание поля Fam в первой записи запроса
      ShowMessage(FieldByName('Fam').AsString);
    end;
  end;
end;