用datatable存儲oracle輸出值

         ' GetDBConn()自定義的包含connectstring的oracle db連接
         Dim  conn  As  OracleConnection  =  GetDBConn()
        
         ' 判斷是否打開
         If  conn.State  <>  ConnectionState.Open  Then
              Return   Nothing
         End   If
        
        '  參數
         Dim  para1  As   New  OracleParameter( " fields " , OracleDbType.Varchar2, ParameterDirection.Input)
        para1.Value  =  fields
         Dim  para2  As   New  OracleParameter( " viewname " , OracleDbType.Varchar2, ParameterDirection.Input)
        para2.Value  =  viewname
         Dim  para3  As   New  OracleParameter( " whereclause " , OracleDbType.Varchar2, ParameterDirection.Input)
        para3.Value  =  whereclause
         Dim  para4  As   New  OracleParameter( " orderby " , OracleDbType.Varchar2, ParameterDirection.Input)
        para4.Value  =  orderby

         Dim  para5  As   New  OracleParameter( " userid " , OracleDbType.Int32, ParameterDirection.Input)
        para5.Value  =  intWorkID

        ' 選擇command類型為StoredProcedure以及Procedure名
         Dim   command   As   New  OracleCommand
         command .Connection  =  conn
         command .CommandText  =   " pkgcursor.getcur "
         command .CommandType  =  CommandType.StoredProcedure
      
        ' 參數輸入
         command .Parameters.Add(para1)
         command .Parameters.Add(para2)
         command .Parameters.Add(para3)
         command .Parameters.Add(para4)
         command .Parameters.Add(para5)
        ' outpara是procedure內定義的輸出函數
         Dim  outpara  As   New  OracleParameter( " cur " , OracleDbType.RefCursor,  Data.ParameterDirection.Output)
         command .Parameters.Add(outpara)
       
        ' 接受輸出值
         Dim  dr  As  OracleDataReader
        dr  =   command .ExecuteReader()
         ' 用datatable裝輸出值
         Dim  dt  As   New  DataTable
        dt.Load(dr)
         Return  dt