求ado.net访问pl/sql存储过程并返回结果集

利用ado.net访问pl/sql存储过程并返回结果集,怎样把结果集一次全部返回
我是这样实现的,不能返回结果,求解:
vb.net 调用存储过程并传参数Dim myconnection As OracleConnection
Dim strsql = "User ID=card;Password=card;Data Source=orcltest"     'OK测试大机Oracle
myconnection = New OracleConnection(strsql)
myconnection.Open()
Dim oraclecomm As OracleCommand = Nothing
oraclecomm = New OracleCommand("trans", myconnection)
oraclecomm.CommandType = CommandType.StoredProcedure
oraclecomm.Parameters.Add("mcht", OracleType.VarChar, 50)
oraclecomm.Parameters("mcht").Direction = ParameterDirection.Input
oraclecomm.Parameters("mcht").Value = Mer
...
oraclecomm.Parameters.Add("v_ename", OracleType.Cursor)
oraclecomm.Parameters("v_ename").Direction = ParameterDirection.Output
pl/sql存储过程:CREATE OR REPLACE PROCEDURE "CARD"."TRANS"
(
mcht in varchar,
sett in varchar,
startcardno in varchar,
endcardno in varchar,
tx_code in varchar,
banlace in varchar,
startdate in varchar,
enddate in varchar,
traceno in varchar,
batchno in varchar,
termid in varchar,
document in varchar,
cardhold in varchar,
lxname in varchar,
telphone in varchar,
gkdate in varchar,
pagesize in number,
currpage in number,
recordcount out number,
v_ename out varchar
)
as
CURSOR trans_cursor is select cardno from translog;
--v_ename translog.cardno%TYPE;
strsql varchar(1000);
begin
  recordcount := 888;
  
  OPEN trans_cursor;
  loop
    FETCH trans_cursor into v_ename;
    exit when trans_cursor%NOTFOUND;
  end loop;
  
  close trans_cursor;
end trans;
/