Foros del web, para los que viven de bits

create or replace PACKAGE P_CLIENTES AS

  type empcur is ref cursor;
  
  FUNCTION f_mostrar_clientes RETURN empcur;

END P_CLIENTES;

FUNCTION f_mostrar_clientes RETURN empcur AS
pcursor empcur;
BEGIN
    open pcursor for
      select * from clientes;
    return pcursor;
END f_mostrar_clientes;

    Private Sub funcion()

	' Creo la conexión
	Oraclecon.Open()
	myCMD = New OracleCommand
	myCMD.Connection = Oraclecon


	Dim Ds As New DataSet

	' Llamada al procedimiento
	Dim OracleParameter1 As Oracle.DataAccess.Client.OracleParameter = New Oracle.DataAccess.Client.OracleParameter
	myCMD.CommandText = "p_clientes.f_mostrar_clientes"
	myCMD.CommandType = CommandType.StoredProcedure

	'Paso los parámetros al la función/procedimiento de dos formas

	' 1)
	' Si lo llamo de estar forma, al ejecutar me dice:
	' parameter 'RETURN_VALUE': OracleType.Cursor parameters may only be ParameterDirection.Output parameters
	myCMD.Parameters.Add(New OracleParameter("RETURN_VALUE", OracleType.Cursor)).Direction = ParameterDirection.ReturnValue

	' o 2)
	' Y si lo llamo de esta otra:
	' ORA-06550: línea 1, columna 35:
	' PLS-00382: el tipo de expresión no es correcto
	' ORA-06550: línea 1, columna 7:
	' PL/SQL: Statment ignored
	myCMD.Parameters.Add(New OracleParameter("RETURN_VALUE", Oracle.DataAccess.Client.OracleDbType.RefCursor)).Direction = ParameterDirection.ReturnValue

	Dim MyDA As New OracleDataAdapter(myCMD)

	Try
        	MyDA.Fill(Ds)
           	Catch myex As Exception
                MsgBox(myex.Message)
                cerrar()
        End Try

        DataGrid1.DataSource = Ds.Tables(0)

	cerrar()

    End Sub

myCMD.CommandText = "Select p_clientes.f_mostrar_clientes() from dual"
myCMD.CommandType = CommandType.Text