Try
daSelect = New OracleDataAdapter
daSelect.SelectCommand = New OracleCommand
daSelect.SelectCommand.CommandText = procedureName
daSelect.SelectCommand.CommandType = CommandType.StoredProcedure
Me.subConnectionOpen()
daSelect.SelectCommand.Connection = Me.Connection
With daSelect.SelectCommand
.Parameters.Add(paras(0).NamePara, OracleType.Number)
.Parameters(paras(0).NamePara).Direction = ParameterDirection.Output
End With
daSelect.SelectCommand.ExecuteNonQuery()
funcExcuteSpNonQuery = daSelect.SelectCommand.Parameters(paras(0).NamePara).Value
Catch ex As Exception
funcExcuteSpNonQuery = ""
Throw ex
Finally
'Me.subConnectionClose()
End Try
参数设定--
Public Structure SpParameterPublic NamePara As String '引数名
Public ValuePara As String '引数値
End Structure
Dim paras(0) As SpParameter
paras(0).NamePara = "pRET_CODE"
'paras(0).ValuePara = 3