收藏幾段SQL Server語句和預存程序

中文轉載--

收藏幾段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('+@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 -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