Reading return values in ArrayBinding situation

Question

Hi All.
I'm currently using ArrayBinding to batch insert/update records into a table. I currently have an InOut parameter set that will either set or return the ID of the row depending if it's an INSERT or UPDATE.
What I'm struggling to do is to actually read the values that come back after ExecuteNonQuery. here is some excerpts of the code:
OracleParameter requirementId = new OracleParameter("p_id", OracleDbType.Int32, ParameterDirection.InputOutput);
               requirementId.ArrayBindStatus = new OracleParameterStatus[reqDS.MyRequirements.Count];
<set up the other params>
<set up the values in a loop>
requirementCmd.CommandText          = "PCM_PKG_REQUIREMENT_DAC.USP_SAVE_REQUIREMENT";
                    requirementCmd.ArrayBindCount     = reqDS.MyRequirements.Count;
requirementCmd.ExecuteNonQuery();
Now what? I've tried all sorts of ways to get to this but to no avail. My code to get it currently looks like this:
for (int j = 0; requirementId.ArrayBindStatus.Length - 1;j++)
                         //value = CType(outParameter.Value, Object)(i);
                         requirementToReqVersion.Add(reqDS.MyRequirements.RequirementId,requirementId[j].Value);               
This doesnt even compile but you can see what I'm getting at. I just need to retrieve a value given an index in the array bind? Thanks for the help in advance..
jk     

Answer 1

In VB.NET, we do something like this:
Option Explicit On
Option Strict On
Dim values() As Object
ReDim values(versions.Length - 1)     ' expected nbr of returned values
ReDim identities(versions.Length - 1)
Dim outParameter As OracleParameter
outParameter = command.Parameters("NameOfOutParameter")
CDbLateBinding.GetObjectArrayFromOutParameter(outParameter, values)
Dim i As Integer
For i = 0 To values.Length - 1
identities(i) = CType(CType(values(i), OracleDecimal).ToString, Decimal)
Next
' Separate file
Option Strict Off
Public Class CDbLateBinding
Public Shared Sub GetObjectArrayFromOutParameter(ByVal parameter As OracleParameter, _
ByVal values() As Object)
Dim i As Integer
For i = 0 To parameter.ArrayBindStatus.Length - 1
values(i) = CType(parameter.Value, Object)(i) ' Option Strict Off
Next
End Sub
End Class
Looks a bit awkward but works fine.
Armin