Question

我正在尝试将此过程实现到包中，但是包由于某种原因，我不允许使用光标。有人可以帮忙吗？谢谢。

此外，当我尝试将程序放入我的包中时，会出现“输入绑定变量”框减去任何地方输入绑定变量和此错误

Not found
The requested URL /apex/wwv_flow.show was not found on this server

我的代码是

  PROCEDURE total_calc(p_order NUMBER)
IS
   c_price product.unit_price%type;
   c_prod_desc product.product_desc%type;
   v_total_cost NUMBER := 0;
   v_c1 REFCURSOR;
   CURSOR c1 IS
      SELECT product_desc, unit_price 
      FROM product 
      WHERE product_id IN (SELECT fk2_product_id 
                           FROM order_line 
                            WHERE fk1_order_id = p_order);
BEGIN
   OPEN c1;
   LOOP
      FETCH c1 into c_prod_desc, c_price;
      dbms_output.put_line(c_prod_desc || ': ' || c_price);
      v_total_cost := v_total_cost + c_price;
      EXIT WHEN c1%notfound;
   END LOOP;
   CLOSE c1;
   dbms_output.put_line('Total Cost:' || v_total_cost);
END;

以下是包的其余部分的代码

CREATE OR REPLACE PACKAGE orders_salary_manage AS
  FUNCTION tax_func (p_sal IN NUMBER)
  RETURN NUMBER;
  PROCEDURE reduce_price(p_product_id NUMBER, p_sub_price NUMBER);
  PROCEDURE increase_price(p_product_id NUMBER, p_add_price NUMBER);
  PROCEDURE remove_order(p_order_id NUMBER);  
  PROCEDURE add_order(p_order_id NUMBER,
                                      p_order_date VARCHAR2,
                                      p_delivery_date VARCHAR2,
                                      p_customer_id NUMBER,
                                      p_employee_id NUMBER,
                                      p_order_type_id NUMBER);
END orders_salary_manage;

CREATE OR REPLACE PACKAGE BODY orders_salary_manage AS
  tot_orders NUMBER;

FUNCTION tax_func (p_sal IN NUMBER)
   RETURN NUMBER
IS
   tax_rate NUMBER := 0;
   v_netsal   NUMBER := 0;
   v_sal    NUMBER;
BEGIN
   v_sal := p_sal;
IF v_sal > 70000 THEN
   tax_rate := (v_sal * 0.4);
   v_netsal := v_sal - tax_rate;
END IF;
IF v_sal < 70000 THEN
   tax_rate := (v_sal * 0.2);
   v_netsal := v_sal - tax_rate;
END IF;

RETURN v_netsal;
END;


PROCEDURE reduce_price(p_product_id NUMBER, p_sub_price NUMBER)
IS v_price NUMBER;
   e_invalid_price EXCEPTION;
BEGIN
  SELECT unit_price
  INTO v_price
  FROM product
  WHERE product_id = p_product_id;

  v_price := v_price - p_sub_price;

  IF v_price < 1 THEN
    RAISE e_invalid_price;
  ELSE
      UPDATE product SET unit_price = v_price WHERE product_id = p_product_id; 
  END IF;

END;

PROCEDURE increase_price(p_product_id NUMBER, p_add_price NUMBER)
IS v_price NUMBER;
BEGIN
  SELECT unit_price
  INTO v_price
  FROM product
  WHERE product_id = p_product_id;

  v_price := v_price + p_add_price;

  UPDATE product SET unit_price = v_price WHERE product_id = p_product_id; 

END;

PROCEDURE remove_order(p_order_id NUMBER)
IS 
BEGIN

  DELETE FROM placed_order WHERE order_id = p_order_id;
  DELETE FROM order_line WHERE fk1_order_id = p_order_id; 

END;

PROCEDURE add_order(p_order_id NUMBER,
                                      p_order_date VARCHAR2,
                                      p_delivery_date VARCHAR2,
                                      p_customer_id NUMBER,
                                      p_employee_id NUMBER,
                                      p_order_type_id NUMBER)
IS new_order NUMBER;
BEGIN


  INSERT INTO placed_order (order_id, order_date, delivery_date, fk1_customer_id, fk2_employee_id, fk3_order_type_id)
  VALUES (p_order_id, p_order_date, p_delivery_date, p_customer_id, p_employee_id, p_order_type_id);

END;
END;

Answer 1

这真令人困惑。

首先关闭 - dbms_output需要特殊的环境设置才能工作。拨打DBMS_OUTPUT.ENABLE，加上套餐无论如何都可以访问终端。包没有您的进程上下文，它们在db的进程上下文中运行 - 它在没有控制终端的情况下运行。如果你必须写一些东西，请使用文件 - UTL_FILE包就是为了这个。

接着由于您基本上是在添加订单，因此您需要一个函数来返回值。程序不起作用。正如你编码的那样。

接着 v_C1未使用，对您的代码没有任何意义。你没有返回refcursor。

接着在对变量进行decalre时，应考虑对具有通用表名的表使用模式。

示例：

v_foo schema_owner.table_name.column_name%type;

考虑一下：

function total_calc(p_order in NUMBER)
return NUMBER
is
   c_price product.unit_price%type;
   c_prod_desc product.product_desc%type;
   v_total_cost NUMBER := 0;
   --  lose this:  v_c1 REFCURSOR;
   CURSOR c1 IS
      SELECT product_desc, unit_price 
      FROM product 
      WHERE product_id IN (SELECT fk2_product_id 
                           FROM order_line 
                            WHERE fk1_order_id = p_order);
BEGIN
   OPEN c1;
   LOOP
      FETCH c1 into c_prod_desc, c_price;
     -- lose this line: dbms_output.put_line(c_prod_desc || ': ' || c_price);
      v_total_cost := v_total_cost + c_price;
      EXIT WHEN c1%notfound;
   END LOOP;
   CLOSE c1;
   -- lose this line:  dbms_output.put_line('Total Cost:' || v_total_cost);
   return v_total_cost;
END;

为了使它能够工作，它必须在一个内部 CREATE OR REPLACE FUNCTION一份声明。然后 - 由具有正确权限的用户添加到db模式。

毕竟，你可以运行它。此外，如果有人需要从SQLPLUS运行，那么所有这些包/函数创建的内容就像使用PRAGMAS一样。

光标在包过程中不起作用

1 个答案: