用.NET调用oracle的存储过程返回记录集

　　Oracle的存储过程返回记录集，要害之处是要用游标。
　　关于数据库的游标(cursor)大家肯定都接触不少，我们可以通过OPEN,FETCH,CLOSE操作控制游标进行各种方便的操作，这方面的例子我就不在重复了。我们现在要介绍的是游标变量(cursor variable)。类似游标，游标变量也是指向一个查询结果集的当前行。不同的是，游标变量能为任何类型相似(type-compatible)的查询打开，而并不是绑定到某一个特定的查询。通过游标变量，你可以在数据库的数据提取中获得更多的方便。
　　
　　首先是建立表。
　　
　　CREATE TABLE LIHUAN.BILL_POINTS
　　(
　　　　POINTS_ID NUMBER(10,0) NOT NULL,
　　　　CUSTOMER_ID NUMBER(10,0) NOT NULL,
　　　　BILL_POINT_NO NUMBER(2,0) DEFAULT 1 NOT NULL,
　　　　CONSTRAINT PK_BILL_POINTS PRIMARY KEY (POINTS_ID)
　　)
　　/
　　
　　其次，建PACKAGE
　　CREATE OR REPLACE PACKAGE LIHUAN.YY_PKG_BILL_POINT_NO/*取得用户的所有计费电序号*/
　　IS
　　TYPE T_CURSOR IS REF CURSOR;
　　
　　　 PROCEDURE BILL_POINT_NO(P_CUSTOMER_ID BILL_POINTS.CUSTOMER_ID%TYPE,
　　　 Re_CURSOR OUT T_CURSOR);
　　END;
　　/
　　
　　再次，建PACKAGE BODY
　　CREATE OR REPLACE PACKAGE BODY LIHUAN.YY_PKG_BILL_POINT_NO/*取得用户的所有计费电序号*/
　　IS
　　
　　PROCEDURE BILL_POINT_NO(P_CUSTOMER_ID BILL_POINTS.CUSTOMER_ID%TYPE,
　　　 Re_CURSOR OUT T_CURSOR)
　　　 IS
　　　 V_CURSOR T_CURSOR;
　　　 BEGIN
　　　　　OPEN V_CURSOR FOR
　　　　　　　　select Bill_Point_No from BILL_POINTS where CUSTOMER_ID =P_CUSTOMER_ID;
　　　　　　　 Re_CURSOR := V_CURSOR;
　　　 END;
　　END;
　　/
　　
　　最后，在.NET中程序调用。
　　public DataSet Bill_Point_No(string CUSTOMER_ID)//ok
　　　{
　　　 DataSet dataset = new DataSet();
　　　 Hashtable HT=new Hashtable();
　　　 HT.Add("P_CUSTOMER_ID",CUSTOMER_ID);
　　　 if(RunProcedure("Re_CURSOR",OracleType.Cursor,ref dataset,HT,bmsOracleUser+".YY_PKG_BILL_POINT_NO.BILL_POINT_NO",bmsOracleConnectionString))
　　　 {
　　　　;
　　　 }
　　　 else
　　　 {
　　　　dataset=null;
　　　 }
　　　 return dataset;
　　　}
　　
　　public bool RunProcedure(string ReturnParameter,OracleType ParamType,ref DataSet Dataset,Hashtable HT ,string ProcedureName,string OracleConnection)
　　　{
　　　 System.Data.OracleClient.OracleConnection dsconnection = new System.Data.OracleClient.OracleConnection(OracleConnection);
　　　 System.Data.OracleClient.OracleCommand dacommand = new System.Data.OracleClient.OracleCommand(ProcedureName,dsconnection);
　　　 dsconnection.Open();
　　　 dacommand.CommandType=CommandType.StoredProcedure;
　　　 IDictionaryEnumerator Enumerator;
　　　 Enumerator = HT.GetEnumerator();
　　　 object Value=null;
　　　 OracleParameter OracleParam;
　　　 OracleParam = dacommand.Parameters.Add(new OracleParameter(ReturnParameter,ParamType));
　　　 OracleParam.Direction = ParameterDirection.Output;

　　　 while(Enumerator.MoveNext())
　　　 {
　　　　Value = Enumerator.Value;
　　　　OracleParam=dacommand.Parameters.Add(new OracleParameter(Enumerator.Key.ToString(), Value));
　　　 }
　　　 OracleDataAdapter ODAdapter=new OracleDataAdapter(dacommand);
　　　　　　　　try
　　　 {
　　　　ODAdapter.Fill(Dataset);
　　　　 return true;
　　　 }
　　　 catch(System.Exception e)
　　　 {
　　　　e.ToString();
　　　　return false;
　　　 }
　　　 finally
　　　 {
　　　　HT.Clear();
　　　　dacommand.Parameters.Clear();
　　　　dsconnection.Close();
　　　 }
　　}