1
m_user login%rowtype
改为
m_user out login%rowtype2
select * into m_user from login
改为
select * into m_user from login;
m_user login%rowtype
改为
m_user out login%rowtype2
select * into m_user from login
改为
select * into m_user from login;
改为
select * from login into m_user ;
用ref cursor来做
create or replace package TPS_IFTMIN is
TYPE SHIPPING_CURSOR IS REF CURSOR;
PROCEDURE IFTMIN_OPEN_SHIPPING_CURSOR(T2_SHIP_DATE IN varchar2,
T2_SHIPPING_CURSOR OUT SHIPPING_CURSOR);
end TPS_IFTMIN;
/
create or replace package body TPS_IFTMIN is
PROCEDURE IFTMIN_OPEN_SHIPPING_CURSOR(T2_SHIP_DATE IN varchar2,
T2_SHIPPING_CURSOR OUT SHIPPING_CURSOR) as
V_T2_SHIP_DATE varchar2(23);
V_T2_SHIPPING_CURSOR SHIPPING_CURSOR;
BEGIN
V_T2_SHIP_DATE := substr(T2_SHIP_DATE, 1, 10);
open V_T2_SHIPPING_CURSOR for
select SHIPMENTNO ShippingNo,
'' Province,
DELIVERYPORT City,
TNUMBER Pieces,
TGWEIGHT Weight,
TVOLUME Volume,
'' Urgent,
CONTRACTNO,
TO_DATE(substr(ESTARR, 1, 10), 'YYYY/MM/DD') Arrival,
PICKUPPLACE POL,
CONSIGNEE 收货联系人,
'' TEL,
'' ADDRESS
from t2ashipmentno
where substr(MESCREATDATE, 1, 10) = V_T2_SHIP_DATE;
T2_SHIPPING_CURSOR := V_T2_SHIPPING_CURSOR;
end IFTMIN_OPEN_SHIPPING_CURSOR;end TPS_IFTMIN;
/
按你说的改了,不行。
to jack_4826(天下无双)
也不行
to liangwqtps(几百K)
正在琢磨,还没有看包的用法呢。
在包中定义ref cursor类型
用此类型作为参数,过程中open ..for select * from tbname