3 вопроса по бд(сумма по условию,диаграмма,замена записи)

[eval]

хотеть не вредно, только вот база откуда это должна понять? по астралу с вами связаться и прочесть мысли?

[Дюша]

все исправил,не хватало dm.ADOQuery1.ExecSQL))

[Дюша]

SELECT COUNT(*) col FROM uchitelya group by kot

в sql работает

Надо построить диаграмму(раньше их не строил),в dbchart datasourse и label я так понял можно поставить,а запрос для pie нужно написать кодом верно понял все?

[Дюша]

procedure TForm7.Chart1Click(Sender: TObject);
  var i:integer;
begin
 dm.ADOQuery1.Active:=false;
dm.ADOQuery1.SQL.Clear;
dm.ADOQuery1.sql.Add('SELECT kot, COUNT(*) col FROM uchitelya group by kot  ') ;

  dm.ADOQuery1.Active:=true;
    series1.Add(dm.ADOQuery1.fieldbyname('col').AsFloat,dm.ADOQuery1.fieldbyname('kot').asstring) ;
end;

на диаграме показывает только первое поле,хотя там их 2,может кто подсказать в чем проблема,точнее я так понимаю нужно поставить цикл,но не получается

[Дюша]

а все,получилось

procedure TForm7.Chart1Click(Sender: TObject);
begin
 dm.ADOQuery1.Active:=false;
dm.ADOQuery1.SQL.Clear;
dm.ADOQuery1.sql.Add('SELECT kot, COUNT(*) col FROM uchitelya group by kot  ') ;
dm.ADOQuery1.Active:=true;
while not (dm.ADOQuery1.eof) do
begin
    series1.Add(dm.ADOQuery1.fieldbyname('col').AsFloat,dm.ADOQuery1.fieldbyname('kot').asstring) ;
    dm.ADOQuery1.Next;
    end;
end;

вставил while not и приписал dm.ADOQuery1.Next все заработало,спасибо всем кто помог