.NET调用procedure的方法

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