ADOQuery

[Roof]

Не могу понять как работает ADOQuery. Как сделать запрос в таблице Access и как вывести результаты?

Киньте пожалуйста несколько примеров.

[SERG1980]

Ну например

procedure TForm1.BitBtn1Click(Sender: TObject);

begin
  Zapros:='Select * from configuration where name like"'+'%'+fam+'%'+'"' 
 fam:=InputBox('Поиск кода конфигурации',
 'Введите название изделия целиком или его часть и нажмите OK.', '');
 if fam <> '' then // пользователь ввел фамилию
 begin
  with form1.ADOQuery1 do
  begin
   Close; // закрыть файл-результат выполнения предыдущего запроса
   SQL.Clear; // удалить текст предыдущего запроса
   SQL.Add(Zapros);
   Open; // активизируем выполнение запроса
  end;
 if form1.ADOQuery1.RecordCount <> 0 then
  begin
   form1.DataSource1.DataSet:=form1.ADOQuery1; // отобразить рез-т выполнения запроса
  end else
  begin
   ShowMessage('В БД нет записей, удовлетворяющих критерию запроса.');
   form1.DataSource1.DataSet:=form1.ADOTable1;
  end;
 end;
end;

ил так

procedure Vibor(MyQuery:TADOQuery);
begin
 MyQuery.Active:=false;
 MyQuery.SQL.Clear;
 MyQuery.SQL.Add('SELECT *');
 MyQuery.SQL.Add('FROM Вопросы');
 MyQuery.SQL.Add('WHERE');
 MyQuery.SQL.Add('Номер IN('+viborka+')');
 MyQuery.Active:=true;
 form1.DataSource1.DataSet:=MyQuery;

[Roof]

2-ой пример очень ксати, я вот только что разобрался с ADOQuery
Спасибо большое!