SQL_PROC_Tabla_ClasePropiedades_VB

    DROP PROCEDURE Tabla_Clase


USE [BBDD]
GO

--****** Object:  StoredProcedure [dbo].[Tabla_ClasePropiedades_VB]
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO

-- =============================================
-- Author:      <Jorge Sánchez>
-- Create date: <05/10/2013>
-- Description: <Generación de Código Fuente de VB NET con las propiedades de una clase a partir de una tabla de SQL>
-- =============================================
CREATE PROCEDURE [dbo].[PROC_Tabla_ClasePropiedades_VB]
    -- ***** PARAMETROS
    @Tabla CHAR(50)
AS
BEGIN


IF NOT EXISTS(SELECT name FROM sysobjects WHERE sysobjects.name = @Tabla)
PRINT 'ERROR !!! LA TABLA : [' + LTRIM(RTRIM(@Tabla)) + '] NO EXISTE'
RETURN -1


DECLARE @IdCampo INT,@Campo CHAR(50),@Tipo CHAR(50),@Longitud INT --,@Permite_Nulo CHAR(10),@Tabla_Externa CHAR(50),
DECLARE @Prefijo CHAR(1),@sTipo CHAR(10)

DECLARE Campos CURSOR
    FOR SELECT DISTINCT
syscolumns.colid AS IdCampo, syscolumns.name AS Campo, systypes.name AS Tipo,
syscolumns.LENGTH AS Longitud
FROM
sysobjects sysobjects_1 RIGHT OUTER JOIN
sysforeignkeys ON sysobjects_1.id = sysforeignkeys.rkeyid RIGHT OUTER JOIN
syscolumns INNER JOIN
sysobjects ON syscolumns.id = sysobjects.id INNER JOIN
systypes ON syscolumns.xtype = systypes.xtype ON sysforeignkeys.fkeyid = syscolumns.id AND
sysforeignkeys.fkey = syscolumns.colid LEFT OUTER JOIN
sysindexkeys ON sysobjects.id = sysindexkeys.id AND syscolumns.colid = sysindexkeys.colid
WHERE
sysobjects.name = @Tabla AND systypes.name <> 'sysname'
ORDER BY syscolumns.colid

OPEN Campos



FETCH NEXT FROM Campos
INTO @IdCampo,@Campo,@Tipo,@Longitud;

WHILE @@FETCH_STATUS = 0
BEGIN
-- ****************************** PRINT DE LAS PROPIEDADES ****************************************

-- *********>> PREFIJO DE LA PROPIEDAD
SELECT @Prefijo = 'x'
SELECT @sTipo = 'xxxxx'

IF @Tipo = 'char' OR @Tipo = 'nchar' OR @Tipo = 'varchar' BEGIN SELECT @Prefijo = 's';SELECT @sTipo ='String' END
IF @Tipo = 'int' OR @Tipo = 'Numeric' BEGIN SELECT @Prefijo = 'i';SELECT @sTipo ='Integer' END
IF @Tipo = 'bit' BEGIN SELECT @Prefijo = 'b';SELECT @sTipo ='Boolean' END
IF @Tipo = 'Date' OR @Tipo = 'Datetime' BEGIN SELECT @Prefijo = 'f';SELECT @sTipo ='Date' END

SELECT @Prefijo = '_'

-- ************** GENERAMOS LA PROPIEDAD
PRINT 'Private '+ @Prefijo+LTRIM(RTRIM(@Campo)) + ' as ' + @sTipo
PRINT 'Public Property ' + LTRIM(RTRIM(@Campo)) + '() As ' + @sTipo
PRINT ' Get'
PRINT '     Return '+ @Prefijo+LTRIM(RTRIM(@Campo))
PRINT ' End Get'
PRINT ' Set(ByVal value As ' + LTRIM(RTRIM(@sTipo)) + ')'
PRINT '     '+ @Prefijo+LTRIM(RTRIM(@Campo)) + ' = value'
PRINT ' End Set'
PRINT 'End Property'
PRINT ''
PRINT ''


-- *************************************************************************************************


FETCH NEXT FROM Campos
INTO @IdCampo,@Campo,@Tipo,@Longitud;

END
CLOSE Campos;
DEALLOCATE Campos;

END

GO