壓縮SQLServer資料庫日誌的一個預存程序

use master  --注意,此預存程序要建在master資料庫中
go

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 '''+@dbname+''',''autoshrink'',''TRUE''')

--後面的步驟有一定危險,你可以可以選擇是否應該這些步驟
--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 disk='''+@bkfname+'''')
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 '''+@dbname+'''')

--刪除記錄檔
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 '''+@dbname+''''+@s)
go

/*--調用樣本
 exec p_compdb 'test'
--*/