/*--压缩的通用存储过程

 

 压缩日志及数据库文件大小

 因为要对数据库进行分离处理

 所以存储过程不能创建在被压缩的数据库中

--邹建 2004.03(引用请保留此信息)--*/

/*--调用示例

 exec p_compdb 'test'

--*/

use master  --注意,此存储过程要建在master数据库中

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_compdb]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)

drop procedure [dbo].[p_compdb]

GO

create proc p_compdb

@dbname sysname,   --要压缩的数据库名

@bkdatabase bit=1,   --因为分离日志的步骤中,可能会损坏数据库,所以你可以选择是否自动数据库

@bkfname nvarchar(260)='' --备份的文件名,如果不指定,自动备份到默认备份目录,备份文件名为:数据库名+日期时间

as

--1.清空日志

exec('DUMP TRANSACTION ['+@dbname+'] WITH  NO_LOG')

--2.截断事务日志：

exec('BACKUP LOG ['+@dbname+'] WITH NO_LOG')

--3.收缩数据库文件(如果不压缩,数据库的文件不会减小

exec('DBCC SHRINKDATABASE(['+@dbname+'])')

--4.设置自动收缩

exec('EXEC sp_dboption )

--后面的步骤有一定危险,你可以可以选择是否应该这些步骤

--5.分离数据库

if @bkdatabase=1

begin

 if isnull(@bkfname,'')='' 

  set @bkfname=@dbname+'_'+convert(varchar,getdate(),112)

   +replace(convert(varchar,getdate(),108),':','')

 select 提示信息='备份数据库到SQL 默认备份目录,备份文件名:'+@bkfname

 exec('backup database ['+@dbname+'] to )

end

--进行分离处理

create table #t(fname nvarchar(260),type int)

exec('insert into #t select filename,type=status&0x40 from ['+@dbname+']..sysfiles')

exec('sp_detach_db )

--删除日志文件

declare @fname nvarchar(260),@s varchar(8000)

declare tb cursor local for select fname from #t where type=64

open tb 

fetch next from tb into @fname

while @@fetch_status=0

begin

 set @s='del "'+rtrim(@fname)+'"'

 exec master..xp_cmdshell @s,no_output

 fetch next from tb into @fname

end

close tb

deallocate tb

--附加数据库

set @s=''

declare tb cursor local for select fname from #t where type=0

open tb 

fetch next from tb into @fname

while @@fetch_status=0

begin

 set @s=@s+','''+rtrim(@fname)+''''

 fetch next from tb into @fname

end

close tb

deallocate tb

exec('sp_attach_single_file_db )

go