Поиск по базе данных

[vmilyoshin]

База данных Access. В своей программе подключаюсь к ней через ADO.
В базе данных много людей с одинаковой фамилией. При поиске по фамилии курсор в DBGrid останавливается при первой найденой фамилии и дальше не ищет. Как заставить программу перейти к следующей фамилии.

Вот код:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if not Form1.DBGrid1.DataSource.DataSet.Locate('Фамилия', trim(Edit1.Text), [loPartialKey]) then
  Edit1.Text:= 'Запись не найдена';
end;

[Аватар]

В вашем случае это не поиск по базе, а поиск в DataSet. Locate всегда находит только первую встреченную запись. Найти следующую (следующие) можно в цикле с DataSet.Next и сравнением значения поля с заданным поисковым образом.

[vmilyoshin]

Сообщение от Аватар

В вашем случае это не поиск по базе, а поиск в DataSet. Locate всегда находит только первую встреченную запись. Найти следующую (следующие) можно в цикле с DataSet.Next и сравнением значения поля с заданным поисковым образом.

Если не трудно приведи пример для образца. Я так понял что Locate в моём случае не годится.

[Аватар]

var xRecNo: Integer;
    xFound: Boolean;
...
  DataSource.Enable:=False;
  xRecNo:=DataSet.RecNo;
  xFound:=False;
  DataSet.Next;
  while not DataSet.Eof do begin
    xFound:=AnsiSameText(DataSet.FieldByName('Фамилия').AsString,Trim(Edit1.Text));
    if xFound then Break;
    DataSet.Next;
  end;
  if not xFound then DataSet.RecNo:=xRecNo;
  DataSource.Enable:=True;

[vmilyoshin]

Сообщение от Аватар

var xRecNo: Integer;
    xFound: Boolean;
...
  DataSource.Enable:=False;
  xRecNo:=DataSet.RecNo;
  xFound:=False;
  DataSet.Next;
  while not DataSet.Eof do begin
    xFound:=AnsiSameText(DataSet.FieldByName('Фамилия').AsString,Trim(Edit1.Text));
    if xFound then Break;
    DataSet.Next;
  end;
  if not xFound then DataSet.RecNo:=xRecNo;
  DataSource.Enable:=True;

Спасибо огромное умный человек. Немного подогнал под себя и использовал в своей программе.

procedure TForm1.BitBtn1Click(Sender: TObject);
  var
  xRecNo: Integer;
  xFound: Boolean;
begin
  if DataModule1.ADOTable1.RecordCount <> 0 then
  begin
  DBGrid1.DataSource.Enabled:= false;
  xRecNo:= DBGrid1.DataSource.DataSet.RecNo;
  xFound:= false;
  DBGrid1.DataSource.DataSet.Next;
  while not DBGrid1.DataSource.DataSet.Eof do
  begin
  xFound:= AnsiSameText(DBGrid1.DataSource.DataSet.FieldByName('Фамилия').AsString,Trim(Edit1.Text));
  if xFound then
  Break;
  DBGrid1.DataSource.DataSet.Next;
  DBGrid1.SetFocus;
  end;
  if not xFound then
  DBGrid1.DataSource.DataSet.RecNo:= xRecNo;
  DBGrid1.DataSource.Enabled:= true;
  DBGrid1.SetFocus;
  if xFound = false then
  if trim(Edit1.Text) <> '' then
  MessageDlg('  Поиск завершён!'#13'Запись не найдена.', mtInformation, [mbOk], 0);
  end
  else
  DBGrid1.SetFocus;
end;

[Surgeon]

А почему навигационный доступ а не реляционный? ИМХО SQL-запрос на порядок гибче и мощнее будет.