Devart Forums

Code: Select all

 CREATE OR REPLACE
PACKAGE SJT_Test AS
  TYPE NAME_RECORD IS RECORD 
   ( lastname people.LAST_NAME%TYPE, 
     firstname people.FIRST_NAME%TYPE);

  TYPE NAME_TABLE IS TABLE OF NAME_RECORD INDEX BY BINARY_INTEGER;

  PROCEDURE Get_name_table
    ( name_info OUT NAME_TABLE );
END SJT_Test;

Code: Select all

CREATE PACKAGE SJT_Test AS

TYPE NAME_RECORD IS RECORD 
   ( lastname people.LAST_NAME%TYPE, 
     firstname people.FIRST_NAME%TYPE); 

type NAME_TABLE IS REF CURSOR RETURN NAME_RECORD;

procedure Get_name_table(RSET OUT NAME_TABLE);

END SJT_Test;

CREATE PACKAGE BODY SJT_Test AS
procedure Get_name_table(RSET OUT NAME_TABLE)
IS
BEGIN
open RSET for select lastname, firstname from people;
END Get_name_table;

END SJT_Test;


      OracleConnection con = new OracleConnection("Server=ORA;User Id=scott;Password=tiger;");
      con.Open();
      OracleCommand command = new OracleCommand("SJT_Test.Get_name_table");
      command.Connection = con;
      command.ParameterCheck = true;
      command.CommandType = CommandType.StoredProcedure;
      IDataReader reader = command.ExecuteReader(); //result recordset is here 
      while (reader.Read()) {
      }