[英]What is wrong in the program?
我已经在一个程序包中创建了过程...在TOAD中编译时,没有任何错误,但是提交我的jsp页面后,它表明
“”程序包主体“ USERINFO.FORM_PKG”出现错误ORA-06508:PL / SQL:找不到正在被调用的程序单元:“ USERINFO.FORM_PKG”“
CREATE OR REPLACE PACKAGE form_pkg AS -- package body
PROCEDURE Insert_receipts(
p_receipt NUMBER,
p_transaction NUMBER,
p_amount NUMBER);
PROCEDURE Insert_stkqntys(
p_itemid NUMBER,
p_date VARCHAR2,
p_supplier VARCHAR2,
p_type VARCHAR2,
p_transaction NUMBER,
p_quantity NUMBER);
END form_pkg;
/
CREATE OR REPLACE PACKAGE BODY form_pkg AS -- package body
PROCEDURE Insert_receipts (
p_receipt NUMBER(6),
p_transaction NUMBER(5),
p_amount NUMBER(10),
seq_value NUMBER) IS
BEGIN
INSERT INTO receipt
( ID, Receipt_Number,Transaction_ID,Amount)
VALUES (seq.nextval, p_receipt, p_transaction, p_amount);
END Insert_receipts
;
PROCEDURE Insert_stkqntys
(
p_itemid NUMBER(8),
p_date VARCHAR2(50),
p_supplier VARCHAR2(50),
p_type VARCHAR2(50),
p_transaction NUMBER(8),
p_quantity NUMBER,
seq_value NUMBER) IS
BEGIN
INSERT INTO stock_quantity(ID,Item_ID,Date_Received,Supplier_Challan,Transaction_Type,Transaction_ID,Quantity)VALUES (seq.nextval, p_itemid, p_date,p_supplier,p_type,p_transaction,p_quantity);
END Insert_stkqntys;
End form_pkg;
/
在package
及其body
过程/函数的声明必须相等。 尽量避免幻数像p_amount NUMBER(10)
是什么意思10
? 但使用p_amount receipt.Amount%Type
是clealy类型receipt.Amount
领域。
CREATE OR REPLACE PACKAGE form_pkg AS
-- interface: procedure with 3 arguments
PROCEDURE Insert_receipts(
p_receipt receipt.Receipt_Number%Type,
p_transaction receipt.Transaction_ID%Type,
p_amount receipt.Amount%Type);
...
END form_pkg;
/
CREATE OR REPLACE PACKAGE BODY form_pkg AS -- package body
-- implementation
-- The same three arguments (no seq_value!)
PROCEDURE Insert_receipts (
p_receipt receipt.Receipt_Number%Type,
p_transaction receipt.Transaction_ID%Type,
p_amount receipt.Amount%Type)
IS
BEGIN
INSERT INTO receipt(
ID,
Receipt_Number,
Transaction_ID,
Amount)
VALUES (
seq.NextVal,
p_receipt,
p_transaction,
p_amount);
END Insert_receipts;
...
END form_pkg;
/
在实现例程时,您可以在USER_ERRORS
视图中查看错误的详细信息(名称,行等):
-- all (syntactic) errors in the form_pkg
select *
from USER_ERRORS
where Name = upper('form_pkg')
对于每个过程/功能,程序包规范和主体应具有相同的参数/数据类型,并且不能包括大小/比例/精度。
另外,请使用[SCHEMA_NAME.]TABLE_NAME.COLUMN_NAME%TYPE
而不要明确声明类型。 但是,如果要使用基础数据类型,则只需删除精度。 即p_receipt NUMBER(6)
应该只是p_receipt NUMBER
而没有大小/比例/精度。
CREATE OR REPLACE PACKAGE form_pkg AS -- package specification
PROCEDURE Insert_receipts(
p_receipt RECEIPT.RECEIPT_NUMBER%TYPE,
p_transaction RECEIPT.TRANSACTION_ID%TYPE,
p_amount RECEIPT.AMOUNT%TYPE
);
PROCEDURE Insert_stkqntys(
p_itemid STOCK_QUANTITY.ITEM_ID%TYPE,
p_date STOCK_QUANTITY.DATE_RECEIVED%TYPE,
p_supplier STOCK_QUANTITY.SUPPLIER_CHALLAN%TYPE,
p_type STOCK_QUANTITY.TRANSACTION_TYPE%TYPE,
p_transaction STOCK_QUANTITY.TRANSACTION_ID%TYPE,
p_quantity STOCK_QUANTITY.QUANTITY%TYPE
);
END form_pkg;
/
CREATE OR REPLACE PACKAGE BODY form_pkg AS -- package body
PROCEDURE Insert_receipts (
p_receipt RECEIPT.RECEIPT_NUMBER%TYPE,
p_transaction RECEIPT.TRANSACTION_ID%TYPE,
p_amount RECEIPT.AMOUNT%TYPE
)
IS
BEGIN
INSERT INTO receipt (
ID,
Receipt_Number,
Transaction_ID,
Amount
) VALUES (
seq.nextval,
p_receipt,
p_transaction,
p_amount
);
END Insert_receipts;
PROCEDURE Insert_stkqntys
(
p_itemid STOCK_QUANTITY.ITEM_ID%TYPE,
p_date STOCK_QUANTITY.DATE_RECEIVED%TYPE,
p_supplier STOCK_QUANTITY.SUPPLIER_CHALLAN%TYPE,
p_type STOCK_QUANTITY.TRANSACTION_TYPE%TYPE,
p_transaction STOCK_QUANTITY.TRANSACTION_ID%TYPE,
p_quantity STOCK_QUANTITY.QUANTITY%TYPE
)
IS
BEGIN
INSERT INTO stock_quantity(
ID,
Item_ID,
Date_Received,
Supplier_Challan,
Transaction_Type,
Transaction_ID,
Quantity
) VALUES (
seq.nextval,
p_itemid,
p_date,
p_supplier,
p_type,
p_transaction,
p_quantity
);
END Insert_stkqntys;
End form_pkg;
/
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.