-- =============================================
-- Author:	<author  ,,NAME>
-- Create date: <create date,,>
-- Description:	<description  ,,>
-- =============================================

-- Drop temporary tables if they exist
IF OBJECT_ID('tempdb..#ProcDoc') IS NOT NULL
BEGIN
	DROP TABLE #ProcDoc;
END
 IF OBJECT_ID('tempdb..#temp') IS NOT NULL
 BEGIN
	DROP TABLE #temp;
END
 
-- Create a table to hold procedure documentation
CREATE TABLE #ProcDoc
(
	Id INTEGER NOT NULL IDENTITY(1,1) PRIMARY KEY CLUSTERED,
	[Schema] VARCHAR(100),
	[Proc] VARCHAR(100),
	[Author] VARCHAR(100),
	[CreatedDate] VARCHAR(20),
	[Description] TEXT
);
 
DECLARE @proc VARCHAR(100),
		@schema VARCHAR(100),
		@proc_id INTEGER,
		@schema_proc VARCHAR(200);
 
-- Cursor to work through our procs
DECLARE procCursor CURSOR LOCAL FAST_FORWARD FOR SELECT p.[name] AS [proc],
							s.[name] AS [schema]
						 FROM sys.procedures p
						 INNER JOIN sys.schemas s
							ON s.schema_id = p.schema_id;
 
OPEN procCursor;
FETCH NEXT FROM procCursor INTO @proc,
				@schema;
 
WHILE (@@FETCH_STATUS = 0)
BEGIN
 
	INSERT INTO #ProcDoc
	(
		[Schema],
		[Proc]
	)
	VALUES
	(
		@Schema,
		@Proc
	);
 
	SET @proc_id = SCOPE_IDENTITY();
 
	-- Create a temp table to hold comments
	CREATE TABLE #temp
	(
		[Text] VARCHAR(4000) NULL
	);
 
	 -- Build schema + proc string
	SET @schema_proc = @schema + '.' + @proc;
 
	-- sp_helptext to get proc definition
	-- and insert into a temp table
	INSERT INTO #temp
	EXEC sys.sp_helptext @schema_proc;
 
	-- Just an id we'll use later to identify rows
	ALTER TABLE #temp ADD Id INTEGER NOT NULL IDENTITY(1,1) PRIMARY KEY CLUSTERED;
 
	-- Get proc author
	UPDATE #ProcDoc
	SET [Author] = 
	(
		SELECT (SELECT SUBSTRING([Text], PATINDEX('--Author: ', [text]) + 12, LEN([Text]) - (PATINDEX('--Author: ', [text]) + 12))) AS Author
		FROM #temp
		WHERE [text] LIKE '-- Author:%'
	)
	WHERE Id = @Proc_Id;
 
	-- Get proc created date
	UPDATE #ProcDoc
	SET CreatedDate =
	(
		SELECT (SELECT SUBSTRING([Text], PATINDEX('--Author: ', [text]) + 17, LEN([Text]) - (PATINDEX('--Author: ', [text]) + 17)))
		FROM #temp
		WHERE [text] LIKE '-- Create date:%'
	)
	WHERE Id = @Proc_Id; 
 
	-- Get proc description
	-- Bit messy here but works for my situation
	-- probably need modification dpending on your commenting habits
	UPDATE #ProcDoc
	SET [Description] = REPLACE(CONVERT(VARCHAR(4000),  
	(
		SELECT *
		FROM
		( 
			SELECT REPLACE(REPLACE([text], '-- Description:', ''), '-- ', '') AS [text()]
			FROM #temp
			WHERE Id >= (SELECT Id FROM #temp WHERE [text] LIKE '-- Description:%')
			AND Id < (SELECT (Id - 1) FROM #temp WHERE [text] LIKE '%CREATE PROCEDURE%')
		) AS t FOR XML PATH('')
	)), '&#x0D;', '') -- Replace CR entities
	WHERE ID = @Proc_id;
 
	-- Drop the temp table
	DROP TABLE #temp;
 
	-- Get the next row
	FETCH NEXT FROM procCursor INTO @proc,
					@schema;
 
END
 
-- Clean up
CLOSE procCursor;
DEALLOCATE procCursor;
 
-- View procedure documentation
SELECT *
FROM #ProcDoc
WHERE [Description] IS NOT NULL;

-- SQL Server 2005 /2008
CREATE TABLE #databases
(
 DATABASE_NAME VARCHAR(50),
 DATABASE_SIZE FLOAT,
 REMARKS VARCHAR(100)
)
 
INSERT #Databases EXEC ('EXEC sp_databases');
 
SELECT @@SERVERNAME AS SERVER_NAME,
    DATABASE_NAME,
    DATABASE_SIZE AS '(KB)',
    ROUND(DATABASE_SIZE / 1024, 2) AS '(MB)',
    ROUND((DATABASE_SIZE / 1024) / 1024, 2) AS '(GB)',
    REMARKS
FROM #databases;
 
DROP TABLE #databases;

-- SQL 2000
SELECT @@SERVERNAME AS SERVER_NAME,
    db.name AS DATABASE_NAME,
    SUM(size * 8) AS '(KB)',
    ROUND(SUM(CAST((size * 8) AS FLOAT)) / 1024, 2) AS '(MB)',
    ROUND(((SUM(CAST((size * 8) AS FLOAT)) / 1024) / 1024), 2) AS '(GB)'
FROM sysaltfiles files
INNER JOIN sysdatabases db
 ON db.dbid = files.dbid
GROUP BY db.name

-- @@hostname variable introduced in MySQL 5.0.38
SELECT @@hostname,
       TABLE_SCHEMA AS `DATABASE`,
       ROUND(SUM(data_length + index_length +data_free) / 1024, 2) '(KB)',
       ROUND(SUM(data_length + index_length +data_free)/ 1024 / 1024, 2) '(MB)',
       ROUND(SUM(data_length + index_length +data_free)/ 1024 / 1024 /1024, 2) '(GB)'
FROM information_schema.TABLES
GROUP BY TABLE_SCHEMA;

CREATE SCHEMA Documentation;
GO

EXEC sys.sp_addextendedproperty @name=N'Description', @value=N'This schema contains views that exposes extended properties for database tables, column, view and other objects.' , @level0type=N'SCHEMA',@level0name=N'Documentation'
GO

CREATE VIEW Documentation.ColumnComments
AS
-- Column Comments
SELECT sch.name AS SchemaName,
	   tabs.name AS TableName,
	   cols.name AS ColumnName,
	   ty.name AS DataType,
	   cols.max_length AS MaxLength,
	   ep.name AS PropertyName,
	   ep.value AS PropertyValue
FROM sys.columns cols
INNER JOIN sys.tables tabs
	ON cols.object_id = tabs.object_id
INNER JOIN sys.schemas sch
	ON sch.schema_id = tabs.schema_id
INNER JOIN sys.types ty
	ON ty.system_type_id = cols.system_type_id
	AND ty.user_type_id = cols.user_type_id
LEFT JOIN sys.extended_properties ep
	ON cols.object_id = ep.major_id
	AND ep.minor_id = cols.column_id;
GO
CREATE VIEW Documentation.TableComments
AS
-- Table comments
SELECT sch.name AS SchemaName,
	   tabs.name AS TableName,
	   ep.name AS PropertyName,
	   ep.value AS PropertyValue
FROM sys.tables tabs
INNER JOIN sys.schemas sch
	ON sch.schema_id = tabs.schema_id
LEFT JOIN sys.extended_properties ep
	ON tabs.object_id = ep.major_id
	AND ep.minor_id = 0;
GO
CREATE VIEW Documentation.SchemaComments
AS
-- Schema comments
SELECT sch.name AS SchemaName,
	   ep.name AS PropertyName,
	   ep.value AS PropertyValue
FROM sys.schemas sch
LEFT JOIN sys.extended_properties ep
	ON sch.schema_id = ep.major_id
WHERE sch.principal_id = 1;
GO
CREATE VIEW Documentation.ViewComments
AS
-- View Comments
SELECT sch.name AS SchemaName,
	   vw.name AS TableName,
	   ep.name AS PropertyName,
	   ep.value AS PropertyValue
FROM sys.views vw
INNER JOIN sys.schemas sch
	ON sch.schema_id = vw.schema_id
LEFT JOIN sys.extended_properties ep
	ON vw.object_id = ep.major_id
	AND ep.minor_id = 0;
GO

SELECT *
FROM Documentation.ColumnComments;

SELECT *
FROM Documentation.SchemaComments;

SELECT *
FROM Documentation.TableComments;

SELECT *
FROM Documentation.ViewComments;

ALTER TABLE TestTable COMMENT 'Data supplied by ACME Corp.';

-- View table comments for the current database
SELECT TABLE_NAME, TABLE_COMMENT
FROM information_schema.tables
WHERE TABLE_SCHEMA = DATABASE();

EXEC sys.sp_addextendedproperty @name=N'Description', 
				@value=N'hello table Customer',
				@level0type=N'SCHEMA', 
				@level0name=N'dbo', 
				@level1type=N'TABLE', 
				@level1name=N'Customer';

-- Table comments
SELECT objtype, objname, name, value
FROM fn_listextendedproperty
(
	NULL, 
	'schema', 
	'dbo', 
	'table', 
	default, 
	NULL, 
	NULL
);
GO

SELECT TABLE_SCHEMA, TABLE_NAME
FROM INFORMATION_SCHEMA.TABLES
WHERE TABLE_TYPE = 'BASE TABLE';

-- Generate T_SQL to add extended properties to all tables
-- in temp_table_comments
SELECT 'EXEC sys.sp_addextendedproperty @name=N''TABLE_COMMENT'', 
					@value=N''' + COMMENT + ''',
					@level0type=N''SCHEMA'', 
					@level0name=N''' + TABLE_SCHEMA + ''',
					@level1type=N''TABLE'', 
					@level1name=N''' + TABLE_NAME + ''';'
FROM temp_table_comments;

-- Table comments for AdventureWorks
-- Sales schema
SELECT objtype, objname, name, value
FROM fn_listextendedproperty
(
	NULL, 
	'schema', 
	'Sales', 
	'table', 
	NULL, 
	NULL, 
	NULL
)
WHERE [name] = 'TABLE_COMMENT'
GO