Запрос к запросу

[govorun1]

Имеется запрос1 к базе.
Как записать запрос2, что бы он работал ТОЛЬКО с данными, полученными в запросе1.
Что то типа

select...From adoquery1 where...

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

[Аватар]

Это называется вложенный запрос

SELECT U.* FROM (SELECT ...) AS U ...

[govorun1]

Сообщение от Аватар

Это называется вложенный запрос

SELECT U.* FROM (SELECT ...) AS U ...

Т.е. отдельный запрос к уже отобранным данным сделать нельзя?

[Аватар]

Делайте представление

[govorun1]

Сообщение от Аватар

Делайте представление

Вот первый запрос

A1:=STRTOINT(FORM2.Edit1.Text);
    ADOQUERY1.Close;
    ADOQUERY1.SQL.Text:='select S, OTD, DATA_POS, FIO, SUMMA, VAL, SD_V_KL, SD_V_CBU '+
                        'FROM INKASSO '+
                        'WHERE OTD=:A1 AND SD_V_KL<>1 AND SD_V_CBU<>1';
    ADOQUERY1.Parameters[0].Value:=A1;
    ADOQUERY1.Open;

Теперь нужно из первого запроса подсчитать сумму по полю 'SUMMA' where 'VAL' =30 as 30 и 'VAL' =40 as 40

AS 30 и AS 40 нужны, чтобы потом эти суммы показать в EDIT

[Sciv]

Т.е. отдельный запрос к уже отобранным данным сделать нельзя?

Не, в Вашем примере - нет. Но вполне можно сделать так, как выше писал Аватар. Или вообще обойтись одним запросом...

[evg_m]

можно к полученному набору (Dataset) применить фильтрацию и в цикле(!) посчитать нужное.

ds.Filter:='val=30';
r:=0;
ds.Filtred:=true;
ds.first;
f:=ds.Fieldbyname('summa');
while not ds.EOF do begin 
  r:=r+f.asInteger;
  ds.Next;
end;
ds.filtred:=false;

Считать надо две величины с разными(!) условиями?
1. пишем два цикла
2. отказываемся от filter и честно проверяем условия в цикле.

  v:=ds.Fieldbyname('val');
  
  case v.Asinteger of
  30: r30:=r30+f.AsInteger;
  50: r50:=r50+f.AsInteger;
  else rx:=rx+f.Asinteger;
  end;

[govorun1]

Сообщение от evg_m

Считать надо две величины с разными(!) условиями?
1. пишем два цикла
2. отказываемся от filter и честно проверяем условия в цикле.

  v:=ds.Fieldbyname('val');
  
  case v.Asinteger of
  30: r30:=r30+f.AsInteger;
  50: r50:=r50+f.AsInteger;
  else rx:=rx+f.Asinteger;
  end;

Считать нужно две величины: 'Summa' where 'val'=30 и 'Summa' where 'val'=40
Потом эти итоги отразить например в Edit1 и Edit2 соответственно.

Если честно, я в этом коде ну совсем ничего не понял...
У меня Access... Если мне это пойдет, то нельзя ли более по-народному написать. Просто если я не понимаю, то как правило я ищу другой выход, бзик у меня такой - сначало понять а потом уже писать...
Спасибо

[ReportCube]

Воспользуйтесь агрегатным суммирование через такую конструкцию
SUM(case VAL when 30 then SUMMA else 0 end) as Field_30
или для Access можно и так
SUM(IIF(VAL=30,SUMMA,0))