Где ошибка в моем коде?

[artemavd]

Написал SQL-запрос. Программа компилируется и запускается, но когда я ввожу фамилию, то выдается эта ошибка:
<
Invalid use of keyword.
Token: Name
Last
Line Number: 3
>
Задача такая: при нажатии на кнопку запроса и вводе фамилии, на в таблице выделить всю строку (или только номер человека) которая бы содержала мобильный номер. Где ошибка в моем коде? Код:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
 f:string;
begin
 f:=inputbox('Введите фамилию','0','0');
if f<>'' then
  begin
  with form1.Query1 do begin
  close;
  sql.Clear;
  sql.Add('SELECT *');
  sql.Add('FROM MobNomera');
  sql.Add('WHERE Last Name');
  sql.Add('Last Name');
  sql.Add('ORDER BY Last Name');
  open;
  end;

end;
end;

Поля в таблице MobNomera.db называются First Name, Last Name, Number

[_Dmitry]

Поля в таблице MobNomera.db называются First Name, Last Name, Number

Может в именах полей нет пробела??

[dr.Chas]

First Name, Last Name
First_Name, Last_Name

попробуй поля переминовать

[artemavd]

А может надо в свойствах query в свойстве sql прописать что то? А что конкретно надо правильно написать? Напишите если не трудно

[Serge_Bliznykov]

1) приведите описание структуры таблицы MobNomera
2) Вам правильно рекомендовали - если действительно у Вас поля в названии которых есть пробел (некоторые СУБД это позволяют), тогда либо переименовывайте поля, либо смотрите, как записываются подобные имена полей в запросах используемой Вами СУБД
например, в ACCESS это выглядит так:
SELECT MobNomera.[просто проба поля]
FROM MobNomera;

3) и, САМОЕ ГЛАВНОЕ!
а что у Вас в условии отбора данных (where )???
цитирую Ваш запрос:

WHERE Last NameLast Name

Как миниму не хватает пробела, да и условие добавить неплохо было бы, типа так:

... WHERE [Last Name] = 'Иванов%'

[_SERGEYX_]

Нельзя называть поля Short, Long, Date, Last, First и т.п. Может в каких-то субд они и не вызовут ошибку,... но это нужно взять за правило...

[artemavd]

Сейчас исправил код на такой вариант:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
 f:string;
begin
 f:=inputbox('Введите фамилию','0','0');
if f<>'' then
  begin
  with form1.Query1 do begin
  close;
  sql.Clear;
  sql.Add('SELECT *');
  sql.Add('FROM MobNomera');
  sql.Add('WHERE Fam');
  sql.Add('Name');
  //sql.Add('ORDER BY Last Name');
  open;
  end;

end;
end;

Через Database Desktop тоже заменил названия полей. Вроде запускается все, но при запросе появляется ошибка:
<
Token not found.
Token:
Last
Line Number: 4
>
Что вообще значит эта ошибка? Ошибка в какой-то строке кода запроса? В какой и что?

[_SERGEYX_]

М-да. Не первый раз вижу как странно пишутся запросы...
Предстввьте запрос на русском языке...
ВЫБРАТЬ ВСЕ ИЗ ТАБЛИЦЫ MobNomera ГДЕ FAM='ЧЕМУ-ТО' СОРТИРОВАТЬ ПО ПОЛЮ NAME.
Итак:

sql.Add('SELECT *');
sql.Add('FROM MobNomera');
sql.Add('WHERE LIKE Fam %'+f);//Для совпадений с начала слова
//sql.Add('WHERE LIKE Fam %'+f+'%'); для любого вхождения подстроки
// sql.Add('WHERE Fam ='+f); для всего слова
sql.Add('Order by Name');

[artemavd]

Ничего не получается((. Может у кого-то есть исходник как это сделать? Выложите пожалуйста. Надо всего навсего создать БД. На примере двух заполненных строчек. Столбцы называются Фамилия, Имя, Номер. Например так:
Петров Иван 89000000000.
Сидоров Олег 89500000000. И запрос должен выводится так: указывается фамилия и имя. И если такая запись есть в БД, тов таблице должна быть выделена ячейка с номером искомого человека. Или если можете, то выложите полностью код сюда вместе с запросом). Заранее спасибо. Не ругайтесь, если туплю.

[_SERGEYX_]

 with form1.Query1 do begin
  close;
  sql.Clear;
sql.Add('SELECT NOMER FROM MobNomera WHERE (Fam ="Иванов") and (Name ="Иван")');
  open;
  end;
if form1.Query1.recordCount > 0  then
showmessage(form1.Query1.fields[0].asString);

Но вообще так поиск в тел. книге не делается, лучше искать по подстроке, т.к. использовать оператор LIKE