Question

我制作了一个使用游标生成报告的程序。它旨在返回p_qoh > avg(p_qoh)的产品。

当我在程序外部运行光标时，APEX告诉我

PLS-00204：功能或伪列＆＃39; AVG＆＃39;可以在SQL中使用仅声明

这怎么不在SQL语句中？我刚接触SQL只是一个必需的类作为comp sci major。

继承整个街区。如果你只运行光标，你会看到我的意思。

CREATE OR REPLACE PROCEDURE prod_rep
IS 
  CURSOR cur_qoh IS
    SELECT p_qoh, p_descript, p_code
      FROM xx_product;

  TYPE type_prod IS RECORD(
    prod_qoh    xx_product.p_qoh%TYPE,
    prod_code   xx_product.p_code%TYPE,
    prod_descr  xx_product.p_descript%TYPE);

  rec_prod type_prod;
BEGIN
  OPEN cur_qoh;
  LOOP
    FETCH cur_qoh INTO rec_prod;
    EXIT WHEN cur_qoh%NOTFOUND;

    IF rec_prod.prod_qoh > avg(rec_prod.prod_qoh) THEN
       DBMS_OUTPUT.PUT_LINE(rec_prod.prod_code||' -> '||rec_prod.prod_desc);
    END IF;
  END LOOP;
  CLOSE cur_qoh;
END;

更新：工作区

BEGIN 
 FOR cur_r IN (SELECT p_qoh, p_descript, p_code FROM xx_product
        WHERE p_qoh > (SELECT avg(p_qoh) FROM xx_product))
LOOP
  DBMS_OUTPUT.PUT_LINE(cur_r.p_code||' -> '|| cur_r.p_descript);
 END LOOP;
END;

Answer 1

嗯，是的 - 这是（PL /）SQL，但你不能这样使用AVG。看看：这是一个基于Scott的架构的例子。

平均工资

SQL> select avg(sal) from emp;

  AVG(SAL)
----------
2077,08333

为了选择高于平均值的工资，您需要使用子查询。让我们将此查询称为＆＃34; A＆＃34;查询（供将来参考）：

SQL> select ename, sal
  2  from emp
  3  where sal > (select avg(sal) from emp);

ENAME             SAL
---------- ----------
JONES            2975
BLAKE            2850
CLARK            2450
KING             5000
FORD             3000

SQL>

此外，无需声明那么多东西 - 简单的游标FOR循环更容易维护：

SQL> create or replace procedure prod_rep as
  2  begin
  3    for cur_r in (select ename, sal from emp
  4                  where sal > (select avg(sal) from emp))
  5    loop
  6      dbms_output.put_line(cur_r.ename ||' '|| to_char(cur_r.sal, '9990'));
  7    end loop;
  8  end;
  9  /

Procedure created.

SQL> begin prod_rep; end;
  2  /
JONES  2975
BLAKE  2850
CLARK  2450
KING  5000
FORD  3000

PL/SQL procedure successfully completed.

SQL>

请参阅？不需要声明游标（好的，你在循环中使用那个SELECT），输入＆amp;记录该类型，打开光标，担心何时退出循环，关闭光标。

然而，您的代码在Apex环境中没有多大意义。那里没有DBMS_OUTPUT，使用过程创建报告（经典或交互式报告）是相当不寻常的。我从来没有这样做过。我使用了一个函数（这是一个PL / SQL代码），它返回一个SQL查询并基于该查询报告。

你的问题很简单，所以 - 使用向导，创建一个报告，并 - 作为其来源 - 使用＆＃34; A＆＃34;查询（我之前提到）。这就是你应该做的一切。

Answer 2

那时你进入PL / SQL，而不是SQL。您可以将分析函数AVG用于SQL查询以获得平均值：

CURSOR cur_qoh IS
SELECT p_qoh, p_descript, p_code, AVG(p_goh) OVER () as p_goh_avg
  FROM xx_product;

您可以将新字段添加到type_prod：

  TYPE type_prod IS RECORD(
    prod_qoh    xx_product.p_qoh%TYPE,
    prod_code   xx_product.p_code%TYPE,
    prod_descr  xx_product.p_descript%TYPE,
    prod_avg    xx_product.p_qoh%TYPE)
   ;

然后你可以将你的平均值用于LOOP：

IF rec_prod.prod_qoh > rec_prod.prod_avg THEN

在PL / SQL循环中使用AVG没有意义。 PL / SQL是程序性的，此时您不处理整个数据集：您一次只管理一行。 SQL处理数据集。

使用分析函数，您可以获得每行上列的平均值，因此您可以在PL / SQL循环中对其进行管理。

使用游标的存储过程

2 个答案: