[Resolvido] mini-dicionario de dados

mini-dicionario de dados, script que percorre todas as tabelas de um banco de dados e lista: nome_campo, tipo_campo, tamanho_campo e descricao_campo.

use northwind; go 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 F ETCH 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 '' F ETCH NEXT FROM tabelas INTO @Nome_Tabela, @Id_Tabela END CLOSE tabelas DEALLOCATE tabelas SET NOCOUNT OFF
AUTOR: "encontrei na internet, guardei e depois publiquei aqui, não lembro da fonte, caso alguém souber por favor avise"

Dúvidas, criticas, contribuições, correções e adições seram bem vindas.