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