首先建立一个包
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;
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/60217/viewspace-905840/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/60217/viewspace-905840/