Хранимая процедура выбора

[Ericnex]

Создать процедуру выбора, которая осуществляет выборку тех записей из таблицы Название товара, где Количество поступлений товара превышает среднее значение поступлений товара по всем магазинам.

В InterBase прописываю процедуру

ALTER PROCEDURE P_AVGKOLVO 
RETURNS
(
  OPAVGKOLVO FLOAT
)
AS
begin
select avg(Kol_vo) from Partia into: OpAvgKolvo;
end
 ^


ALTER PROCEDURE P_NAMEMAG 
RETURNS
(
  OPNAMEMAG VARCHAR(20)
)
AS
declare variable AvgKol float;
begin
execute procedure P_AvgKolvo returning_values :AvgKol;
for
select Date_p from Partia where Kol_vo > :AvgKol
into: OpNameMag
do suspend;
end

Кажется что-то делаю неправильно исправьте где надо.

И еще: как правильно задать эту процедуру через Delphi, делаю как-то так, кажется тоже не совсем то

procedure TForm1.Button8Click(Sender: TObject);
begin
DM.StoredProc2.Prepare;
DM.StoredProc2.ParamByName('Avg_kol').Value:=Edit6.Text;
Dm.StoredProc1.ExecProc;
Label1.Caption:=DM.StoredProc2.ParamByName('opNameMag').Value;
end;

[Stilet]

do suspend;

Это зачем?
Как я понимаю - твоя процедура должна создать временную таблицу, куда и будут перекачиваться данные из запроса.
А после ее вызова из программы штатными средствами эту таблицу запрашивать
Примера нет но что-то типа:

execute procedure P_AvgKolvo returning_values :AvgKol;
delete from buf
insert into buf
 select Date_p from Partia where Kol_vo > :AvgKol

где buf - таблица с одним полем

А в клиенте делаешь запрос select * from buf и получай в цикле данные.

[Ericnex]

Как я понимаю - твоя процедура должна создать временную таблицу, куда и будут перекачиваться данные из запроса.
А после ее вызова из программы штатными средствами эту таблицу запрашивать

Скорее мне надо просто оставить несколько записей в таблице которые соответствуют данному условию.

select Date_p from Partia where Kol_vo > :AvgKol

Здесь я выбираю одно поле Date, а как сделать именно выборку некоторого количества записей

[Yurk@]

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

Скорее мне надо просто оставить несколько записей в таблице которые соответствуют данному условию.

так может тогда проче сделать DELETE всем остальным записям оставив только нужные?

select Date_p from Partia where Kol_vo > :AvgKol

Здесь я выбираю одно поле Date, а как сделать именно выборку некоторого количества записей

вот тут не понял .. как-то поточнее можно?

[Ericnex]

так может тогда проче сделать DELETE всем остальным записям оставив только нужные?

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

вот тут не понял .. как-то поточнее можно?

Здесь я понял здесь вместо поля должно быть значение первичного ключа.

Если можно то приведите код с самого начала, как бы вы это сделали.

[Yurk@]

хм ... тогда другой вопрос
а не проще ли сделать 1 представление вместо 2х процедур с примерно таким текстом:

select * from Partia where Kol_vo > (select avg(Kol_vo) from Partia)

и потом просто делать выборку из этого представления

[Аватар]

Что мешает так сделать, соответственно и выходные параметры добавить

for
select Date_p,Pole1,..,PoleN  from Partia where Kol_vo > :AvgKol
into :OpNameMag,:Pole1,..,:PoleN

Обращение

SELECT * FROM P_NAMEMAG

ADD

Вариант предложенный Yurk@ вообще можно без хранимых процедур

[Ericnex]

Вроде разобрался вот с этим

а не проще ли сделать 1 представление вместо 2х процедур с примерно таким текстом:
Код:

select * from Partia where Kol_vo > (select avg(Kol_vo) from Partia)

и потом просто делать выборку из этой процедуры

Это делается на сервере? Если да то как полностью будет выглядеть код?

Как через кнопку в Delphi можно сделать выборку?

[Yurk@]

1. можно (представлением): на сервере

create or alter view v_vibor
as
select * from Partia where Kol_vo > (select avg(Kol_vo) from Partia)

и в дельфи на кнопке:

Query.Close;
Query.SQL.Text:='SELECT * FROM v_vibor';
Query.Open;

2. а можно и напрямую с дельфи:

Query.Close;
Query.SQL.Text:='select * from Partia where Kol_vo > (select avg(Kol_vo) from Partia)';
Query.Open;

[Ericnex]

2. а можно и напрямую с дельфи:
Код:

Query.Close;
Query.SQL.Text:='select * from Partia where Kol_vo > (select avg(Kol_vo) from Partia)';
Query.Open;

Такой вариант не работает. Ошибка выходит.