Plsql 在vb.net中获取空数据集结果

用pl/sql编写过程。在vb.net中调用此过程。我想用pl/sql过程的结果填充数据集。但我得到的数据集是空的。在pl/sql中，我可以看到输出。在我的应用程序中，我使用oracle.dataaccess.client dll。请帮助我在dataset中获取结果

 using  this dll
 Imports Oracle.DataAccess.Client
my code



 Dim orc1 As Oracle.DataAccess.Client.OracleConnection
 orc1 = New OracleConnection("Data Source=xxx;User Id=qqq;Password=123;")
 orc1.open()
Dim objcommand3 As New Oracle.DataAccess.Client.OracleCommand

objcommand3.Connection = orc1
objcommand3.CommandText = "SMSDND.pro_mod934"
objcommand3.CommandType = CommandType.StoredProcedure
Dim oraada As New OracleDataAdapter(objcommand3)
            'oraada .SelectCommand =objcommand3
Dim ods As New DataSet
oraada.Fill(ods)




procedure in pl/sql(using oracle toad)


CREATE  procedure SMSDND.pro_mod934
as
cursor c78 is 
SELECT smsdnd.phonenumbers_tbl.FLD_PHONENUMBER 
FROM smsdnd.phonenumbers_tbl
WHERE not exists (select smsdnd.smsdnd_tbl.FLD_PHONENUMBERS from smsdnd.smsdnd_tbl
where smsdnd.smsdnd_tbl.FLD_PHONENUMBERS = smsdnd.phonenumbers_tbl.FLD_PHONENUMBER and   smsdnd.smsdnd_tbl.FLD_OPSTYPE='A');
m  smsdnd.phonenumbers_tbl.FLD_PHONENUMBER %type;
BEGIN
 OPEN c78;
LOOP
 FETCH c78 INTO m;
EXIT when c78%NOTFOUND;
DBMS_OUTPUT.PUT_LINE(''|| m);
END LOOP;
CLOSE c78;
 EXCEPTION WHEN OTHERS THEN 
  raise_application_error(-20001,'An error was encountered - '||SQLCODE||' -ERROR-  '||SQLERRM);
end;
/

---

程序是什么样子的？您是否得到任何异常或只是一个空数据集？当你运行这个过程（在Oracle中使用相同的UID/PWD）时，你会得到结果吗？等等，我会编辑我的任务并附加这个过程，然后result@David我没有得到任何例外。空空如也dataset@david是的，我在OracleToad中运行该过程时得到了结果