Gerar um dicionário de dados para tabela do banco de dados

[jothaz]

SET NOCOUNT ON 

DECLARE @ID_TABELA INT, @NOME_TABELA VARCHAR(50)
PRINT 'BANCO DE DADOS: ' + UPPER(DB_NAME())
PRINT ''
DECLARE TABELAS CURSOR FOR SELECT NAME, ID FROM SYSOBJECTS WHERE XTYPE = 'U' AND NAME <> 'DTPROPERTIES'
ORDER BY NAME
OPEN TABELAS
FETCH NEXT FROM TABELAS INTO @NOME_TABELA, @ID_TABELA
WHILE @@FETCH_STATUS = 0
BEGIN
     PRINT 'TABELA: ' + UPPER(@NOME_TABELA)
     SELECT NOME_CAMPO = LEFT(RTRIM(LTRIM(SC.NAME)),40), 
     TIPO_CAMPO = LEFT(RTRIM(LTRIM(ST.NAME)),20), TAMANHO_CAMPO = SC.LENGTH, DESCRICAO_CAMPO = ISNULL(SP.VALUE,'') 
     FROM SYSCOLUMNS SC, SYSTYPES ST, SYSPROPERTIES SP WHERE SC.ID = @ID_TABELA AND SC.XTYPE = ST.XTYPE 
     AND SC.COLID *= SP.SMALLID AND SP.ID = @ID_TABELA 

     ORDER BY SC.COLID
     PRINT ''
     FETCH NEXT FROM TABELAS INTO @NOME_TABELA, @ID_TABELA
END
CLOSE TABELAS
DEALLOCATE TABELAS 

SET NOCOUNT OFF

Considerações finais:

Este script te permite gerar um dicionário de dados para qualquer banco de dados SQL Server 2000. Você pode colocá-lo no query analizer, escolher o anco de dados e gerar ou se for de sua necessidade criar uma stored procedure. O fato de ser apenas para SQL Server 2000, é porque existe um local onde você pode colocar descrições

Fonte/Autor/link

AUTOR: Este exemplo foi tirado da internet e não me lembro do link. Se alguém souber a fonte favor informa para que os créditos sejam dados a quem é de direito.

Dúvidas, criticas, contribuições, correções e adições serão bem vindas.