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

文章出处：伟网动力(http://www.weiw.com)
有何见解，可以来此论坛 http://www.weiw.com/bbs/
转贴请标明出处，谢谢。
最近做一个项目，为了提高数据库安全性，客户要求所有数据库操作都要放在存储过程。象一般的更新操作，返回一个值的，都比较容易实现。而要想返回记录集就比较麻烦，我在网上搜了一下，这方面的文章并不多。在此总结一下，供大家参考。
有关.NET如何访问oracle数据库，在此就不介绍了。相关的资料也很多，有兴趣的朋友可以看下文。
使用ASP.NET访问Oracle数据库的方法
http://www.weiw.com/article/list.asp?id=649

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();
   }
 }