程序中的PL / SQL返回记录

时间:2017-04-06 10:29:52

标签: sql plsql procedure plsqldeveloper

我有一个名为" gps_coord"的程序。它需要两个参数并且必须返回记录。但我不知道如何做到这一点。在此先感谢;)

CREATE OR REPLACE PROCEDURE gps_coord(v_x IN FLOAT,
                                      v_y IN FLOAT, v_result out result_type)
IS
TYPE result_type IS RECORD(
     v_km VARCHAR2(50),
     v_objID VARCHAR2(50)
);

v_out result_type;
BEGIN


select P.KM , P.OBJECTID INTO v_out  from SDE.POINTS p where        sde.st_intersects(P.SHAPE,sde.st_buffer(sde.st_transform( sde.st_point(v_y,v_x,4326),32639) ,5000))=1;
 dbms_output.put_line('km: ' || v_out.v_km || 'objid: ' || v_out.v_objID );
END;

2 个答案:

答案 0 :(得分:1)

CREATE OR REPLACE TYPE result_type IS OBJECT
(
   v_km NVARCHAR2(50),
   v_objID NVARCHAR2(50)
 )


CREATE OR REPLACE PROCEDURE gps_coord(v_x IN NVARCHAR2, v_y IN NVARCHAR2,    v_result out result_type)
 IS
  BEGIN
   select P.KM , P.OBJECTID INTO v_result.v_km ,  v_result.v_objID from SDE.POINTS p where sde.st_intersects(P.SHAPE,sde.st_buffer(sde.st_transform( sde.st_point(v_y,v_x,4326),32639) ,5000))=1;
  end;

答案 1 :(得分:1)

试试这个。希望它有所帮助。

    --Object type creation
CREATE OR REPLACE TYPE result_type
IS
  OBJECT
  (
    v_km    VARCHAR2(50),
    v_objID VARCHAR2(50) );

--Table type
CREATE OR REPLACE type result_tab
IS
  TABLE OF result_type;

  --Procedure creation and out the collection
CREATE OR REPLACE
PROCEDURE gps_coord(
    v_x IN FLOAT,
    v_y IN FLOAT,
    v_result OUT result_tab)
AS
  v_out result_tab;
BEGIN
  SELECT result_type(P.KM , P.OBJECTID) BULK COLLECT
  INTO v_out
  FROM SDE.POINTS p
  WHERE sde.st_intersects(P.SHAPE,sde.st_buffer(sde.st_transform( sde.st_point(v_y,v_x,4326),32639) ,5000))=1;
  FOR i IN v_out.FIRST..v_out.LAST
  LOOP
    dbms_output.put_line(v_out(i).v_km||' '||v_out(i).v_objID);
  END LOOP;
END;