可以推荐的SQL Server语句和存储过程

[ 2006-06-11 11:59:32 | 作者: admin ]
字号: | |
SQL Server语句和存储过程

*************************************************
    统计SQL数据表个数、占用字节
*************************************************

declare @id int
declare @type character(2)
declare @pages
int
declare @dbname sysname
declare @dbsize dec(15,0)
declare @bytesperpage dec(15,0)
declare @pagesperMB dec(15,0)
create table #spt_space
(
objid int null,
rows int null,
reserved dec(15) null,
data dec(15) null,
indexp dec(15) null,
unused dec(15) null
)
set nocount on
-- Create a cursor to loop through the user tables
declare c_tables cursor for
select id
from sysobjects
where xtype = 'U'
open c_tables
fetch next from c_tables
into @id
while @@fetch_status = 0
begin
/* Code from sp_spaceused */
insert into #spt_space (objid, reserved)
select objid = @id, sum(reserved)
from sysindexes
where indid in (0, 1, 255)
and id = @id
select @pages = sum(dpages)
from sysindexes
where indid < 2
and id = @id
select @pages = @pages + isnull(sum(used), 0)
from sysindexes
where indid = 255
and id = @id
update #spt_space
set data = @pages
where objid = @id

/* index: sum(used) where indid in (0, 1, 255) - data */
update #spt_space
set indexp = (select sum(used)
from sysindexes
where indid in (0, 1, 255)
and id = @id)
- data
where objid = @id
/* unused: sum(reserved) - sum(used) where indid in (0, 1, 255) */
update #spt_space
set unused = reserved
- (select sum(used)
from sysindexes
where indid in (0, 1, 255)
and id = @id)
where objid = @id
update #spt_space
set rows = i.rows
from sysindexes i
where i.indid < 2
and i.id = @id
and objid = @id
fetch next from c_tables
into @id
end
select TableName = (select left(name,60) from sysobjects where id = objid),
Rows = convert(char(11), rows),
ReservedKB = ltrim(str(reserved * d.low / 1024.,15,0) + ' ' + 'KB'),
DataKB = ltrim(str(data * d.low / 1024.,15,0) + ' ' + 'KB'),
IndexSizeKB = ltrim(str(indexp * d.low / 1024.,15,0) + ' ' + 'KB'),
UnusedKB = ltrim(str(unused * d.low / 1024.,15,0) + ' ' + 'KB')

from #spt_space, master.dbo.spt_values d
where d.number = 1
and d.type = 'E'
order by reserved desc
drop table #spt_space
close c_tables
deallocate c_tables

======================================================

--列出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
[最后修改由 admin, 于 2006-06-13 18:46:23]
评论Feed 评论Feed: http://blog.xg98.com/feed.asp?q=comment&id=653

这篇日志没有评论。

此日志不可发表评论。