Get delimited list of column names for each table in a database

originally posted 2013-4-1

1	originally posted 2013-4-1

select [Table] = '[' +[Name] + ']'
,[Columns] = '''' + left([Columns],len(columns)-1) + ''''
from
(
 select top 10000 
 t.name
 ,[Columns] = substring(
 (
  select
  '[' + c.name + '], '
  from sys.columns c 
  where t.object_id = c.object_id
  order by c.[Name]
  for xml path('')
 )
 ,1,8000)
 from sys.tables t
 
 where t.type = 'U'
 order by t.name
) as f1
group by [Name],[Columns]

select [Table] = '[' +[Name] + ']'

,[Columns] = '''' + left([Columns],len(columns)-1) + ''''

from

(

select top 10000

t.name

,[Columns] = substring(

(

select

'[' + c.name + '], '

from sys.columns c

where t.object_id = c.object_id

order by c.[Name]

for xml path('')

)

,1,8000)

from sys.tables t

where t.type = 'U'

order by t.name

) as f1

group by [Name],[Columns]