Discussion :

[Pelote2012]

Bonjour,

J'ai un model edmx avec une table : Affaire
J'ai plusieurs property : IdAffaire ... IdAvancement et IdTypeChantier

Pour des traitements automatiques sur des classes manuelles j'utilise

Code vb.net :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
<AttributeUsage(AttributeTargets.Property, Inherited:=False, AllowMultiple:=True)>
    Public Class TFOAttribute : Inherits Attribute
        Private _name As String
 
        Public Sub New(ByVal name As String)
            Me.Name = name
        End Sub
 
        Property Name() As String
            Get
                Return _name
            End Get
            Set(ByVal value As String)
                Me._name = value
            End Set
        End Property
    End Class

Je voudrai attribuer aussi de tels attributs à ma classe générée automatiquement par entity de la manière suivante

Code vb.net :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
<TableFullOption.TFOAttribute("Key")> Property IdAffaire As Integer
    <TableFullOption.TFOAttribute("FK_Avancement")> Property Avancement As String
    <TableFullOption.TFOAttribute("FK_TypeChantier")> Property TypeChantier As Integer

Ce qui sort une erreur : normale j'essaie d'ajouter des property existant.

J'ai trouvé : http://ardalis.com/Adding-Attributes...erated-Classes Mais je n'arrive pas à mixer les 2.

Quelqu'un peut m'aider?

Merci

[Pelote2012]

En grattant encore ce matin j'ai trouvé http://msdn.microsoft.com/en-us/libr...code-snippet-1

J'ai ajouté la référence : System.ComponentModel.DataAnnotations.dll

Code vb.net :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Imports System.ComponentModel.DataAnnotations
Imports AT4.Affaire
 
<MetadataTypeAttribute(GetType(AffaireMetadata))> _
Partial Public Class Affaire
    Friend NotInheritable Class AffaireMetadata
 
        'Metadata classes are not meant to be instantiated.
        Private Sub New()
            MyBase.New()
        End Sub
 
        <TableFullOption.TFOAttribute("Key")> Property IdAffaire As Integer
        <TableFullOption.TFOAttribute("FK_Avancement")> Property Avancement As String
        <TableFullOption.TFOAttribute("FK_TypeChantier")> Property TypeChantier As Integer
    End Class
End Class
 
Public Class HelperAffaire
    Public Shared Function GetLstAffaires(ByVal LesDatas As AT4Entities) As List(Of Affaire)
        Try
            Return (From a In LesDatas.Affaires Order By a.IdAffaire Descending Select a).ToList
        Catch ex As Exception
            Return New List(Of Affaire)
        End Try
    End Function
End Class

Quand je fais un scan des attributs de mes propriétés de Affaire ... je ne retrouve pas mes nouveaux attributs
Mais si je mets : AffaireMetadata au lieu de Affaire, là je retrouve bien les attributs ajoutés.
Mais dans ce cas, en fait, ça ne sert à rien. En créant une class à part ça ferai la même chose.

Il n'y a rien à faire pour ajouter des attributs à une class générée automatiquement par Entity?

[Pelote2012]

En y réfléchissant ... je préfère passer par une classe simple. Je me contente ensuite dans mon Linq de faire un select new MaclassMeta with{...}