Вывести значения из запроса в сообщение или в Label

[Scorpuha]

вот код предложенный одним их форумчан, отдельное спасибо.
здесь идет отбор данных по текущей дате и плюс послезавтра и плюс послепослезавтра. Этот код подсчитывает количество строк в которых есть совпадения, а нужно вывести именно значения этих этих строк. в отдельное окно или в Label. в запросе условие по полю Data_pereatestat. а требуется вывести значения из другого поля, к примеру Tabel. Т.е. сегодня есть экзамен у сотрудника, надо вывести его табельный номер.

var i: Integer;
 d1:TDate;
begin
  Datamodule2.ADOQuery1.Close;
  Datamodule2.ADOQuery1.SQL.Text:='SELECT COUNT(*) AS CountRec FROM attestat WHERE Data_pereatestat IN (:d1,:d2,:d3)';  // and Tabel=''''';
  Datamodule2.ADOQuery1.Parameters.ParamByName('d1').Value:=Date;
  Datamodule2.ADOQuery1.Parameters.ParamByName('d2').Value:=IncDay(Date,2);
  Datamodule2.ADOQuery1.Parameters.ParamByName('d3').Value:=IncDay(Date,4);

  Datamodule2.ADOQuery1.Open;
  i:=Datamodule2.ADOQuery1.FieldByName('CountRec').AsInteger;
  Datamodule2.ADOQuery1.Close;
  ShowMessage(Format('Записей %d',[i]));

 
    end;

пытался в цикле пройтись, нифиха не получается.

[Yurk@]

а требуется вывести значения из другого поля, к примеру Tabel. Т.е. сегодня есть экзамен у сотрудника, надо вывести его табельный номер.

ничего не понял
покажи простенький пример

[Scorpuha]

задача: найти записи в которых поле Data_pereatestat равна текущей дате, затем вывести сообщение со значениями табельных номеров (Tabel) у которых сегодня экзамен. эти поля находятся в одной таблице.

[Scorpuha]

var i: Integer;
 d1:TDate;
begin
  Datamodule2.ADOQuery1.Close;
  Datamodule2.ADOQuery1.SQL.Text:='SELECT COUNT(*) AS CountRec FROM attestat WHERE Data_pereatestat IN (:d1,:d2,:d3)';// and Tabel=''''';
  Datamodule2.ADOQuery1.Parameters.ParamByName('d1').Value:=Date;
  Datamodule2.ADOQuery1.Parameters.ParamByName('d2').Value:=IncDay(Date,2);
  Datamodule2.ADOQuery1.Parameters.ParamByName('d3').Value:=IncDay(Date,4);

  Datamodule2.ADOQuery1.Open;
  while not datamodule2.ADOQuery1.Eof do
  begin
  MainForm.Label1.Caption:=datamodule2.ADOQuery1.Fields[0].AsString;   //intToStr(Datamodule2.ADOQuery1.FieldValues['Tabel'].text);
  Mainform.Label1.Caption:=IntToStr(datamodule2.ADOQuery1.FieldByName('Tabel').CurValue);

  i:=Datamodule2.ADOQuery1.FieldByName('CountRec').AsInteger;
  Datamodule2.ADOQuery1.Close;
  ShowMessage(Format('Записей %d',[i]));

  end;
    end;

вот цикл, там два варианта моих проб. ничего не работает или выдает ошибки.

[evg_m]

  Datamodule2.ADOQuery1.SQL.Text:='SELECT COUNT(*) AS CountRec FROM attestat WHERE Data_pereatestat IN (:d1,:d2,:d3)';// and Tabel=''''';

затем вывести сообщение со значениями табельных номеров (Tabel) у которых сегодня экзамен.

в этом запросе НЕТ табельных номеров
число записей в таком наборе фиксировано и =1 цикл не нужен

  Datamodule2.ADOQuery1.Open;
  MainForm.Label1.Caption:=datamodule2.ADOQuery1.Fields[0].AsString;   //intToStr(Datamodule2.ADOQuery1.FieldValues['Tabel'].text);
  i:=Datamodule2.ADOQuery1.FieldByName('CountRec').AsInteger;
  Datamodule2.ADOQuery1.Close;
  ShowMessage(Format('Записей %d',[i]));

затем вывести сообщение со значениями табельных номеров (Tabel) у которых сегодня экзамен.

делаем еще один запрос

var
  f:TFiled;
  s: string;

 adoquery2.SQL.text:='select tabel from attestat where data_pereatestat ....';
 s:='пора аттестовать';
 adoquery2.open;
 f:=adoquery2.Fieldbyname('tabel');
  while not adoquery2.Eof do begin
    s:=s+#13#10+f.AsSstring;
    adoquery2.Next;
  end;
  showMessage(s);

P.S. для показа данных из набора данных (ADOQuery2) обычно используют компонент TDBGrid (вкладка DBContol) в сочетании с Datasource (вкладка DataAccess)
c установленными связями
DbGrid1.Datasource =DataSource1
DataSoure1.DataSet =AdoQuery2

[Scorpuha]

evg_m, спасибо код работает, только вот непонятно зачем второй кверик. я вот так сделал

var
  f:TField;
  s: string;
  begin
 Datamodule2.ADOQuery1.SQL.text:='select tabel from attestat where data_pereatestat IN (:d1,:d2,:d3)';
 Datamodule2.ADOQuery1.Parameters.ParamByName('d1').Value:=Date;
  Datamodule2.ADOQuery1.Parameters.ParamByName('d2').Value:=IncDay(Date,2);
  Datamodule2.ADOQuery1.Parameters.ParamByName('d3').Value:=IncDay(Date,4);
 s:='Скоро или уж сегодня аттестация у сотрудников с табельными номерами';
 Datamodule2.ADOQuery1.open;
 f:=Datamodule2.ADOQuery1.Fieldbyname('tabel');
  while not Datamodule2.ADOQuery1.Eof do begin
    s:=s+#13#10+f.AsString;
    Datamodule2.ADOQuery1.Next;
  end;
  showMessage(s);
   end;