[chudovperyax]

Здравствуйте! Проблема такова: есть бд access, есть программа в delphi 2009. Было реализовано подключение БД к программе, с помощью ADOQuery были реализованы несколько сложных запросов. Теперь мне нужно произвести вычисления, в частности умножение результатов adoquery1 на adoquery2, но я не знаю как это сделать
Код для полного понимания:

Код:

ADOQuery1.Active:=False;
ADOQuery1.Close;
ADOquery1.sql.Text:= 'SELECT SUM(Perem_zatr.Plan) AS plan, SUM(Perem_zatr.Fact) AS fact FROM ((Perem_zatr INNER JOIN Period_vremeni ON Perem_zatr.ID_vremya=Period_vremeni.ID_vremya)'+
'INNER JOIN Norma_resursa ON Perem_zatr.ID_norma_resursa=Norma_resursa.ID_norma_resursa)'+
'INNER JOIN Vid_produkcii ON Norma_resursa.ID_nomenklatura=Vid_produkcii.ID_nomenklatura '+
'WHERE Vid_produkcii.Nomenklatura="' + DBComboBox1.text + '"'+
'And (Period_vremeni.Period_vremeni_nach Between #12/12/2012# And #02/01/2013#)'+
'And Period_vremeni.Period_vremeni_kon <= #02/02/2013#';
ADOQuery1.Open;
ADOQuery1.Active:=True;

ADOQuery3.Active:=False;
ADOQuery3.Close;
ADOquery3.sql.Text:= 'SELECT Proizveden_prod.Plan AS VP, Proizveden_prod.Fact AS VF FROM Vid_produkcii INNER JOIN (Period_vremeni INNER JOIN Proizveden_prod '+
'ON Period_vremeni.ID_vremya = Proizveden_prod.ID_vremya) ON Vid_produkcii.ID_nomenklatura = Proizveden_prod.ID_nomenklatura '+
'WHERE (Period_vremeni.Period_vremeni_nach Between #01/12/2012# And #02/02/2013#)'+
'AND Period_vremeni.Period_vremeni_kon <= #02/02/2013#'+
'AND Vid_produkcii.Nomenklatura="' + DBComboBox1.text + '"';
ADOQuery3.Open;
ADOQuery3.Active:=True;

По сути мне нужно plan * VP и fact * VF.

[M.A.D.M.A.N.]

Параметры, чувак, па-ра-мет-ры.

Можно все одним запросом сделать, чтоб он сразу выводил и суммы еще.

[chudovperyax]

Параметры, чувак, па-ра-мет-ры.

Можно все одним запросом сделать, чтоб он сразу выводил и суммы еще.

А можно поподробнее? Потому что с delphi вообще не работала до этого, и плохо себе представляю КАК это сделать одним запросом, учитывая еще тот факт, что далее уже этот результат будет суммироваться с результатом другого запроса

[chudovperyax]

Не обязательно использовать параметры, можно и так простенько реализовать:

Код:

A:=ADOQuery2.FieldByName('plan1').AsInteger;
B:=ADOQuery3.FieldByName('VP').AsInteger;
C:=A + B;

[M.A.D.M.A.N.]

Параметр запроса, чтоб в тексте не писать чето типа

Код:

'where a =' + blabla + 'and...'

А писать так:

Код:

'where a = :param1 and ...'