rt。

解决方案 »

  1.   

    首先建立一个包
    CREATE OR REPLACE PACKAGE GLOBALPKG
    AS
    TYPE RCT1 IS REF CURSOR;
    TRANCOUNT INTEGER := 0;
    IDENTITY INTEGER;
    END;
    然后建立存储过程
    CREATE OR REPLACE PROCEDURE GetColumnList
    (
    TableName                       IN       VARCHAR2 DEFAULT NULL,
    cur_OUT                         OUT  GLOBALPKG.RCT1
    )
    AS
    BEGIN
    /*--------获取表信息---------*/ OPEN cur_OUT FOR
    Select IIDD as 编号, SortID as 排序,  ColumnName as 列名 , ColumnName_Dis as 显示列名, 
               IsDisplay_Grid as 浏览显示, IsEditVisible as 编辑显示,ColumnType as 字段类型, 
               ColumnLength as 长度 , DisplaySize as 控件大小  from LSA_Column where 
               TableEName=GetColumnList.TableName and IsDel <> '1'  ORDER BY SortID ;
    END;