光标将不会工作在封装过程

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一个语句中。然后 - 由具有正确权限的用户添加到数据库模式以创建它。

毕竟这一点，那么你可以运行它。另外，如果有人需要从SQLPLUS运行这个功能，那么所有这些包/功能创建都会使用PRAGMAS。