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

[Дюша]

Здравствуйте,хотелось бы попросить помочь Вас с 3 моими проблемами в программе,хотя бы помочь идеей,ну а если можете и кодом помочь,то буду благодарен

1.есть таблица данных с полями (id учителя,.....,количество часов на курсах) как можно просуммировать количество часов на курсах по id учителя? т.е у нас допустим 2 учителя (id=1,id=2),первый учитель был на 2 курсах(1 курсы=24ч,2 курсы=48ч),а второй учитель на одних(1курсы=36 часов)и нужно вывести ,что у первого 72,а у второго 36



2.есть таблица1 с полями(id учителя,фио,...,квалификация) можно как то сделать,что если он получил новую квалификацию,то она заменялась в этой таблице1 новым значением,т.е была у него сначала первая,он прошел курсы по повышению и получил высшую и после этого эта категория отправится таблицу1 в поле "квалификация"

3.нужно сделать диаграмму сколько учитель и какой категории,я так понял мне нужно создать счетчик и считывать сколько первых категорий и т.д)

если,что то плохо объяснил могу еще раз
все базы в sql,соединял через адо

[Дюша]

вроде все работает

procedure TForm11.Button5Click(Sender: TObject);
var
begin
dm.ADOQuery1.Active:=false;
dm.ADOQuery1.SQL.Clear;
dm.ADOQuery1.sql.Add('SELECT sum(chasov) sumfield FROM kursi where id='+dbedit5.Text) ;
 dm.ADOQuery1.Active:=true;
 Edit1.Text := dm.ADOQuery1.FieldByName('sumfield').asstring;
end;

[eval]

1.
group by + sum

2.
update set ... where ...

3.
group by + count

[Дюша]

спасибо,буду пробывать

[Serge_Bliznykov]

Сообщение от Дюша

вот что сделал по 1 вопросу,но не выводит результат,точнее 0 показывает

procedure TForm11.Button5Click(Sender: TObject);
var
sql:integer  ;
begin
dm.ADOQuery1.Active:=false;
dm.ADOQuery1.SQL.Clear;
sql:=dm.ADOQuery1.sql.Add('SELECT sum(chasov) FROM kursi WHERE id=1') ;
dm.ADOQuery1.Active:=true;
edit1.text:=IntToStr(sql);
end;

ой-ей!
Кто же Вас так учил запросы выполнять?!
Очень рекомендую какой-нибудь курс/книжку по работе с БД в Delphi почитать.

попробуйте такой код, вместо вашего:

procedure TForm11.Button5Click(Sender: TObject);
var
sql:integer  ;
begin
  dm.ADOQuery1.Close; (* можно оставить и dm.ADOQuery1.Active:=false;*)
  dm.ADOQuery1.SQL.Clear;
  dm.ADOQuery1.sql.Add('SELECT sum(chasov) as sumChasov FROM kursi WHERE id=1') ;
  dm.ADOQuery1.Open;         (* можно оставить и dm.ADOQuery1.Active:=true; );
  if dm.ADOQuery1.IsEmpty then edit1.text := 'Ничегошеньки не выбралось!'
  else
    edit1.text:= IntToStr( dm.ADOQuery1.FieldByName('sumChasov').AsInteger );
  dm.ADOQuery1.Close;
end;

Updates
всё. мой пост потерял актуальность, Вы в своём сообщении уже откорретировали свой код.

[Дюша]

вот в sql пока запрос сделал для второго

update uchitelya 
set kot =(select  top 1 kotegor from attest where id=4 order by data desc)
where id=4

[eval]

заменяет все

быть такого не может

[Дюша]

написал в делфи запрос

procedure TForm9.Button1Click(Sender: TObject);
begin
dm.ADOQuery1.Active:=false;
dm.ADOQuery1.SQL.Clear;
dm.ADOQuery1.sql.Add('update uchitelya');
dm.ADOQuery1.sql.Add(' set kot =(select  top 1 kotegor from attest where id='+dbedit1.Text+' order by data desc)') ;
dm.ADOQuery1.sql.Add('where id='+dbedit1.Text);
dm.ADOQuery1.Active:=true;
end;

но при исполнении пишет что командный текст не может вернуть результат

[eval]

а вы чего ждали?

[Дюша]

чтоб он выполнил это и в таблицу мне вернул последнюю квалификацию