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