[artemavd]

Запрос SQL:

Код:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
 f:string;
begin
 f:=inputbox('Поиск по БД','Введите фамилию человека','');
if f <> '' then
  begin
  with Form1.Query1 do begin
  Close;
    SQL.Clear;
    SQL.Add('SELECT Number');
    SQL.Add('FROM MobNomera');
    SQL.Add('WHERE Fam like "%'+'f'+'%" and Name like "%'+'f'+'%"');
  Open;
    if Form1.Query1.RecordCount>0 then
    ShowMessage(Form1.Query1.Fields[0].AsString);
    end;
  end;
end;

Если я ввожу в строке поиска фамилию, то ничего не происходит и не выводится.
А если я пробую так:

Код:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
 f:string;
begin
 f:=inputbox('Поиск по БД','Введите фамилию человека','');
if f <> '' then
  begin
  with Form1.Query1 do begin
  Close;
    SQL.Clear;
    SQL.Add('SELECT Number');
    SQL.Add('FROM MobNomera');
    //SQL.Add('WHERE Fam like "%'+'f'+'%" and Name like "%'+'f'+'%"');
  Open;
    if Form1.Query1.RecordCount>0 then
    ShowMessage(Form1.Query1.Fields[0].AsString);
    end;
  end;
end;

то выводится сообщение с номером именно первого человека. То есть что бы я не вводил, то все время будет выводится один и тот же номер человека, первым стоящим по списку. Делает почти то, что надо, но немного не то. Что надо исправить? В свойствах компонента TQuery (свойство SQL) у меня написано так:

Код:

SELECT * FROM MobNomera.db

Может надо в этом свойстве исправить? Подскажите пожалуйста. Поиск по форуму конкретно не отвечает на мой вопрос.

[Aristarh Dark]

Советую почитать что-нибудь по SQL.
Зачем искать вхождение фамилии в полях fam и name, я полагаю искать нужно только в fam. Поэтому код должен выглядеть примерно так:

Код:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
 f:string;
begin
 f:=inputbox('Поиск по БД','Введите фамилию человека','');
if f <> '' then
  begin
  with Form1.Query1 do begin
  Close;
    SQL.Clear;
    SQL.Add('SELECT Number');
    SQL.Add('FROM MobNomera');
    SQL.Add(Format('WHERE fam LIKE %s',[QuotedStr('%'+f+'%')]));
  Open;
    if Form1.Query1.RecordCount>0 then
    ShowMessage(Form1.Query1.Fields[0].AsString);
    end;
  end;
end;

[mik]

and заменить на or
И переменную f не надо заключать в кавычки.

было

Код:

SQL.Add('WHERE Fam like "%'+'f'+'%" and Name like "%'+'f'+'%"');

надо

Код:

SQL.Add('WHERE Fam like "%'+f+'%" or Name like "%'+f+'%"');

[artemavd]

Все равно почему то ничего не выводит((. Даже ваш код. В сообщении должен выводится номер телефона (Number) найденный по введенной фамилии.
А если изменить как то эту строчку?
SELECT * FROM MobNomera.db

[mik]

Попробуйте в таблице создать запись с простой фамилией, например: "1", затем попробуйте поиск по этой фамилии.

Строчка, которую вы, настойчиво хотите изменить в свойстве SQL, удаляется при вызове команды SQL.Clear. Поэтому можете писать там что угодно, на работу программы она никак не влияет.

[s0Creator]

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

Все равно почему то ничего не выводит((. Даже ваш код.
SELECT * FROM MobNomera.db

проверь какие столбцы в таблице
Есть там Fam и Name?

[mik]

Поля такие есть, иначе программа ругнулась бы во время выполнения.
Скорее всего сравнение идет с учетом регистра. В базе - "Иванов", а в переменной присваивается - "иванов".

[Qwed86]

Тут без исходника не угадаешь. Малоли что там в свойствах наворочено.

[lmikle]

Если дело в регистре, то надо так:

Код:

SQL.Add('WHERE UPPER(Fam) like "%'+AnsiUpperCase(f)+'%" or UPPER(Name) like "%'+AnsiUpperCase(f)+'%"');

[mik]

Регистр, это только пример. Может быть и раскладка клавиатуры.
Пример с простой фамилией избавляет от первого и второго случаев, и при правильном использовании наших подсказок, artemavd сможет наконец-то посмотреть на результат своего творчества.

[lmikle]

Ну, да, согласен.
про регистр вообще просто лучше не забывать изначально. Поэтому лучше сразу на это заложиться.

[mik]

Да, согласен. Про регистр. Про обработку исключений. Про защиту от "кривых" рук, или от "дураков", или как там это еще называется. Ну и т. п. Много есть всего, про что надо помнить.