SQL. Объединение таблицы с собой

[_SERGEYX_]

В таблице циклично выполняются два вот таких запроса

QTemp.Close;
QTemp.SQL.Clear;
QTemp.SQL.Add('Select sum(summa) from oper  Where (debet = "' + NUMBER_SCH + '") And (data >= "' + dStart + '") And (data <= "' + dEnd + '")');
QTemp.Open;
summaD := QTemp.Fields[0].AsFloat;

QTemp.Close;
QTemp.SQL.Clear;
QTemp.SQL.Add('Select sum(summa) from oper  Where (kredit = "' + NUMBER_SCH + '") And (data >= "' + dStart + '") And (data <= "' + dEnd + '")');
QTemp.Open;
summaK := QTemp.Fields[0].AsFloat;

Думаю, зачем их два? Объединил в один вот такой запрос

QTemp.Close;
QTemp.SQL.Clear;
QTemp.SQL.Add('Select sum(a.summa), sum(b.summa) from oper a, oper b  Where (a.debet = "' + NUMBER_SCH + '") and (b.kredit = "' + NUMBER_SCH + '") And (data between "' + dStart + '" And "' + dEnd + '")');
QTemp.Open;
summaD := QTemp.Fields[0].AsFloat;
summaK := QTemp.Fields[1].AsFloat;

...и стало работать раз в 5 медленнее. Это сложный запрос такие "тормоза" даёт или я делаю что-то не то?

[D-mon]

И не удивительно, оно те соединяет 2-ве таблицы ХЗ как. Вот так попробуй.
# QTemp.Close;
# QTemp.SQL.Clear;
# QTemp.SQL.Add('Select sum(summa) from oper Where (debet = "' + NUMBER_SCH + '") And (data >= "' + dStart + '") And (data <= "' + dEnd + '") union '+'Select sum(summa) from oper Where (kredit = "' + NUMBER_SCH + '") And (data >= "' + dStart + '") And (data <= "' + dEnd + '")');
# QTemp.Open;
# summaD := QTemp.Fields[0].AsFloat;

[evg_m]

добавить к запросу and (a.id=b.id) где id поле однозначно определяющее запись. Если конечно же такое поле в табице имеется.