收藏几段SQL Server语句和存储过程

收藏 几段SQL Server 语句 和 存储 过程 (标准化越来越近了) :namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> -- ====================================================== --列出sql server (WINDOWS平台上强大的数据库平台) 所

收藏几段SQL  Server语句和存储过程(标准化越来越近了):namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />   -- ====================================================== --列出sql server(WINDOWS平台上强大的数据库平台) 所有表，字段名，主键，类型，长度，小数位数等信息 --在查询分析器里运行即可,可以生成一个表，导出到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(WINDOWS平台上强大的数据库平台) 所有表、字段定义，类型，长度，一个值等信息 并导出到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('+@fld+' as nvarchar))) FROM '+@tbl+')' 　　　　　　  --PRINT @sql 　　　　　　  EXEC SP_EXECUTESQL @sql,N'@maxlen int OUTPUT',@maxlen OUTPUT 　　　　　　  --print @maxlen 　　　　　　  SET @sql=N'SET @sample=(SELECT TOP 1 cast('+@fld+' as nvarchar) FROM '+@tbl+' WHERE len(cast('+@fld+' 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 '+@fld+' FROM '+ 　　　　　　　　　　 --@tbl+' 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 TableName=@tbl and FieldName=@fld 　　　 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:\'+@db+'_exp.xls -w -C936 -(标准化越来越近了):namespace prefix = st1 ns = "urn:schemas-microsoft-com:office:smarttags" />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 '+@tablename   --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 '+@tablename 　　　 select @sqlstr1='' 　　　 select @sqlstr2=' (' 　　　 select @sqlstr1= ' values ( ''+' 　　　 select @sqlstr1=@sqlstr1+col+'+'',''+' ,@sqlstr2=@sqlstr2+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 @sqlstr=@sqlstr+left(@sqlstr2,len(@sqlstr2)-1)+') '+left(@sqlstr1,len(@sqlstr1)-3)+')'' from '+@tablename --  print @sqlstr 　　　 exec( @sqlstr) 　　　 set nocount off end GO

1 2 3 4 5 6  下一页