CREATE OR REPLACE PROCEDURE T_PERSON_ALL_SELECTINFO(
CU_PERSON_O OUT REF CURSOR;
)
IS
BEGIN
OPEN CU_PERSON_O FOR
SELECT * FROM T_Person;
END T_PERSON_ALL_SELECTINFO;dbcon为已经打开的数据库连接OracleDataAdapter.SelectCommand =
New OracleCommand("T_PERSON_ALL_SELECTINFO", dbcon)OracleDataAdapter.SelectCommand.AddParameter("CU_PERSON_O", OracleDbType.RefCursor, ParameterDirection.Output)OracleDataAdapter.SelectCommand.ExecuteNonQuery()DataAdapter.Fill(DataSet.Table,CType(.Parameters("CU_PERSON_O").Value, Types.OracleRefCursor))
CU_PERSON_O OUT REF CURSOR;
)
IS
BEGIN
OPEN CU_PERSON_O FOR
SELECT * FROM T_Person;
END T_PERSON_ALL_SELECTINFO;dbcon为已经打开的数据库连接OracleDataAdapter.SelectCommand =
New OracleCommand("T_PERSON_ALL_SELECTINFO", dbcon)OracleDataAdapter.SelectCommand.AddParameter("CU_PERSON_O", OracleDbType.RefCursor, ParameterDirection.Output)OracleDataAdapter.SelectCommand.ExecuteNonQuery()DataAdapter.Fill(DataSet.Table,CType(.Parameters("CU_PERSON_O").Value, Types.OracleRefCursor))
CREATE OR REPLACE PACKAGE PAG_CUR_TEST
AS
TYPE c_TYPE IS REF CURSOR;
PROCEDURE P_CUR_TEST(p_CUR IN OUT c_TYPE);
END PAG_CUR_TEST;
/
CREATE OR REPLACE PACKAGE BODY PAG_CUR_TEST
AS PROCEDURE P_CUR_TEST(p_CUR IN OUT c_TYPE)
AS
BEGIN
OPEN c_TYPE FOR SELECT * FROM TABLE_NAME;
END P_CUR_TEST;
END PAG_CUR_TEST;
/
三楼的例子有问题...
Line: 7
Text: OPEN c_TYPE FOR SELECT * FROM TABLE_NAME;