Validation / DataAnnotation/EF..

**105rn2** · 30/10/2012, 17h03

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

-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

**rv26t** · 30/10/2012, 18h34

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 :

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
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 :

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
 
''' <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 :

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

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é.

**105rn2** · 30/10/2012, 19h09

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 :

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
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 :

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

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 :

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

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 :

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

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 :

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

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

**105rn2** · 30/10/2012, 21h00

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

**105rn2** · 01/11/2012, 00h13

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

**105rn2** · 01/11/2012, 10h13

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

Validation / DataAnnotation/EF.. [Débutant]

VB.NET

Vue hybride

Discussions similaires

Partager

Partager