EF..

Version imprimable

30/10/2012, 17h03
105rn2

Validation / DataAnnotation/EF..

Bonjour
Je reviens vers vous suite au Post que j'avais entamé il y a quelques temps
http://www.developpez.net/forums/d12...ation-classes/

Après pas mal de recherches, je n'arrive pas à m'en sortir :cry:
-J'ai crée mon modèle avec EF 4.0
-J'ai généré mes classes (partielles) avec ADO.NET EndityObject Generator
Je croyais pouvoir ajouter les métadonnées désirées en surchargeant les propriétés de mes classes partielles générées par EF, mais si j'ai bien compris ce n'est pas possible en vb
Une solution que j'ai trouvée sur le Net consiste à recréer une nouvelle classe "parallèle" pour chaque classe crée, mais EF n'a alors plus aucun intérêt.

Je n'arrive pas à trouver d'exemple complet en VB, et malgré les traducteurs en ligne, je n'arrive pas à transposer ceux trouvés en C#
Un lien vers un tuto ou un exemple serait le bienvenu
Par avance, merci
Bertrand

Bonjour,

Sans utilser Ef. (je ne l'ai pas) J'ai fait un test juste pour l'utilisation en WinForm.

En traduisant la classe de validation présenté sur ce site
http://www.codeproject.com/Articles/...n-for-Beginner

Code:

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
29
30
31
32
33
34
35
36
37
38
39
Imports System.ComponentModel.DataAnnotations
 
Public Class EntityValidationResult
    Public Property Errors() As IList(Of ValidationResult)
        Get
            Return m_Errors
        End Get
        Private Set(ByVal value As IList(Of ValidationResult))
            m_Errors = value
        End Set
    End Property
 
    Private m_Errors As IList(Of ValidationResult)
    Public ReadOnly Property HasError() As Boolean
        Get
            Return Errors.Count > 0
        End Get
    End Property
 
    Public Sub New(Optional ByVal errors__1 As IList(Of ValidationResult) = Nothing)
        Errors = If(errors__1, New List(Of ValidationResult)())
    End Sub
End Class
 
Public Class EntityValidator(Of t)
    Public Function Validate(ByVal entity As t) As EntityValidationResult
        Dim validationResults = New List(Of ValidationResult)()
        Dim vc = New ValidationContext(entity, Nothing, Nothing)
        Dim isValid = Validator.TryValidateObject(entity, vc, validationResults, True)
 
        Return New EntityValidationResult(validationResults)
    End Function
End Class
 
Public Class ValidationHelper
    Public Shared Function ValidateEntity(Of t)(ByVal entity As t) As EntityValidationResult
        Return New EntityValidator(Of t)().Validate(entity)
    End Function
End Class

En plaçant les annotations sur une de mes classes

Code:

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
 
''' <summary> Classe représentant les données pour une journée de travail. </summary>
Public Class clsDataJour
 
    Private mLibelle As String
    <Display(Name:="Libellé")> <Required()> <StringLength(50, ErrorMessage:="Le Libellé ne peut excéder 50 caractéres")>
    Public Overloads Property Libelle As String
        Get
            Return mLibelle
        End Get
        Set(ByVal value As String)
            mLibelle = value
        End Set
    End Property
 
    Private mAbreviation
    <Display(Name:="Abréviation")> <Required()> <StringLength(8, ErrorMessage:="L'Abréviation ne peut excéder 8 caractéres")>
    Public Overloads Property Abreviation As String
        Get
            Return mAbreviation
        End Get
        Set(ByVal value As String)
            mAbreviation = value
        End Set
    End Property
 
    ' ....

dans ma form l'erreur est bien prise en compte.

Code:

1
2
3
4
5
6
7
8
9
10
11
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim DonneesJour As clsDataJour = New clsDataJour()
 
        DonneesJour.Libelle = "Suivi d'une journée."
        DonneesJour.Abreviation = "SuiviJour" 'trop long
 
        Dim validationResult = ValidationHelper.ValidateEntity(Of clsDataJour)(DonneesJour)
 
        If validationResult.HasError Then MsgBox(validationResult.Errors(0).ErrorMessage, vbInformation) ' A gérer suivant les besoins
 
    End Sub

Espérant que cet exemple pourras te servir et que tu pourras l'adapter à tes besoins.

A+, Hervé.

Bonjour Hervé et grand merci !
Concernant EF, je crois "qu'on l'a tous" (en tout cas, on l'a avec MS Visual Basic Express 2010) c'est que j'ai appris avec le précédent post sus cité
Merci beaucoup, j'ai de quoi "cogiter"
Le pb que j'ai rencontré est que EF génère des classes partielles telles que
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Public Partial Class Civilite Inherits EntityObject Public Property Abreviation() As Global.System.String Get Return _Abreviation End Get Set OnAbreviationChanging(value) ReportPropertyChanging("Abreviation") _Abreviation = StructuralObject.SetValidValue(value, true) ReportPropertyChanged("Abreviation") OnAbreviationChanged() End Set End Property End class
et
Code:

1 2 Private Partial Sub OnAbreviationChanging(value As Global.System.String) End Sub
J'ai donc crée un autre partial class civilite
Je peux surcharger OnAbreviationChanging par exemple
Code:

1 2 3 4 5 6 Private Sub OnAbreviationChanging(value As Global.System.String) If value.Length > 8 Then Debug.WriteLine("Abréviation > 8") End If End Sub
Mais je ne peux pas surcharger une propriété pour y ajouter les meta données
Code:

1 2 3 <Display(Name:="Abréviation")> <Required()> <StringLength(8, ErrorMessage:="L'Abréviation ne peut excéder 8 caractéres")> Public Overloads Property abreviation As String
me donne comme erreur :

Code:

property 'abreviation' définit implicitement '_abreviation', qui est en conflit avec un membre portant le même nom dans class 'Civilite'

Du coup, je ne comprends plus l’intérêt d'EF
Merci encore, je vais creuser ton exemple de code
Bertrand

La clas

30/10/2012, 21h00
105rn2

Re,
Pour ajouter les métadonnées à la main, j'ai trouvé ça :
http://msdn.microsoft.com/en-us/libr...=vs.91%29.aspx
Cela me parait encore lourd, et il ne faut pas se tromper dans les propriétés Y aurait il un moyen de générer cela automatiquement, ces infos existant déjà dans le modèle ?
Bertrand
01/11/2012, 00h13
105rn2

Bonsoir,
La solution proposée par Hervé marche trés bien si j'ajoute les MetaData directement dans la classe générée par EF (mais je perdrai mes ajouts à chaque réactualisation de celui ci)
Par contre, si je les ajoute dans une classe partielle via la méthode exposée sur msdn, ça ne marche pas ! :?
A+
Bertrand
01/11/2012, 10h13
105rn2

Bonjour,
A priori la propagation des metadata ne se fait pas automatiquement
Il faut la forcer comme indiqué à
http://blogs.msdn.com/b/davidebb/arc...amic-data.aspx
cela marche, j'ai bien une validation selon les metadata :)
Mais l'ensemble ne me plait pas : beaucoup de code à rajouter pour chaque classe, la possibilité d'erreurs et surtout si les caractéristiques de la BDD changent, il faut tout remodifier à la main les metadata :?
A+
Bertrand
04/11/2012, 00h37
105rn2

Bonsoir
Je vais essayer de modifier mon T4 pour qu'il inclues les Métadonnées
Je clos donc ce Post
Merci encore à rv26t
Bertrand