Не работает сравнение "Фамилии" с "ФИО"

[Xakand_2009]

Здравствуйте.

Имеется база данных MS Access, в ней таблицы. В одной из таблиц имеются Фамилии сотрудников, которые выводятся в ListBox. При клике на фамилии в ListBox'е в DBGrid выводится вся необходимая информация о выбранном сотруднике. Почему если в ListBox'е находятся Фамилии с инициалами, то данная схема не работает (см. приложенный файл)?

Спасибо.

[Прик]

А почему непонятно?
Возьмем, к примеру, условие фильтра запроса:

SQL.Add('Where Анкета.Фамилия Like '+QuotedStr('%'+ListBox1.Items[ListBox1.ItemIndex]+'%'));

Что получим в результирующем тексте запроса?
Правильно:
...Where Анкета.Фамилия Like '%Иванов И. И.%'
А строка со значением "Иванов И. И." в поле Фамилия таблицы Анкета есть?
Вот результат запроса и получается пустым.

[Xakand_2009]

Сообщение от Прик

А почему непонятно?
Возьмем, к примеру, условие фильтра запроса:

SQL.Add('Where Анкета.Фамилия Like '+QuotedStr('%'+ListBox1.Items[ListBox1.ItemIndex]+'%'));

Что получим в результирующем тексте запроса?
Правильно:
...Where Анкета.Фамилия Like '%Иванов И. И.%'
А строка со значением "Иванов И. И." в поле Фамилия таблицы Анкета есть?
Вот результат запроса и получается пустым.

Как убрать символы после фамилии и сравнить фамилию с фамилией без имени-отчества?

[Прик]

Как убрать...
В листбоксе надо спасти идентификатор строк и здесь же сформировать строку из фамилии и инициалов:

{---------------Выбор закладки из ComboBox'а------------}
procedure TForm1.ComboBox1Select(Sender: TObject);
var
  S : string;
begin
  Label1.Caption:=ComboBox1.Text;
  ListBox1.Clear;
//-----------------------------
  with ADOQuery4 do begin
    Close;
    SQL.Text := 'Select * From Анкета Where Фамилия LIKE '+QuotedStr(ComboBox1.Text+'%')+
                ' ORDER BY Фамилия';
    Open;
    while not Eof do begin
      S := ADOQuery4.FieldByName('Фамилия').AsString+' '+
           Copy(ADOQuery4.FieldByName('Имя').AsString, 1, 1)+'.'+
           Copy(ADOQuery4.FieldByName('Отчество').AsString, 1, 1)+'.';
      ListBox1.Items.AddObject(S, TObject(ADOQuery4.FieldByName('КодАнкеты').AsInteger));
    ADOQuery4.Next;
  end;
end;

Дополнительный запрос уже не нужен.
При выборке из листбокса фамилии в условие подставляем не фамилию, а сохраненное ранее значение идентификатора строки из таблицы Анкета:

//-------------Выбор фамилии в ListBox'е----------------------
procedure TForm1.ListBox1Click(Sender: TObject);
begin
  Edit1.Text := ListBox1.Items[ListBox1.ItemIndex];
  try
    with ADOQuery3 do begin
      Active:=False;
      SQL.Clear;
      SQL.Add('SELECT Анкета.Фамилия, Анкета.Имя, Анкета.Отчество, Анкета.[Дата занесения],');
      SQL.Add('[Места работы].[Дата поступления], [Места работы].[Место работы],');
      SQL.Add('[Места работы].[Дата увольнения], [Места работы].[Причина увольнения]');
      SQL.Add('FROM Анкета INNER JOIN [Места работы]');
      SQL.Add('ON Анкета.КодАнкеты=[Места работы].КодАнкеты');
      SQL.Add('Where Анкета.КодАнкеты = '+IntToStr(Integer(ListBox1.Items.Objects[ListBox1.ItemIndex])));
      Open;
    end
  except
    On e : EDatabaseError do
      messageDlg(e.message, mtError, [mbOK],0);
   end
end;

И все.

[Xakand_2009]

Сообщение от Прик

...И все.

Прик, Спасибо за подробный ответ!