Gerando procedures automaticamente no SQL 2000

PARTE 02/05 � Script gerador de procedures de inser��o de dados

Agora, j� com as tabelas criadas, use o script da listagem 01 para criar procedures de INSERT para todas as tabelas do seu database.

LISTAGEM 01 � SCRIPT PARA GERAR PROCEDURES DE INSERT

SET NOCOUNT ON

DECLARE @ID INT, @NAME VARCHAR(255)

DECLARE @CAMPO VARCHAR(255), @ORDEM INT, @VARIAVEL CHAR(25), @TIPO VARCHAR(25), @NULO CHAR(10), @VIRGULA VARCHAR(1)

DECLARE TABELA CURSOR FOR

SELECT ID, NAME

FROM SYSOBJECTS

WHERE TYPE = 'U'

AND STATUS>0

OPEN TABELA

FETCH NEXT FROM TABELA INTO @ID, @NAME

WHILE @@FETCH_STATUS = 0

BEGIN

PRINT ''

PRINT '--------------------------------------------------------------------------------'

PRINT '-- TABELA ' + RTRIM(@NAME) + ' ---> INCLUS�O DE REGISTROS'

PRINT '--------------------------------------------------------------------------------'

PRINT '-- INICIO DA PROCEDURE ---------------------------------------------------------'

PRINT '--------------------------------------------------------------------------------'

PRINT ''

PRINT 'IF EXISTS (SELECT * FROM SYSOBJECTS WHERE ID = OBJECT_ID(N''[_SP_' + @NAME + '_INCLUIR]'') AND OBJECTPROPERTY(ID, N''ISPROCEDURE'') = 1)'

PRINT 'DROP PROCEDURE [_SP_' + @NAME + '_INCLUIR]'

PRINT ''

PRINT 'GO'

PRINT ''

PRINT 'CREATE PROC _SP_' + @NAME + '_INCLUIR '

PRINT '--------------------------------------------------------------------------------'

PRINT '-- '

PRINT '-- PROCEDURE _SP_' + @NAME + '_INCLUIR'

PRINT '-- GERADA AUTOMATICAMENTE'

PRINT '-- EM ' + CONVERT(VARCHAR,GETDATE(),120)

PRINT '-- ### AGNALDO DIOGO DOS SANTOS ###'

PRINT '-- '

PRINT '-- INCLUS�O NA TABELA ' + @NAME

PRINT '-- '

PRINT '--------------------------------------------------------------------------------'

PRINT ''

DECLARE CAMPO SCROLL CURSOR FOR

SELECT NAME

FROM SYSCOLUMNS

WHERE ID = @ID

AND STATUS<>128

AND NAME<>'DAT_INC'

AND NAME<>'DAT_ALT'

AND NAME<>'DAT_EXC'

AND NAME<>'USU_INC'

AND NAME<>'USU_ALT'

AND NAME<>'USU_EXC'

ORDER BY COLORDER

OPEN CAMPO

FETCH NEXT FROM CAMPO INTO @CAMPO

WHILE @@FETCH_STATUS = 0

BEGIN

SELECT

@VARIAVEL = '@' + CONVERT(CHAR(25), T1.NAME),

@TIPO =

CASE T2.NAME

WHEN 'VARCHAR' THEN CONVERT(VARCHAR, 'VARCHAR(' + CONVERT(VARCHAR(5), T1.LENGTH) + ')')

WHEN 'CHAR' THEN CONVERT(VARCHAR, 'CHAR(' + CONVERT(VARCHAR(5), T1.LENGTH) + ')')

WHEN 'NCHAR' THEN CONVERT(VARCHAR, 'NCHAR(' + CONVERT(VARCHAR(5), T1.LENGTH/2) + ')')

WHEN 'INT' THEN CONVERT(VARCHAR, 'INT')

WHEN 'BIT' THEN CONVERT(VARCHAR, 'BIT')

WHEN 'NVARCHAR' THEN CONVERT(VARCHAR, 'NVARCHAR(' + CONVERT(VARCHAR(5), T1.LENGTH/2) + ')')

WHEN 'DATETIME' THEN CONVERT(VARCHAR, 'DATETIME')

WHEN 'MONEY' THEN CONVERT(VARCHAR, 'MONEY')

WHEN 'TINYINT' THEN CONVERT(VARCHAR, 'TINYINT')

WHEN 'TEXT' THEN CONVERT(VARCHAR, 'TEXT')

WHEN 'NTEXT' THEN CONVERT(VARCHAR, 'NTEXT')

WHEN 'NUMERIC' THEN CONVERT(VARCHAR, 'NUMERIC(' + CONVERT(VARCHAR(2), T1.XPREC) + ',' + CONVERT(VARCHAR(2), T1.XSCALE) + ')')

WHEN 'FLOAT' THEN CONVERT(VARCHAR, 'FLOAT')

END,

@NULO =

CASE

WHEN ISNULLABLE = 1 THEN CONVERT(VARCHAR, ' = NULL')

WHEN ISNULLABLE = 0 THEN CONVERT(VARCHAR, '')

END

CASE WHEN COLORDER <> (SELECT MAX(COLORDER) FROM SYSCOLUMNS WHERE ID = @ID AND NAME<>'DAT_INC'

AND NAME<>'DAT_ALT'

AND NAME<>'DAT_EXC'

AND NAME<>'USU_INC'

AND NAME<>'USU_ALT'

AND NAME<>'USU_EXC'

) THEN ', ' ELSE '' END

FROM

SYSCOLUMNS T1,

SYSTYPES T2

WHERE

T1.XTYPE = T2.XTYPE

AND

OBJECT_NAME(ID) = @NAME

AND

T1.STATUS != 128

AND

T2.NAME != 'SYSNAME'

AND

T1.NAME = @CAMPO

ORDER BY

COLORDER

PRINT @VARIAVEL + @TIPO + @NULO

FETCH NEXT FROM CAMPO INTO @CAMPO

END

CLOSE CAMPO

DEALLOCATE CAMPO

PRINT ''

PRINT 'AS'

PRINT ''

PRINT ' SET NOCOUNT ON'

PRINT ' SET ANSI_WARNINGS OFF'

IF EXISTS(SELECT 1 FROM SYSCOLUMNS WHERE ID=@ID AND NAME = 'DSC_' + @NAME)

BEGIN

PRINT ''

PRINT ' IF EXISTS(SELECT 1 FROM ' + @NAME + ' WHERE DSC_'+ @NAME + ' = @DSC_' + @NAME +')'

PRINT ' RAISERROR(''ALERTA: A INCLUS�O NA TABELA [' + @NAME + '] N�O PODE SER FEITA - O REGISTRO J� EXISTE NO BANCO'', 16, 1)'

PRINT ' ELSE'

PRINT ' BEGIN'

END

IF EXISTS(SELECT 1 FROM SYSCOLUMNS WHERE ID=@ID AND NAME = 'NOM_' + @NAME)

BEGIN

PRINT ''

PRINT ' IF EXISTS(SELECT 1 FROM ' + @NAME + ' WHERE NOM_'+ @NAME + ' = @NOM_' + @NAME +')'

PRINT ' RAISERROR(''ALERTA: A INCLUS�O NA TABELA [' + @NAME + '] N�O PODE SER FEITA - O REGISTRO J� EXISTE NO BANCO'', 16, 1)'

PRINT ' ELSE'

PRINT ' BEGIN'

END

PRINT ' INSERT INTO ' + @NAME + ' ('

DECLARE CAMPO SCROLL CURSOR FOR

SELECT NAME, COLORDER

FROM SYSCOLUMNS

WHERE ID = @ID

AND STATUS != 128

AND NAME<>'DAT_INC'

AND NAME<>'DAT_ALT'

AND NAME<>'DAT_EXC'

AND NAME<>'USU_INC'

AND NAME<>'USU_ALT'

AND NAME<>'USU_EXC'

ORDER BY COLORDER

OPEN CAMPO

FETCH NEXT FROM CAMPO INTO @CAMPO, @ORDEM

WHILE @@FETCH_STATUS = 0

BEGIN

SELECT @VIRGULA = CASE WHEN @ORDEM <> (SELECT MAX(COLORDER) FROM SYSCOLUMNS WHERE ID = @ID AND NAME<>'DAT_INC'

AND NAME<>'DAT_ALT'

AND NAME<>'DAT_EXC'

AND NAME<>'USU_INC'

AND NAME<>'USU_ALT'

AND NAME<>'USU_EXC'

) THEN ', ' ELSE '' END

PRINT ' ' + @CAMPO + @VIRGULA

FETCH NEXT FROM CAMPO INTO @CAMPO, @ORDEM

END

CLOSE CAMPO

DEALLOCATE CAMPO

PRINT ' )'

PRINT ' VALUES ('

DECLARE CAMPO SCROLL CURSOR FOR

SELECT NAME, COLORDER

FROM SYSCOLUMNS

WHERE ID = @ID

AND STATUS != 128

AND NAME<>'DAT_INC'

AND NAME<>'DAT_ALT'

AND NAME<>'DAT_EXC'

AND NAME<>'USU_INC'

AND NAME<>'USU_ALT'

AND NAME<>'USU_EXC'

ORDER BY COLORDER

OPEN CAMPO

FETCH NEXT FROM CAMPO INTO @CAMPO, @ORDEM

WHILE @@FETCH_STATUS = 0

BEGIN

SELECT @VIRGULA = CASE WHEN @ORDEM <> (SELECT MAX(COLORDER)

FROM SYSCOLUMNS

WHERE ID = @ID

AND NAME<>'DAT_INC'

AND NAME<>'DAT_ALT'

AND NAME<>'DAT_EXC'

AND NAME<>'USU_INC'

AND NAME<>'USU_ALT'

AND NAME<>'USU_EXC'

) THEN ', ' ELSE '' END

PRINT ' @' + @CAMPO + @VIRGULA

FETCH NEXT FROM CAMPO INTO @CAMPO, @ORDEM

END

CLOSE CAMPO

DEALLOCATE CAMPO

PRINT ' )'

PRINT ' IF @@ERROR<>0'

PRINT ' RAISERROR(''ERRO: A INCLUS�O NA TABELA [' + @NAME + '] N�O PODE SER FEITA - ERRO NA PROCEDURE [_SP_' + @NAME + '_INCLUIR]'', 16, 1)'

IF EXISTS(SELECT 1 FROM SYSCOLUMNS WHERE ID=@ID AND NAME = 'NOM_' + @NAME)

PRINT ' END'

IF EXISTS(SELECT 1 FROM SYSCOLUMNS WHERE ID=@ID AND NAME = 'DSC_' + @NAME)

PRINT ' END'

PRINT ''

PRINT 'GO'

PRINT ''

PRINT '--------------------------------------------------------------------------------'

PRINT '-- FIM DA PROCEDURE ------------------------------------------------------------'

PRINT '--------------------------------------------------------------------------------'

PRINT ''

FETCH NEXT FROM TABELA INTO @ID, @NAME

END

CLOSE TABELA

DEALLOCATE TABELA

LISTAGEM 02 � UMA DAS PROCEDURES GERADAS

--------------------------------------------------------------------------------

-- TABELA FILME ---> INCLUS�O DE REGISTROS

--------------------------------------------------------------------------------

-- INICIO DA PROCEDURE ---------------------------------------------------------

--------------------------------------------------------------------------------

IF EXISTS (SELECT * FROM SYSOBJECTS WHERE ID = OBJECT_ID(N'[_SP_FILME_INCLUIR]') AND OBJECTPROPERTY(ID, N'ISPROCEDURE') = 1)

DROP PROCEDURE [_SP_FILME_INCLUIR]

CREATE PROC _SP_FILME_INCLUIR

--------------------------------------------------------------------------------

-- PROCEDURE _SP_FILME_INCLUIR

-- GERADA AUTOMATICAMENTE

-- EM 2006-07-06 15:33:54

-- ### AGNALDO DIOGO DOS SANTOS ###

-- INCLUS�O NA TABELA FILME

--------------------------------------------------------------------------------

@NOM_FILME VARCHAR(50),

@NOM_ORIGINAL_FILME VARCHAR(50) = NULL,

@ANO_FILME INT = NULL

SET NOCOUNT ON

SET ANSI_WARNINGS OFF

IF EXISTS(SELECT 1 FROM FILME WHERE NOM_FILME = @NOM_FILME)

RAISERROR('ALERTA: A INCLUS�O NA TABELA [FILME] N�O PODE SER FEITA - O REGISTRO J� EXISTE NO BANCO', 16, 1)

ELSE

BEGIN

INSERT INTO FILME (

NOM_FILME,

NOM_ORIGINAL_FILME,

ANO_FILME

)

VALUES (

@NOM_FILME,

@NOM_ORIGINAL_FILME,

@ANO_FILME

)

IF @@ERROR<>0

RAISERROR('ERRO: A INCLUS�O NA TABELA [FILME] N�O PODE SER FEITA - ERRO NA PROCEDURE [_SP_FILME_INCLUIR]', 16, 1)

END

--------------------------------------------------------------------------------

-- FIM DA PROCEDURE ------------------------------------------------------------

--------------------------------------------------------------------------------

Aguarde as pr�ximas tr�s mat�rias, onde continuarei a mostrar a cria��o autom�tica das procedures. At� mais.

Veja a primeira etapa deste artigo em:

//www.devmedia.com.br/articles/visualizacomponente2.asp?comp=2207

Confira outros conte�dos:

SQL SUM: somando os valores de uma...

SQL: INNER JOIN

SQL: Introdu��o ao Where

Assista grátis a nossa aula inaugural

Perguntas frequentes

Quem somos?

Por que a programação se tornou a profissão mais promissora da atualidade?

Como faço para começar a estudar?

Em quanto tempo de estudo vou me tornar um programador?

Sim, você pode se tornar um programador e não precisa ter diploma de curso superior!

O que eu irei aprender estudando pela DevMedia?

Principais diferenciais da DevMedia

Qual o investimento financeiro que preciso fazer para me tornar um programador?

Como funciona a forma de pagamento da DevMedia?

Por Agnaldo Em 2006

Nossos casos de sucesso

Leonardo Carlos

Eu sabia pouqu�ssimas coisas de programa��o antes de come�ar a estudar com voc�s, fui me especializando em v�rias �reas e ferramentas que tinham na plataforma, e com essa bagagem consegui um est�gio logo no in�cio do meu primeiro per�odo na faculdade.

Lucas Rodrigues

Estudo aqui na Dev desde o meio do ano passado! Nesse per�odo a Dev me ajudou a crescer muito aqui no trampo.
Fui o primeiro desenvolvedor contratado pela minha empresa. Hoje eu lidero um time de desenvolvimento!
Minha meta � continuar estudando e praticando para ser um Full-Stack Dev!

Her�clito J�nior

Economizei 3 meses para assinar a plataforma e sendo sincero valeu muito a pena, pois a plataforma � bem intuitiva e muuuuito did�tica a metodologia de ensino. Sinto que estou EVOLUINDO a cada dia. Muito obrigado!

Julio Cablen

Nossa! Plataforma maravilhosa. To amando o curso de desenvolvimento front-end, tinha coisas que eu ainda n�o tinha visto. A did�tica � do jeito que qualquer pessoa consegue aprender. S�rio, to apaixonado, adorando demais.

Joelberth Sena

Adquiri o curso de voc�s e logo percebi que s�o os melhores do Brasil. � um passo a passo incr�vel. S� n�o aprende quem n�o quer. Foi o melhor investimento da minha vida!

Felipe Nunes

Foi um dos melhores investimentos que j� fiz na vida e tenho aprendido bastante com a plataforma. Voc�s est�o fazendo parte da minha jornada nesse mundo da programa��o, irei assinar meu contrato como programador gra�as a plataforma.

Wanderson Oliveira

Comprei a assinatura tem uma semana, aprendi mais do que 4 meses estudando outros cursos. Exerc�cios pr�ticos que n�o tem como n�o aprender, est�o de parab�ns!

Jos� Lucas

Obrigado DevMedia, nunca presenciei uma plataforma de ensino t�o presente na vida acad�mica de seus alunos, parab�ns!

Eduardo Dorneles

Aprendi React na plataforma da DevMedia h� cerca de 1 ano e meio... Hoje estou h� 1 ano empregado trabalhando 100% com React!

Adauto Junior

J� fiz alguns cursos na �rea e nenhum � t�o bom quanto o de voc�s. Estou aprendendo muito, muito obrigado por existirem. Est�o de parab�ns... Espero um dia conseguir um emprego na �rea.

Ver todos os casos de sucesso

Gerando procedures automaticamente no SQL 2000

Veja neste artigo Script gerador de procedures de inser��o de dados.

Gerando procedures automaticamente no SQL 2000

PARTE 02/05 � Script gerador de procedures de inser��o de dados

Confira outros conte�dos:

SQL SUM: somando os valores de uma...

SQL: INNER JOIN

SQL: Introdu��o ao Where

Perguntas frequentes

Nossos casos de sucesso