首先建立一个包 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;
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;