在Oracle中设置存储过程

时间:2015-05-13 16:32:30

标签: sql oracle stored-procedures plsql

我正在努力创建一个存储过程,该过程接受id和开始日期和结束日期的输入,然后返回落在该范围内的行程。我一直在查看oracle文档,我想我已经关闭了,但是还是收到了一些错误:

 CREATE or replace PROCEDURE chg_per_aircraft 
  (p_aircraft_id IN RCC_AIRCRAFT.aircraft_id,
   p_start_date IN date,
   p_end_date IN date, 
   p_ttl_chg_per_acft OUT INTEGER)

AS                                             
BEGIN
  SELECT RCC_AIRCRAFT.aircraft_id, 
         SUM(RCC_CHARTER.distance * RCC_MODEL.charge_per_mile) ttl_chg
  INTO
         p_aircraft_id,
         p_ttl_chg_per_acft
FROM RCC_AIRCRAFT
full join RCC_CHARTER
on RCC_CHARTER.aircraft_id = RCC_AIRCRAFT.aircraft_id
left join RCC_MODEL
on RCC_MODEL.model_code = RCC_AIRCRAFT.model_code
Where RCC_CHARTER.trip_date > p_start_date and RCC_CHARTER.trip_date < p_end_date
group by RCC_AIRCRAFT.aircraft_id;


SYS.DBMS_OUTPUT.PUT_LINE(ttl_chg);
 end;

1 个答案:

答案 0 :(得分:2)

您的第一个错误是参数定义:

p_aircraft_id IN RCC_AIRCRAFT.aircraft_id

应该是

p_aircraft_id IN RCC_AIRCRAFT.aircraft_id%TYPE

但是您选择INTO p_aircraft_id,它被声明为IN参数,因此您无法将其设置为新值。这是您要传入的变量,还是您想要获取的值?它更像是调用者提供的日期和日期,但是你需要在select语句中将它用作过滤器。如果有多个飞机ID - 可能只是受到日期的限制 - 那么你会得到多个结果,无论如何都会出现一个太_many_rows错误。

您的输出仅对设置为处理它的会话可见,因此对于调用者来说可能更有意义;但无论如何应该是:

DBMS_OUTPUT.PUT_LINE(p_ttl_chg_per_acft);

...因为ttl_chg仅作为列别名存在,而不是PL / SQL变量。

如果你传递飞机ID,你可能需要这样的东西:

CREATE or replace PROCEDURE chg_per_aircraft 
  (p_aircraft_id IN RCC_AIRCRAFT.aircraft_id%TYPE,
   p_start_date IN date,
   p_end_date IN date, 
   p_ttl_chg_per_acft OUT INTEGER)
AS                                             
BEGIN
  SELECT SUM(RCC_CHARTER.distance * RCC_MODEL.charge_per_mile) ttl_chg
  INTO p_ttl_chg_per_acft
  FROM RCC_AIRCRAFT
  JOIN RCC_CHARTER
  ON RCC_CHARTER.aircraft_id = RCC_AIRCRAFT.aircraft_id
  JOIN RCC_MODEL
  ON RCC_MODEL.model_code = RCC_AIRCRAFT.model_code
  WHERE RCC_CHARTER.trip_date > p_start_date
  AND RCC_CHARTER.trip_date < p_end_date
  AND RCC_AIRCRAFT.aircraft_id = p_aircraft_id
  GROUP BY RCC_AIRCRAFT.aircraft_id;

  -- just to debug!
  DBMS_OUTPUT.PUT_LINE(p_ttl_chg_per_acft);
END;
/

我也改为内连接,因为它们使外连接似乎没用。这也比程序更有意义;虽然在存储的程序中包装单个查询可能是不必要的 - 尽管这看起来像是一个赋值。