Arquitectura - Definición de un Data Access Component (con un ejemplo) Parte 2

Hola qué tal?

Bueno, pues continuando con la segunda parte de la construcción de un Data Access Component con ejemplos, en esta ocasión hablaremos de la manera en que se guarda, salva, modifica o borra la información a través de un componente DAC.

Quiero reiterar que un componente DAC, será exclusivo de un objeto de la base de datos, en general una tabla. Teniendo en cuenta esto, crearemos algunos métodos para las tareas de salvar y borrar, que serán exclusivas para el objeto de la base de datos con el que se corresponde el DAC. No olvidemos que el DAC es la abstracción del objeto de la base de datos, en nuestro caso, una abstracción de la tabla y como tal debe tener la capacidad de mostrar los elementos de un registro dado y la capacidad de realizar tareas con este hacia la base de datos.

En artículo anterior vimos como implementar la abstracción de lo campos de la tabla en propiedades de la clase, cómo se construye la clase con los valores predeterminados y cómo se construye con un valor de identificación de registro.

Ahora veamos cómo salvar un registro, es simple y tiene la inteligencia suficiente para ser un solo método para la inserción y para la actualización de un registro.

Como habrán notado, en el bloque de declaración de campo, existe una variable boleana denominada nuevo, esta variable se asigna dependiendo de la manera en que se construye el objeto, si el objeto se construye sin un identificador de registro, la variable será true, si se inicializa con un identificador de registro que devuelva un registro válido, entonces será false, pero si el identificador no devuelve un registro válido, entonces será true. En pocas palabras, la variable nuevo sirve para identificar el registro como uno nuevo o como uno existente en la base de datos.

Tomando en cuenta este criterio, el método salvar elegirá entre dos opciones, la primera es insertar un nuevo registro, para el caso de nuevo = true, y el segundo será realizar una actualización (update)  para el caso nuevo = false.

Veamos pues cómo se conforma el método Salvar():

VB

Private Sub InitializeParameters()

 

    cmd.Parameters.Clear()

    cmd.Parameters.Add( _

        "@ClaveTipoProducto", _

        SqlDbType.VarChar, 10).Value = _ClaveTipoProducto

    cmd.Parameters.Add( _

        "@Descripcion", _

        SqlDbType.VarChar, 150).Value = _Descripcion

 

    If _Nuevo Then

        cmd.Parameters.Add( _

            "@SP_OPCION", _

            SqlDbType.TinyInt).Value = 1

        cmd.Parameters.Add( _

            "@IdTipoProducto", _

            SqlDbType.Int, 4).Direction = ParameterDirection.Output

    Else

        cmd.Parameters.Add( _

            "@SP_OPCION", _

            SqlDbType.TinyInt).Value = 2

        cmd.Parameters.Add( _

            "@IdTipoProducto", _

            SqlDbType.Int, 4).Value = _IdTipoProducto

    End If

End Sub

 

 

Public Function Salvar() As Integer

    Dim Res As Integer

    InitializeParameters()

 

    Res = MyBase.ExecuteTransaction(cmd)

 

    If _Nuevo AndAlso Res > 0 Then

        Dim resIdTipoProducto As Integer?

        Try

            resIdTipoProducto = _

                DirectCast( _

                    cmd.Parameters("@IdTipoProducto").Value, _

                    Integer?)

            _IdTipoProducto = resIdTipoProducto

            _Nuevo = resIdTipoProducto < 0

        Catch ex As Exception

            _IdTipoProducto = -1

            _Nuevo = True

        End Try

    End If

 

    Return Res

 

End Function

C#

private void InitializeParameters()

{

    cmd.Parameters.Clear();

    cmd.Parameters.Add(

        "@ClaveTipoProducto",

        SqlDbType.VarChar, 10).Value = claveTipoProducto;

    cmd.Parameters.Add(

        "@Descripcion",

        SqlDbType.VarChar, 150).Value = descripcion;

   

    if (nuevo)

    {

        cmd.Parameters.Add(

            "@SP_OPCION",

            SqlDbType.TinyInt).Value = 1;

        cmd.Parameters.Add(

            "@IdTipoProducto",

            SqlDbType.Int, 4).Direction = ParameterDirection.Output;

    }

    else

    {

        cmd.Parameters.Add(

            "@SP_OPCION",

            SqlDbType.TinyInt).Value = 2;

        cmd.Parameters.Add(

            "@IdTipoProducto",

            SqlDbType.Int, 4).Value = idTipoProducto;

    }

}

 

public int Salvar()

{

    int Res;

    InitializeParameters();

 

    Res = base.ExecuteTransaction(cmd);

 

    if (nuevo && Res > 0)

    {

        int? _idTipoProducto;

        _idTipoProducto =

            cmd.Parameters["@IdTipoProducto"].Value as int?;

        idTipoProducto =

            _idTipoProducto == null ? -1 : _idTipoProducto.Value;

        nuevo = _idTipoProducto < 0;

    }

    return Res;

}

Podemos observar que hay un método “colado”, bueno, es el simple encapsulamiento de la inicialización de parámetros que serán pasados al SqlCommand para ser ejecutado. Recordemos que la opción 1 de Stored Procedure es para insertar y que la opción 2 es para actualizar, así pues, se elige con qué parámetro de opción se mandará el SqlCommand al Helper para ser ejecutado.

Otra observación interesante, es la manera en que se recuperará el valor del identificador, ya que al ser automático y variable de retorno del SP, se puede pasar a una variable temporal para asignarla a la variable principal. Cuando esto pasa, si se tuvo éxito al salvar, pasaremos a la clase a nuevo = false.

Pero aún así, se preguntarán, cómo se salvan uno o más tablas dentro de una transacción. Bueno, para poder habilitar esta labor, deberemos proveer el mismo método, pero esta vez, sobrecargado, donde tendremos a un SqlTransactio como parámetro, mismo que pasaremos al DataHelper para ser ejecutado en un mismo contexto. Veamos cómo quedaría:

VB

Public Function Salvar(trn As SqlTransaction) As Integer

    Dim Res As Integer

    InitializeParameters()

 

    Res = MyBase.ExecuteTransaction(cmd,trn)

 

    If _Nuevo AndAlso Res > 0 Then

        Dim resIdTipoProducto As Integer?

        Try

            resIdTipoProducto = _

                DirectCast( _

                    cmd.Parameters("@IdTipoProducto").Value, _

                    Integer?)

            _IdTipoProducto = resIdTipoProducto

            _Nuevo = resIdTipoProducto < 0

        Catch ex As Exception

            _IdTipoProducto = -1

            _Nuevo = True

        End Try

    End If

 

    Return Res

End Function

C#

public int Salvar(SqlTransaction trn)

{

    int Res;

    InitializeParameters();

 

    Res = base.ExecuteTransaction(cmd, trn);

 

    if (nuevo && Res > 0)

    {

        int? _idTipoProducto;

        _idTipoProducto =

            cmd.Parameters["@IdTipoProducto"].Value as int?;

        idTipoProducto =

            _idTipoProducto == null ? -1 : _idTipoProducto.Value;

        nuevo = _idTipoProducto < 0;

    }

    return Res;

}

La única diferencia es que se utiliza el método ExecuteTransaction sobrecargado.

De esta manera ya vemos cómo se salva el registro, la opción de insertar o actualizar depende de la variable ‘nuevo’ que nos indica si el registro existe o no en la base de datos.

El otro método es el de Borra, tendremos dos, uno que borra el registro actual, y otro método para borrar un registro dado, pasando el identificador del mismo.

VB

Public Function Borrar() As Integer

    Dim Res As Integer

    cmd.Parameters.Clear()

    cmd.Parameters.Add( _

        "@SP_OPCION", _

        SqlDbType.TinyInt).Value = 3

    cmd.Parameters.Add( _

        "@IdTipoProducto", _

        SqlDbType.Int, 4).Value = IdTipoProducto

    Res = MyBase.ExecuteTransaction(cmd)

    Return Res

End Function

 

Public Function Borrar( _

        ByVal pIdTipoProducto As Integer) As Integer

    Dim Res As Integer

    cmd.Parameters.Clear()

    cmd.Parameters.Add( _

        "@SP_OPCION", _

        SqlDbType.TinyInt).Value = 3

    cmd.Parameters.Add( _

        "@IdTipoProducto", _

        SqlDbType.Int, 4).Value = pIdTipoProducto

    Res = MyBase.ExecuteTransaction(cmd)

    Return Res

End Function

C#

public int Borrar()

{

    int Res;

    cmd.Parameters.Clear();

    cmd.Parameters.Add(

        "@SP_OPCION",

        SqlDbType.TinyInt).Value = 3;

    cmd.Parameters.Add(

        "@IdTipoProducto",

        SqlDbType.Int, 4).Value = idTipoProducto;

    Res = base.ExecuteTransaction(cmd);

    return Res;

}

 

public int Borrar(int pIdTipoProducto)

{

    int Res;

    cmd.Parameters.Clear();

    cmd.Parameters.Add(

        "@SP_OPCION",

        SqlDbType.TinyInt).Value = 3;

    cmd.Parameters.Add(

        "@IdTipoProducto",

        SqlDbType.Int, 4).Value = pIdTipoProducto;

    Res = base.ExecuteTransaction(cmd);

    return Res;

}

Como podrá notarse, el método borrar es simple, y no es más que el llamado de la opción y pasar el identificador del registro que se desea borrar.

Con esto tenemos completo un DAC, o al menos con la funcionalidad básica necesaria para utilizarlo.

El método Salvar transaccional, solo será útil en un componente de negocios, que sí, podremos utilizar en algún momento.

El uso de este componente es directo en la interfaz de usuario, solo debemos agregar la referencia correspondiente al proyecto de DLL que lo contiene. En el siguiente artículo sobre el tema, veremos de una manera rápida el uso de este componente y cómo simplifica mucho la codificación de la interfaz de usuario.

Referencias:

Parte 1: http://msmvps.com/blogs/otelis/archive/2009/09/11/arquitectura-definici-243-n-de-un-data-acces-component-con-un-ejemplo.aspx

Parte 3: http://msmvps.com/blogs/otelis/archive/2010/05/14/arquitectura-definici-243-n-de-un-data-access-component-con-un-ejemplo-parte-3.aspx

Saludos…

Octavio Telis

 

Published Wed, May 12 2010 17:53 by Octavio Telis Aynés

Comments

# Arquitectura - Definición de un Data Access Component (con un ejemplo) Parte 1

Friday, May 14, 2010 2:31 PM by .NET Chronicles

Hola, qué tal. En esta ocasión es momento de entrar un poco en materia e iniciar con la

Leave a Comment

(required) 
(required) 
(optional)
(required) 
If you can't read this number refresh your screen
Enter the numbers above:  
Powered by Community Server (Commercial Edition), by Telligent Systems