Public cnn As OracleConnection = New OracleConnection(ConfigurationManager.ConnectionStrings("oradb").ToString())
Public cmm As OracleCommand = Nothing
End Sub
Public Sub TxProcedure(ByVal procedureName As String, ByVal functionName As String, ByVal id As String)
cnn.Open()
cmm = New OracleCommand()
cmm.Connection = cnn
cmm.CommandType = CommandType.StoredProcedure
cmm.CommandText = procedureName
cmm.Parameters.Add("v_function_name", OracleType.VarChar2)
cmm.Parameters(0).Value = functionName
cmm.Parameters(0).Direction = ParameterDirection.Input
cmm.Parameters.Add("v_id", OracleType.VarChar2)
cmm.Parameters(1).Value = id
cmm.Parameters(1).Direction = ParameterDirection.Input
cmm.Parameters.Add("v_output", OracleType.VarChar2, 256)
cmm.Parameters(2).Direction = ParameterDirection.Output
cmm.ExecuteNonQuery()
cnn.Close()
End Sub