Mantenimiento con N Capas en ASP Parte 2

Mantenimiento con N Capas en ASP Parte 1

Hola amigos, muchas veces cuando eh buscado mantenimientos para mis trabajos no eh podido encontrar es por eso que eh creado este blog para aquellos que buscan ejemplos de Registro, Modificación, Eliminación y Consulta de Datos en ASP.

Bueno comencemos con la creación de la base de datos, usaremos SQL SERVER:

Creación de base de datos, insertaremos la siguiente consulta:

-- Crearemos la base de datos

CREATE DATABASE BDPRUEBA

GO

-- Creamos una tabla para el mantenimiento

USE BDPRUEBA

GO

CREATE TABLE tCLI_Clientes

(

iIdCliente int primary key,

vNombreCliente varchar (250),

vDireccionCliente varchar (250),

vNumeroTelefono varchar (50),

dtFechaNacimiento datetime,

fSueldo float

);

Procedemos a crear los procedimientos almacenados que nos permitirán registrar, actualizar, eliminar y listar. Así terminamos la parte de Base de Datos lo que quedarías es La parte WEB.

--Creación de Procedimientos Almacenados

--Registro

CREATE PROC sCLI_RegistrarCliente

--@iIdCliente int,

@vNombreCliente varchar (250),

@vDireccionCliente varchar (250),

@vNumeroTelefono varchar (50),

@dtFechaNacimiento datetime,

@fSueldo float

AS

INSERT INTO tCLI_Clientes ()values

(

      @vNombreCliente,

      @vDireccionCliente,

      @vNumeroTelefono,

      @dtFechaNacimiento,

      @fSueldo

)

GO

--Actualización

CREATE PROC sCLI_ModificarCliente

@iIdCliente int,

@vNombreCliente varchar (250),

@vDireccionCliente varchar (250),

@vNumeroTelefono varchar (50),

@dtFechaNacimiento datetime,

@fSueldo float

AS

      UPDATE tCLI_Clientes

            SET

            vNombreCliente=@vNombreCliente,

            vDireccionCliente=@vDireccionCliente,

            vNumeroTelefono=@vNumeroTelefono,

            dtFechaNacimiento=@dtFechaNacimiento,

            fSueldo=@fSueldo

      WHERE iIdCliente=@iIdCliente

GO

CREATE PROC sCLI_EliminarCliente

@iIdCliente int

AS

      UPDATE tCLI_Clientes

            SET bEliminado=0       

      WHERE iIdCliente=@iIdCliente

GO

CREATE PROC sCLI_ListarCliente

@iIdCliente int

AS

      SELECT

            vNombreCliente,

            vDireccionCliente,

            vNumeroTelefono,

            dtFechaNacimiento,

            fSueldo

      FROM tCLI_Clientes

GO

CREATE PROC sCLI_ObtenerCliente

@iIdCliente int

AS

      SELECT

            vNombreCliente,

            vDireccionCliente,

            vNumeroTelefono,

            dtFechaNacimiento,

            fSueldo

      FROM tCLI_Clientes

      WHERE iIdCliente=@iIdCliente

GO

A continuación veremos cómo crear la WEB  o clic a AQUI

Para descargar los scripts AQUI o AQUI

Programación NCAPAS con LINQ TO SQL

Programación NCAPAS con LINQ TO SQL (parte2)


continuando con el mantenimiento de cliente

3.  Bueno ahora crearemos los métodos:

Este método lista a todos los clientes
     public List<M_CLIENTE> ListarCliente()
        {
            List<M_CLIENTE> ListaCliente=null;
            using (DBClienteDataContext DB = new DBClienteDataContext())
            {
                var result = (from cliente in DB.M_CLIENTEs
                                   select cliente).ToList();
                ListaCliente = result;
            }
            return ListaCliente;
        }

Este método lo crearemos para registrar y actualizar Clientes.
        public byte RegistrarCliente(M_CLIENTE objCliente)
        {
            byte retorno = 0;
            DBClienteDataContext DB = new DBClienteDataContext();
            var matchedata = (from cliente in DB.GetTable<M_CLIENTE>()
                              where cliente.i_id_cliente == objCliente.i_id_cliente
                              select cliente).FirstOrDefault();
            if (matchedata == null)
            {
                Table<M_CLIENTE> InsertTable = DB.GetTable<M_CLIENTE>();
                M_CLIENTE Cliente = new M_CLIENTE();
                Cliente.v_dir_cliente = objCliente.v_dir_cliente;
                Cliente.v_dis_cliente = objCliente.v_dis_cliente;
                Cliente.v_mail_cliente = objCliente.v_mail_cliente;
                Cliente.v_raz_social = objCliente.v_raz_social;
                Cliente.v_rep_cliente = objCliente.v_rep_cliente;
                Cliente.v_ruc_cliente = objCliente.v_ruc_cliente;
                Cliente.v_tel_cliente = objCliente.v_tel_cliente;
                Cliente.d_fecnac_cliente = objCliente.d_fecnac_cliente;
                Cliente.i_est_cliente = 1;
                InsertTable.InsertOnSubmit(Cliente);
                InsertTable.Context.SubmitChanges();
            }
            else 
            {
                matchedata.v_dir_cliente = objCliente.v_dir_cliente;
                matchedata.v_dis_cliente = objCliente.v_dis_cliente;
                matchedata.v_mail_cliente = objCliente.v_mail_cliente;
                matchedata.v_raz_social = objCliente.v_raz_social;
                matchedata.v_rep_cliente = objCliente.v_rep_cliente;
                matchedata.v_ruc_cliente = objCliente.v_ruc_cliente;
                matchedata.v_tel_cliente = objCliente.v_tel_cliente;
                matchedata.d_fecnac_cliente = objCliente.d_fecnac_cliente;
                DB.SubmitChanges();
            }
            return 0;
        }

Programación NCAPAS con LINQ TO SQL

Programación NCAPAS con LINQ TO SQL (parte1)

Bueno esta sección veremos como programar de una forma mas fácil y rápida utilizando LINQ TO SQL
para esto tenemos que seguir estos pasos:

1. Crear la base de datos
2. Crear un proyecto en visual estudio
    Esta es la estructura que yo cree son 4 capas :
      * Capa Entidad (BEntidad)
      * Capa Datos (Negocio)
      * Capa Negocio (Negocio)
      * Capa Presentación (Practicando)

 Añadiendo Referencias
 seleccionamos la Capa y damos clic derecho y seleccionamos añadir referencia, luego seleccionar la            capa que deseamos referenciar y aceptamos.

Bueno con esto Terminamos en esta Sección, continúen en la siguiente página.