Working with OracleParameters - Any Help?

Question

Hi,
I created a stored procedure with 3 IN parameters(out of 2 are single value,3rd one is pl/sql table) and 1 OUT Parameter (of PLSQL Table Return type).
I want take the SP results in VB.NET. i used plsql associative arrays, but i am getting error as
'OracleParameter.Value is Invalid.'
How to set parameter.size for the Output value.. I don't know exactly how many rows will be retrieved.
How to use oracleparametercollection.
How to return cursors from the plsql table.( gone through the asktom article. but i am unable to follow it. getting error as expression is of wrong type.)
Here the stored procedure that i have written which is a wrapper for another procedure( and that procedure working properly in oracle).
PL/SQL Procedure
procedure Storage_Charges_with_prd(LotNo IN Number,CurrDate IN Date,m_prd IN products_table_t,charges_table out storage_charges_table) is
     m_products pkg_coldstorage.products_type;
     type curProducts is REF CURSOR ;
     cv_products curProducts;     
     -- type strgchgs is table of storage_charges_rec index by binary_integer;
     --charges_table storage_charges_table;
     prd_table products_table_t;
     m_SNo Number:=1;
     output_cursor SYS_REFCURSOR;
BEGIN
     For m_SNo in 1..m_prd.Count
     LOOP
          prd_table(m_SNo):=m_prd(m_SNo);
     END LOOP;
charges_table:= pkg_coldstorage.CALCULATE_STORAGE_CHARGES1(Lotno,CurrDate,prd_table);
     --return charges_table;
dbms_output.put_line('Charges Table Row Count In - Storage Charges with Product Procedure ' ||charges_table.count);
-- Open output_cursor For Select * From table(charges_table );
END Storage_Charges_with_prd;
in VB.NET - the Codings are
Dim mLotno, mCurrDate, SNo, Transid, ProductId, UnitId, ProductName, Unit_Name, Calculation_Method, Season_start_date, season_end_date, labour, Storage_Rate, Seasonal_Storage_Rate As New OracleParameter()
mLotno.OracleDbType = OracleDbType.Decimal
mCurrDate.OracleDbType = OracleDbType.Date
mLotno.Value = LotNo
mCurrDate.Value = CurrDate
mLotno.Size = 1
mCurrDate.Size = 1
SNo.CollectionType = OracleCollectionType.PLSQLAssociativeArray
Transid.CollectionType = OracleCollectionType.PLSQLAssociativeArray
ProductId.CollectionType = OracleCollectionType.PLSQLAssociativeArray
UnitId.CollectionType = OracleCollectionType.PLSQLAssociativeArray
ProductName.CollectionType = OracleCollectionType.PLSQLAssociativeArray
Unit_Name.CollectionType = OracleCollectionType.PLSQLAssociativeArray
Calculation_Method.CollectionType = OracleCollectionType.PLSQLAssociativeArray
Season_start_date.CollectionType = OracleCollectionType.PLSQLAssociativeArray
season_end_date.CollectionType = OracleCollectionType.PLSQLAssociativeArray
labour.CollectionType = OracleCollectionType.PLSQLAssociativeArray
Storage_Rate.CollectionType = OracleCollectionType.PLSQLAssociativeArray
Seasonal_Storage_Rate.CollectionType = OracleCollectionType.PLSQLAssociativeArray
SNo.Direction = ParameterDirection.Input
Transid.Direction = ParameterDirection.Input
ProductId.Direction = ParameterDirection.Input
ProductName.Direction = ParameterDirection.Input
Unit_Name.Direction = ParameterDirection.Input
Calculation_Method.Direction = ParameterDirection.Input
Season_start_date.Direction = ParameterDirection.Input
season_end_date.Direction = ParameterDirection.Input
labour.Direction = ParameterDirection.Input
Storage_Rate.Direction = ParameterDirection.Input
Seasonal_Storage_Rate.Direction = ParameterDirection.Input
SNo.OracleDbType = OracleDbType.Decimal
Transid.OracleDbType = OracleDbType.Decimal
ProductId.OracleDbType = OracleDbType.Decimal
ProductName.OracleDbType = OracleDbType.Varchar2
Unit_Name.OracleDbType = OracleDbType.Varchar2
Calculation_Method.OracleDbType = OracleDbType.Decimal
Season_start_date.OracleDbType = OracleDbType.Date
season_end_date.OracleDbType = OracleDbType.Date
labour.OracleDbType = OracleDbType.Decimal
Storage_Rate.OracleDbType = OracleDbType.Decimal
Seasonal_Storage_Rate.OracleDbType = OracleDbType.Decimal
Dim msno(ProductRates.Rows.Count) As Decimal
Dim mtransid(ProductRates.Rows.Count) As Decimal
Dim mproductid(ProductRates.Rows.Count) As Decimal
Dim mproductname(ProductRates.Rows.Count) As String
Dim munit_name(ProductRates.Rows.Count) As String
Dim mcalculation_method(ProductRates.Rows.Count) As Decimal
Dim mseason_start_date(ProductRates.Rows.Count) As Date
Dim mseason_end_date(ProductRates.Rows.Count) As Date
Dim mlabour(ProductRates.Rows.Count) As Decimal
Dim mstorage_rate(ProductRates.Rows.Count) As Decimal
Dim mseasonal_storage_rate(ProductRates.Rows.Count) As Decimal
For i As Integer = 0 To ProductRates.Rows.Count - 1
msno(i) = ProductRates.Rows(i).Item("SNo")
mtransid(i) = ProductRates.Rows(i).Item("transid")
mproductid(i) = ProductRates.Rows(i).Item("Productid")
mproductname(i) = ProductRates.Rows(i).Item("ProductName")
munit_name(i) = ProductRates.Rows(i).Item("Unit_Name")
mcalculation_method(i) = ProductRates.Rows(i).Item("Calculation_Method")
mseason_start_date(i) = ProductRates.Rows(i).Item("Season_start_date")
mseason_end_date(i) = ProductRates.Rows(i).Item("season_end_date")
mlabour(i) = ProductRates.Rows(i).Item("labour")
mstorage_rate(i) = ProductRates.Rows(i).Item("Storage_Rate")
mseasonal_storage_rate(i) = ProductRates.Rows(i).Item("Seasonal_storage_rate")
Next
SNo.Value = msno
Transid.Value = mtransid
ProductId.Value = mproductid
ProductName.Value = mproductname
Unit_Name.Value = munit_name
Calculation_Method.Value = mcalculation_method
Season_start_date.Value = mseason_start_date
season_end_date.Value = mseason_end_date
labour.Value = mlabour
Storage_Rate.Value = mstorage_rate
Seasonal_Storage_Rate.Value = mseasonal_storage_rate
'-- Set the Size
SNo.Value = ProductRates.Rows.Count
Transid.Value = ProductRates.Rows.Count
ProductId.Value = ProductRates.Rows.Count
ProductName.Value = ProductRates.Rows.Count
Unit_Name.Value = ProductRates.Rows.Count
Calculation_Method.Value = ProductRates.Rows.Count
Season_start_date.Value = ProductRates.Rows.Count
season_end_date.Value = ProductRates.Rows.Count
labour.Value = ProductRates.Rows.Count
Storage_Rate.Value = ProductRates.Rows.Count
Seasonal_Storage_Rate.Value = ProductRates.Rows.Count
''-- Set the Array Bind Size For Unitname, Productname
'Dim arr1(ProductRates.Rows.Count) As Integer
'Dim arr2(ProductRates.Rows.Count) As Integer
'For i As Integer = 0 To ProductRates.Rows.Count - 1
' arr1(i) = 50
' arr2(i) = 50
'Next i
'ProductName.ArrayBindSize = arr1
'Unit_Name.ArrayBindSize = arr2
Dim daStorageCharges As New OracleDataAdapter("pkg_coldstorage.storage_charges_with_prd", DbCn)
daStorageCharges.SelectCommand.CommandType = CommandType.StoredProcedure
With daStorageCharges.SelectCommand.Parameters
.Add(mLotno)
.Add(mCurrDate)
.Add(SNo)
.Add(Transid)
.Add(ProductId)
.Add(ProductName)
.Add(Unit_Name)
.Add(Calculation_Method)
.Add(Season_start_date)
.Add(season_end_date)
.Add(labour)
.Add(Storage_Rate)
.Add(Seasonal_Storage_Rate)
End With
Dim oSNo, oTransID, oTransDate, oProductID, oProductName, oUnitID, oUnitName, oQtyIn, oQtyOut, _
oBalanceQty, oWtIn, oWtOut, oBalanceWt, oLabour, oLabourAmount, oStorageRate, oStorageAmount, oTotal As New OracleParameter
oSNo.OracleDbType = OracleDbType.Decimal
oTransID.OracleDbType = OracleDbType.Decimal
oTransDate.OracleDbType = OracleDbType.Date
oProductID.OracleDbType = OracleDbType.Decimal
oProductName.OracleDbType = OracleDbType.Varchar2
oUnitID.OracleDbType = OracleDbType.Decimal
oUnitName.OracleDbType = OracleDbType.Varchar2
oQtyIn.OracleDbType = OracleDbType.Decimal
oQtyOut.OracleDbType = OracleDbType.Decimal
oBalanceQty.OracleDbType = OracleDbType.Decimal
oWtIn.OracleDbType = OracleDbType.Decimal
oWtOut.OracleDbType = OracleDbType.Decimal
oBalanceWt.OracleDbType = OracleDbType.Date
oLabour.OracleDbType = OracleDbType.Decimal
oLabourAmount.OracleDbType = OracleDbType.Decimal
oStorageRate.OracleDbType = OracleDbType.Decimal
oStorageAmount.OracleDbType = OracleDbType.Decimal
oTotal.OracleDbType = OracleDbType.Decimal
oSNo.Direction = ParameterDirection.Output
oTransID.Direction = ParameterDirection.Output
oTransDate.Direction = ParameterDirection.Output
oProductID.Direction = ParameterDirection.Output
oProductName.Direction = ParameterDirection.Output
oUnitID.Direction = ParameterDirection.Output
oUnitName.Direction = ParameterDirection.Output
oQtyIn.Direction = ParameterDirection.Output
oQtyOut.Direction = ParameterDirection.Output
oBalanceQty.Direction = ParameterDirection.Output
oWtIn.Direction = ParameterDirection.Output
oWtOut.Direction = ParameterDirection.Output
oBalanceWt.Direction = ParameterDirection.Output
oLabour.Direction = ParameterDirection.Output
oLabourAmount.Direction = ParameterDirection.Output
oStorageRate.Direction = ParameterDirection.Output
oStorageAmount.Direction = ParameterDirection.Output
oTotal.Direction = ParameterDirection.Output
'Dim prdarr() As Integer
'Dim unitarr() As Integer
'for i as Integer = 0 to
'Next i
With daStorageCharges.SelectCommand.Parameters
.Add(oSNo)
.Add(oTransID)
.Add(oTransDate)
.Add(oProductID)
.Add(oProductName)
.Add(oUnitID)
.Add(oUnitName)
.Add(oQtyIn)
.Add(oQtyOut)
.Add(oBalanceQty)
.Add(oWtIn)
.Add(oWtOut)
.Add(oBalanceWt)
.Add(oLabour)
.Add(oLabourAmount)
.Add(oStorageRate)
.Add(oStorageAmount)
.Add(oTotal)
End With
'Dim a As OracleParameterCollection
Dim dtstoragecharges As New DataTable
daStorageCharges.Fill(dtstoragecharges)
tried with reader but unable.
please provide any example. so that i will use it.
Please provide any help
Thanks in Advance
Mohan Raj K.

Answer 1

@Eric
I am a pl/sql noob, but I did manage to retrieve a ref_cursor via .net as follows:
CREATE or REPLACE PACKAGE myVars AS
TYPE CommonCurTyp is REF CURSOR;
--my test server is 8i need to define cursor in a package
END;
CREATE OR REPLACE PROCEDURE jtest(
                    v_repaircur OUT myVars.CommonCurTyp
IS
BEGIN
OPEN v_repaircur FOR
SELECT * FROM BLAH;
END;
--vb.net code:
dbConn.Open()
Dim selectCommand As New OracleCommand("jtest", dbConn)
selectCommand.CommandType = CommandType.StoredProcedure
selectCommand.Parameters.Add(New OracleParameter("v_repaircur", OracleDbType.RefCursor)).Direction = ParameterDirection.Output
Dim adapter As New OracleDataAdapter(selectCommand)
adapter.TableMappings.Add("Table", "repair_codes")
Dim ds As New DataSet
adapter.Fill(ds) 'boom! here's yer dataset
dbConn.Close()
with some minor hacking, you should be able to get it, HTH