Get all fields names for all tables in SQL

USE [SH]
GO

/****** Object:  StoredProcedure [dbo].[spGetAllFieldsNamesInAllTables]    Script Date: 06/19/2013 15:13:59 ******/
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO

CREATE  proc [dbo].[spGetAllFieldsNamesInAllTables] 
AS
--this sp will go through all the sp and fn and grant exec to @Role 
declare @TableName varchar(100)
declare @ColumnName varchar(100)

declare @sql varchar(1000)

if not exists (select * from sys.objects where [name] = 'TableColumns')
	create table TableColumns
	(
		[TableName] varchar(100),
		[ColumnName] varchar(100)
	)

	declare c cursor for
		SELECT name
		FROM sys.objects
		WHERE type_desc LIKE '%TABLE%' and Type = 'U'
		order by [name]
		
	OPEN c
	FETCH NEXT FROM c 
	INTO @TableName
	
	WHILE @@FETCH_STATUS = 0
	BEGIN
	set @sql = '
		insert into TableColumns (TableName, ColumnName)
		select ' + '''' + @TableName + '''' + ', column_name from information_schema.columns
		where table_name = ' + '''' + @TableName + '''' 
		+ ' order by ordinal_position '

		
 
		exec (@sql)


	  FETCH NEXT FROM c 
	    INTO @TableName
	    
	END
	CLOSE c
	DEALLOCATE c

	

GO