Assuming the code below executes successfully, what should the value of
ReturnValue be? It is returning a 1 but I am not sure how to interpret
that.
The stored procedure does not perform a commit and I must do it but I
am not sure how. Any suggestions?
Using cnLims
cnLims.ConnectionString = GetLimsConnectString()
cnLims.Open()
'Dim command As OracleCommand = New OracleCommand
Dim command As OracleCommand = cnLims.CreateCommand()
command.CommandText = "Result_API.Enter_Result"
command.CommandType = CommandType.StoredProcedure
command.Parameters.Add(New OracleParameter("Rslt_Id",
OracleType.Number)).Value = CLng(RsltID)
command.Parameters("Rslt_ID").Direction =
ParameterDirection.Input
command.Parameters.Add(New OracleParameter("New_Value",
OracleType.VarChar)).Value = New_Value
command.Parameters("New_Value").Direction =
ParameterDirection.Input
command.Parameters.Add(New OracleParameter("Stat",
OracleType.Number)).Value = -1
command.Parameters("Stat").Direction =
ParameterDirection.InputOutput
command.Parameters.Add(New OracleParameter("Rslt_Origin",
OracleType.VarChar)).Value = "A"
command.Parameters("Rslt_Origin").Direction =
ParameterDirection.Input
command.Parameters.Add(New OracleParameter("SigFigResult",
OracleType.VarChar)).Value = ""
command.Parameters("SigFigResult").Direction =
ParameterDirection.InputOutput
command.Parameters.Add(New
OracleParameter("Result_Inlimit", OracleType.VarChar)).Value = ""
command.Parameters("Result_Inlimit").Direction =
ParameterDirection.InputOutput
Dim returnValue As Integer
Debug.Print("ReturnValue before ExecuteNonQuery(): " &
returnValue)
returnValue = command.ExecuteNonQuery()
Debug.Print("ReturnValue after ExecuteNonQuery(): " &
returnValue)
End Using