--Sql Server 2000 declare @id int, @name varchar(100), @s varchar(8000) declare cur_1 cursor for select id,name from sysobjects where xtype='U' --and id=537768973 open cur_1 fetch cur_1 into @id,@name while(@@fetch_status=0) begin if exists(select * from tempdb..sysobjects where id=object_id('tempdb..##temp')) drop table ##temp create table ##temp(名称 varchar(100),数据类型 varchar(100),长度 varchar(100),默认值 varchar(100),注释 varchar(100)) Insert into ##temp(名称,数据类型,长度,默认值,注释) select '表名:',Cast(@name as varchar(100)),'','','' union all select '名称','数据类型','长度','默认值','注释' union all select Cast(t3.name as varchar(100)) 名称,Cast(t5.name as varchar(20)) 数据类型,Cast(t3.length as varchar(20)) 长度,isnull(Cast(t6.text as varchar(100)),'') 默认值,isnull(Cast(t4.value as varchar(1000)),'') 注释 from syscolumns t3 left join sysproperties t4 on t3.id=t4.id and t3.colid=t4.smallid left join systypes t5 on t3.xtype=t5.xusertype left join syscomments t6 on t3.cdefault=t6.id where t3.id=@id union all select '','','','','' union all select '','','','','' union all select '-','-','-','-','-' --declare @s varchar(8000) set @s='Insert Into OpenRowSet(''Microsoft.Jet.OLEDB.4.0'',''Excel 8.0;DataBase=C:\temp.xls'',''select * from [Sheet1$]'') select * from ##temp' Exec(@s) fetch cur_1 into @id,@name end deallocate cur_1
--Sql Server 2008 declare @id int, @name varchar(100), @s varchar(8000) declare cur_1 cursor for select id,name from sysobjects where xtype='U' --and id=37575172 open cur_1 fetch cur_1 into @id,@name while(@@fetch_status=0) begin if exists(select * from tempdb..sysobjects where id=object_id('tempdb..##temp')) drop table ##temp create table ##temp(名称 varchar(100),数据类型 varchar(100),长度 varchar(100),默认值 varchar(100),注释 varchar(100)) Insert into ##temp(名称,数据类型,长度,默认值,注释) select '表名:',Cast(@name as varchar(100)),'','','' union all select '名称','数据类型','长度','默认值','注释' union all select Cast(t3.name as varchar(100)) 名称,Cast(t5.name as varchar(20)) 数据类型,Cast(t3.length as varchar(20)) 长度,isnull(Cast(t6.text as varchar(100)),'') 默认值,isnull(Cast(t4.value as varchar(1000)),'') 注释 from syscolumns t3 left join sys.extended_properties t4 on t3.id=t4.major_id and t3.colorder=t4.minor_id left join systypes t5 on t3.xtype=t5.xusertype left join syscomments t6 on t3.cdefault=t6.id where t3.id=@id union all select '','','','','' union all select '','','','','' union all select '-','-','-','-','-' --declare @s varchar(8000) set @s='Insert Into OpenRowSet(''Microsoft.Jet.OLEDB.4.0'',''Excel 8.0;DataBase=C:\temp.xls'',''select * from [Sheet1$]'') select * from ##temp' Exec(@s) fetch cur_1 into @id,@name end deallocate cur_1