create or replace package TestPackage is

    type mycursor is ref cursor; -- 定义游标变量

     procedure GetRecords(ret_cursor out mycursor); -- 定义过程，用游标变量作为返回参数

end TestPackage;

包体是这么定义的：

create or replace package body TestPackage is

/*过程体*/

          procedure GetRecords(ret_cursor out mycursor) as

          begin

              open ret_cursor for select * from test;

          end GetRecords;

end TestPackage;

    已经万事具备了，让我们前台调用试试：

string connectionString = "Data Source=YXZHANG;User ID=YXZHANG;Password=YXZHANG";

     string queryString = "TestPackage.GetRecords";     //注意调用方法

     OracleConnection cn = new OracleConnection(connectionString);

     OracleCommand cmd = new OracleCommand(queryString,cn);

     cmd.CommandType = CommandType.StoredProcedure;

     cmd.Parameters.Add("ret_cursor",OracleType.Cursor);     //注意这里的类型

     cmd.Parameters["ret_cursor"].Direction = ParameterDirection.Output;

     try

     {

         cn.Open();

         OracleDataReader dr = cmd.ExecuteReader();

         int i = 1;

         while( dr.Read() )

         {

              Console.WriteLine("Record {0}:",i++);

              Console.WriteLine("ID:{0}   Name:{1} Age:{2}",

dr.GetOracleNumber(0),

dr.GetOracleString(1),

dr.GetOracleNumber(2));

              Console.WriteLine();

         }

         dr.Close();        //用完DataReader对象要记得及时关闭

         cn.Close();        //DataReader对象未关闭之前，不能关闭连接

     }

     catch( OracleException ex )

     {

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9]  下一页