Developpez.com - Rubrique .NET

Le Club des Développeurs et IT Pro

Architecture de couche d'accès aux données (DAL) de hautes performances - Partie 2

Version VB.NET du tutoriel traduit par Hervé Taraveau

Le 2013-12-11 23:33:06, par rv26t, Modérateur
Bonjour,

Cette discussion est destinée à recueillir vos commentaires sur l'article « Architecture de couche d'accès aux données (DAL) de hautes performances — Partie 2 » et des Data Transfer Object (DTO).
Traduction de l'article High Performance Data Access Layer Architecture Part 2 de M. Rudy Lacovara.

Mise en œuvre de l'implémentation de la classe DALBase.
Étude de l'écriture des méthodes qui sont utilisées dans l'implémentation des classes PersonDb et autres classes EntityDb.
Lien sur les discussions des autres articles : Discussion sur la partie 1, Discussion sur la partie 3.

Bonne lecture.
  Discussion forum
1 commentaire
  • sch.alexis
    Nouveau Candidat au Club
    Le tutoriel est tip-top.

    Cependant une petite remarque c'est que le code pourrait être refactorisé un petit peu.

    Par exemple:

    Code C# :
    1
    2
    3
    4
    5
    6
    7
    protected static SqlParameter CreateParameter (string name, string value, int size) 
    { 
    	SqlParameter parameter = CreateNullParameter (name, SqlDbType.UniqueIdentifier, size); 
    	if (value != DTOBase.String_NullValue) 
    		parameter.Value = value; 
    	return parameter; 
    }

    Au lieu de:

    Code VB.NET :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Protected Shared Function CreateParameter(ByVal name As String, ByVal value As String, ByVal size As Integer) As SqlParameter 
        If value = DTOBase.String_NullValue Then 
          Return CreateNullParameter(name, SqlDbType.NVarChar) 
        Else 
          Dim parameter As SqlParameter = New SqlParameter() 
          parameter.SqlDbType = SqlDbType.NVarChar 
          parameter.Size = size 
          parameter.ParameterName = name 
          parameter.Value = value 
          parameter.Direction = ParameterDirection.Input 
          Return parameter 
        End If 
    End Function