sql server語句和存儲過程
-- ======================================================
--列出sql server 所有表，字段名，主鍵，類型，長度，小數位數等信息
--在查詢分析器里運行即可,可以生成一個表，導出到excel中
-- ======================================================
select
(case when a.colorder=1 then d.name else '' end)表名,
a.colorder 字段序號,
a.name 字段名,
(case when columnproperty( a.id,a.name,'isidentity')=1 then '√'else '' end) 標識,
(case when (select count(*)
from sysobjects
where (name in
(select name
from sysindexes
where (id = a.id) and (indid in
(select indid
from sysindexkeys
where (id = a.id) and (colid in
(select colid
from syscolumns
where (id = a.id) and (name = a.name))))))) and
(xtype = 'pk'))>0 then '√' else '' end) 主鍵,
b.name 類型,
a.length 占用字節數,
columnproperty(a.id,a.name,'precision') as 長度,
isnull(columnproperty(a.id,a.name,'scale'),0) as 小數位數,
(case when a.isnullable=1 then '√'else '' end) 允許空,
isnull(e.text,'') 默認值,
isnull(g.[value],'') as 字段說明
from syscolumns a left join systypes b
on a.xtype=b.xusertype
inner join sysobjects d
on a.id=d.id and d.xtype='u' and d.name<>'dtproperties'
left join syscomments e
on a.cdefault=e.id
left join sysproperties g
on a.id=g.id and a.colid = g.smallid
order by a.id,a.colorder
-------------------------------------------------------------------------------------------------
列出sql server 所有表、字段定義，類型，長度，一個值等信息
并導出到excel 中
-- ======================================================
-- export all user tables definition and one sample value
-- jan-13-2003,dr.zhang
-- ======================================================
在查詢分析器里運行：
set ansi_nulls off
go
set nocount on
go
set language 'simplified chinese'
go
declare @tbl nvarchar(200),@fld nvarchar(200),@sql nvarchar(4000),@maxlen int,@sample nvarchar(40)
select d.name tablename,a.name fieldname,b.name typename,a.length length,a.isnullable is_null into #t
from syscolumns a, systypes b,sysobjects d
where a.xtype=b.xusertype and a.id=d.id and d.xtype='u'
declare read_cursor cursor
for select tablename,fieldname from #t
select top 1 '_tablename ' tablename,
'fieldname ' fieldname,'typename ' typename,
'length' length,'is_null' is_null,
'maxlenused' as maxlenused,'sample value ' sample,
'comment ' comment into #tc from #t
open read_cursor
fetch next from read_cursor into @tbl,@fld
while (@@fetch_status <> -1) --- failes
begin
if (@@fetch_status <> -2) -- missing
begin
set @sql=n'set @maxlen=(select max(len(cast('[email protected]+' as nvarchar))) from '[email protected]+')'
--print @sql
exec sp_executesql @sql,n'@maxlen int output',@maxlen output
--print @maxlen
set @sql=n'set @sample=(select top 1 cast('[email protected]+' as nvarchar) from '[email protected]+' where len(cast('[email protected]+' as nvarchar))='+convert(nvarchar(5),@maxlen)+')'
exec sp_executesql @sql,n'@sample varchar(30) output',@sample output
--for quickly
--set @sql=n'set @sample=convert(varchar(20),(select top 1 '[email protected]+' from '+
[email protected]+' order by 1 desc ))'
print @sql
print @sample
print @tbl
exec sp_executesql @sql,n'@sample nvarchar(30) output',@sample output
insert into #tc select *,ltrim(isnull(@maxlen,0)) as maxlenused,
convert(nchar(20),ltrim(isnull(@sample,' '))) as sample,' ' comment from #t where [email protected] and [email protected]
end
fetch next from read_cursor into @tbl,@fld
end
close read_cursor
deallocate read_cursor
go
set ansi_nulls on
go
set nocount off
go
select count(*) from #t
drop table #t
go
select count(*)-1 from #tc
select * into ##tx from #tc order by tablename
drop table #tc
--select * from ##tx
declare @db nvarchar(60),@sql nvarchar(3000)
set @db=db_name()
--請修改用戶名和口令 導出到excel 中
set @sql='exec master.dbo.xp_cmdshell ''bcp ..dbo.##tx out c:/'[email protected]+'_exp.xls -w -c936 -
usa
-psa '''
print @sql
exec(@sql)
go
drop table ##tx
go
-- ======================================================
--根據表中數據生成insert語句的存儲過程
--建立存儲過程，執行 spgeninsertsql 表名
--感謝playyuer
-- ======================================================
create proc spgeninsertsql (@tablename varchar(256))
as
begin
declare @sql varchar(8000)
declare @sqlvalues varchar(8000)
set @sql =' ('
set @sqlvalues = 'values (''+'
select @sqlvalues = @sqlvalues + cols + ' + '','' + ' ,@sql = @sql + '[' + name + '],'
from
(select case
when xtype in (48,52,56,59,60,62,104,106,108,122,127)
then 'case when '+ name +' is null then ''null'' else ' + 'cast('+ name + ' as varchar)'+' end'
when xtype in (58,61)
then 'case when '+ name +' is null then ''null'' else '+''''''''' + ' + 'cast('+ name +' as varchar)'+ '+'''''''''+' end'
when xtype in (167)
then 'case when '+ name +' is null then ''null'' else '+''''''''' + ' + 'replace('+ name+','''''''','''''''''''')' + '+'''''''''+' end'
when xtype in (231)
then 'case when '+ name +' is null then ''null'' else '+'''n'''''' + ' + 'replace('+ name+','''''''','''''''''''')' + '+'''''''''+' end'
when xtype in (175)
then 'case when '+ name +' is null then ''null'' else '+''''''''' + ' + 'cast(replace('+ name+','''''''','''''''''''') as char(' + cast(length as varchar) + '))+'''''''''+' end'
when xtype in (239)
then 'case when '+ name +' is null then ''null'' else '+'''n'''''' + ' + 'cast(replace('+ name+','''''''','''''''''''') as char(' + cast(length as varchar) + '))+'''''''''+' end'
else '''null'''
end as cols,name
from syscolumns
where id = object_id(@tablename)
) t
set @sql ='select ''insert into ['+ @tablename + ']' + left(@sql,len(@sql)-1)+') ' + left(@sqlvalues,len(@sqlvalues)-4) + ')'' from '[email protected]
--print @sql
exec (@sql)
end
go
-- ======================================================
--根據表中數據生成insert語句的存儲過程
--建立存儲過程，執行 proc_insert 表名
--感謝sky_blue
-- ======================================================
create proc proc_insert (@tablename varchar(256))
as
begin
set nocount on
declare @sqlstr varchar(4000)
declare @sqlstr1 varchar(4000)
declare @sqlstr2 varchar(4000)
select @sqlstr='select ''insert '[email protected]
select @sqlstr1=''
select @sqlstr2=' ('
select @sqlstr1= ' values ( ''+'
select @[email protected]+col+'+'',''+' ,@[email protected]+name +',' from (select case
-- when a.xtype =173 then 'case when '+a.name+' is null then ''null'' else '+'convert(varchar('+convert(varchar(4),a.length*2+2)+'),'+a.name +')'+' end'
when a.xtype =104 then 'case when '+a.name+' is null then ''null'' else '+'convert(varchar(1),'+a.name +')'+' end'
when a.xtype =175 then 'case when '+a.name+' is null then ''null'' else '+'''''''''+'+'replace('+a.name+','''''''','''''''''''')' + '+'''''''''+' end'
when a.xtype =61 then 'case when '+a.name+' is null then ''null'' else '+'''''''''+'+'convert(varchar(23),'+a.name +',121)'+ '+'''''''''+' end'
when a.xtype =106 then 'case when '+a.name+' is null then ''null'' else '+'convert(varchar('+convert(varchar(4),a.xprec+2)+'),'+a.name +')'+' end'
when a.xtype =62 then 'case when '+a.name+' is null then ''null'' else '+'convert(varchar(23),'+a.name +',2)'+' end'
when a.xtype =56 then 'case when '+a.name+' is null then ''null'' else '+'convert(varchar(11),'+a.name +')'+' end'
when a.xtype =60 then 'case when '+a.name+' is null then ''null'' else '+'convert(varchar(22),'+a.name +')'+' end'
when a.xtype =239 then 'case when '+a.name+' is null then ''null'' else '+'''''''''+'+'replace('+a.name+','''''''','''''''''''')' + '+'''''''''+' end'
when a.xtype =108 then 'case when '+a.name+' is null then ''null'' else '+'convert(varchar('+convert(varchar(4),a.xprec+2)+'),'+a.name +')'+' end'
when a.xtype =231 then 'case when '+a.name+' is null then ''null'' else '+'''''''''+'+'replace('+a.name+','''''''','''''''''''')' + '+'''''''''+' end'
when a.xtype =59 then 'case when '+a.name+' is null then ''null'' else '+'convert(varchar(23),'+a.name +',2)'+' end'
when a.xtype =58 then 'case when '+a.name+' is null then ''null'' else '+'''''''''+'+'convert(varchar(23),'+a.name +',121)'+ '+'''''''''+' end'
when a.xtype =52 then 'case when '+a.name+' is null then ''null'' else '+'convert(varchar(12),'+a.name +')'+' end'
when a.xtype =122 then 'case when '+a.name+' is null then ''null'' else '+'convert(varchar(22),'+a.name +')'+' end'
when a.xtype =48 then 'case when '+a.name+' is null then ''null'' else '+'convert(varchar(6),'+a.name +')'+' end'
-- when a.xtype =165 then 'case when '+a.name+' is null then ''null'' else '+'convert(varchar('+convert(varchar(4),a.length*2+2)+'),'+a.name +')'+' end'
when a.xtype =167 then 'case when '+a.name+' is null then ''null'' else '+'''''''''+'+'replace('+a.name+','''''''','''''''''''')' + '+'''''''''+' end'
else '''null'''
end as col,a.colid,a.name
from syscolumns a where a.id = object_id(@tablename) and a.xtype <>189 and a.xtype <>34 and a.xtype <>35 and a.xtype <>36
)t order by colid
select @[email protected]+left(@sqlstr2,len(@sqlstr2)-1)+') '+left(@sqlstr1,len(@sqlstr1)-3)+')'' from '[email protected]
-- print @sqlstr
exec( @sqlstr)
set nocount off
end
go
說明：本貼純屬收藏，轉自李洪根的blog
