再发一个比较完整日志回复测试版-CSDN论坛

⋅再发一个比较完整日志回复测试版 ⋅jinjazz 日志测试 sql版本 ⋅ddl 触发 更多帖子 关注空间博客 zsforever 本版专家分：8293 结帖率 100%: SQL server 2005
定义了char,varchar,datetime,smalldatetime,int,bigint,tinyint,decimal,bit 类型，其它类型会出错
我定义的sp可以打印出最近被删除的sql语句
贴下代码，希望和感兴趣的朋友共享:-)

--Function
create function dbo.f_splitBinary(@s varbinary(8000))
returns @t table(id int identity(1,1),Value binary(1))
as
begin
declare @i int,@im int
select @i=1,@im=datalength(@s)
while @i<=@im
begin
  insert into @t select substring(@s,@i,1)
  set @i=@i+1
end
return
end

CREATE function dbo.f_reverseBinary(@s varbinary(128))
returns varbinary(128)
as
begin
declare @r varbinary(128)
set @r=0x
select @r=@r+Value from dbo.f_splitBinary(@s) a order by id desc
return @r
end

CREATE proc [dbo].[p_printSql](@sql varchar(max),@flag char(1)=',',@intal varchar(5)='' )
as
declare @l_sql varchar(8000),@i int,@l int
set @l=len(@sql)
while @l>8000-5
begin
select @i=8000-5-charindex(@flag,reverse(left(@sql,8000-5))),@l_sql=left(@sql,@i),@sql=right(@sql,@l-@i),@l=@l-@i
print @intal+@l_sql
end
print @intal+@sql

0 2009-04-09 17:14:19

回复数 10 只看楼主引用举报楼主

⋅再发一个比较完整日志回复测试版 ⋅jinjazz 日志测试 sql版本 ⋅ddl 触发 更多帖子 关注空间博客 zsforever 本版专家分：8293: --日志SP
alter proc [dbo].[p_getLog](@TableName sysname,@c int=10)
as
set nocount on
declare @s varbinary(8000),@str nvarchar(max),@lb int,@le int,@operation varchar(128),@TSqlColumn nvarchar(max),@TSqlValue nvarchar(max)
declare @i int,@lib int,@lie int,@ib int,@ie int,@lenVar int,@columnname sysname,@length int,@columntype varchar(32),@prec int,@scale int
declare @TUVLength int,@vc int,@tc int,@bitAdd int,@bitCount int,@count int,@bint bigint,@sign binary(1)
declare @sql nvarchar(max)
select b.name,b.length,c.name typename,b.colid,b.xprec,b.xscale,
case when c.name not like '%var%' and c.name not in ('xml','text','image') then 1 else 2 end p,row_number() over(partition by
case when c.name not like '%var%' and c.name not in ('xml','text','image') then 1 else 2 end order by colid) pid
into #t
from sysobjects a inner join syscolumns b on a.id=b.id inner join systypes c on b.xtype=c.xusertype
where a.name=@TableName order by b.colid
SELECT top(@c) Operation,[RowLog Contents 0],id=identity(int,1,1) into #t1
from::fn_dblog (null, null)
where AllocUnitName like 'dbo.'+@TableName+'%'and
Operation in('LOP_INSERT_ROWS','LOP_DELETE_ROWS') order by [Current LSN] desc
select @tc=count(*) from #t
select @lb=min(id),@le=max(id) from #t1
while @lb<=@le
begin
select @operation=Operation,@s=[RowLog Contents 0] from #t1 where id=@lb
set @TUVLength=convert(int,dbo.f_reverseBinary(substring(@s,3,2)))+3
select @i=5,@str='',@vc=0,@bitCount=0,@TSqlColumn='insert into '+@TableName+'(',@TSqlValue='values('
select @lib=min(pid),@lie=max(pid) from #t where p=1
while @lib<=@lie
begin
  select @columnname=name,@length=length,@columntype=typename,@prec=xprec,@scale=xscale,@vc=colid-1 from #t where p=1 and pid=@lib
--  if @columntype<>'bit'
--  print @columnname+':'+rtrim(@i)+'->'+rtrim(@length)
  if dbo.f_reverseBinary(substring(@s,@TUVLength+@vc/8,1)) & power(2,@vc%8) <> 0
  begin
  select @TSqlColumn=@TSqlColumn+'['+@columnname+'],',@TSqlValue=@TSqlValue+'NULL,'
  if @columntype<>'bit'
    select @str=@str+@columnname+'=NULL,',@i=@i+@length
  else
  begin
    select @str=@str+@columnname+'=NULL,'
    set @bitAdd = case when @bitCount=0 then @i else @bitAdd end
    set @bitCount = (@bitCount + 1)%8
    set @i=@i+case @bitCount when 1 then 1 else 0 end
--    print @columnname+':'+rtrim(@bitAdd)+'->'+rtrim(@length)
  end
  end
  else if @columntype='char'
  select @str=@str+@columnname+'='+convert(varchar(256),substring(@s,@i,@length))+','
    ,@TSqlColumn=@TSqlColumn+'['+@columnname+'],',@TSqlValue=@TSqlValue+''''+convert(varchar(256),substring(@s,@i,@length))+''','
    ,@i=@i+@length
  else if @columntype='nchar'
  select @str=@str+@columnname+'='+convert(nvarchar(256),substring(@s,@i,@length))+','
    ,@TSqlColumn=@TSqlColumn+'['+@columnname+'],',@TSqlValue=@TSqlValue+''''+convert(nvarchar(256),substring(@s,@i,@length))+''','
    ,@i=@i+@length
  else if @columntype='datetime'
  select @str=@str+@columnname+'='+convert(varchar,dateadd(second,convert(int,dbo.f_reverseBinary(substring(@s,@i,4)))/300
    ,dateadd(day,convert(int,dbo.f_reverseBinary(substring(@s,@i+4,4))),'1900-01-01')),120)+','
    ,@TSqlColumn=@TSqlColumn+'['+@columnname+'],',@TSqlValue=@TSqlValue+''''
    +convert(varchar,dateadd(second,convert(int,dbo.f_reverseBinary(substring(@s,@i,4)))/300
    ,dateadd(day,convert(int,dbo.f_reverseBinary(substring(@s,@i+4,4))),'1900-01-01')),120)+''','
    ,@i=@i+8
  else if @columntype='smalldatetime'
  select @str=@str+@columnname+'='+convert(varchar,dateadd(minute,convert(int,dbo.f_reverseBinary(substring(@s,@i,2)))
    ,dateadd(day,convert(int,dbo.f_reverseBinary(substring(@s,@i+2,2))),'1900-01-01')),120)+','
    ,@TSqlColumn=@TSqlColumn+'['+@columnname+'],',@TSqlValue=@TSqlValue+''''
    +convert(varchar,dateadd(minute,convert(int,dbo.f_reverseBinary(substring(@s,@i,2)))
    ,dateadd(day,convert(int,dbo.f_reverseBinary(substring(@s,@i+2,2))),'1900-01-01')),120)+''','
    ,@i=@i+4
  else if @columntype='int'
  select @str=@str+@columnname+'='+rtrim(convert(int,dbo.f_reverseBinary(substring(@s,@i,4))))+','
  ,@TSqlColumn=@TSqlColumn+'['+@columnname+'],',@TSqlValue=@TSqlValue+rtrim(convert(int,dbo.f_reverseBinary(substring(@s,@i,4))))+','
  ,@i=@i+4
  else if @columntype='bigint'
  select @str=@str+@columnname+'='+rtrim(convert(bigint,dbo.f_reverseBinary(substring(@s,@i,8))))+','
  ,@TSqlColumn=@TSqlColumn+'['+@columnname+'],',@TSqlValue=@TSqlValue+rtrim(convert(bigint,dbo.f_reverseBinary(substring(@s,@i,8))))+','
  ,@i=@i+8
  else if @columntype='tinyint'
  select @str=@str+@columnname+'='+rtrim(convert(tinyint,dbo.f_reverseBinary(substring(@s,@i,1))))+','
  ,@TSqlColumn=@TSqlColumn+'['+@columnname+'],',@TSqlValue=@TSqlValue+rtrim(convert(tinyint,dbo.f_reverseBinary(substring(@s,@i,1))))+','
  ,@i=@i+1
  else if @columntype='decimal'
  begin
  set @bint=convert(bigint,dbo.f_reverseBinary(substring(@s,@i+1,@length-1)))
  select @str=@str+@columnname+'='+case when substring(@s,@i,1) & 1 = 0 then '-' else '' end
    +case when len(@bint)<=@scale then '0.'+replicate('0',@scale-len(@bint))+rtrim(@bint)
    else left(@bint,len(@bint)-@scale)+'.'+right(@bint,@scale) end+','
  ,@TSqlColumn=@TSqlColumn+'['+@columnname+'],',@TSqlValue=@TSqlValue+case when substring(@s,@i,1) & 1 = 0 then '-' else '' end
    +case when len(@bint)<=@scale then '0.'+replicate('0',@scale-len(@bint))+rtrim(@bint)
    else left(@bint,len(@bint)-@scale)+'.'+right(@bint,@scale) end+','
  ,@i=@i+@length
  end
  else if @columntype='bit'
  begin
  set @bitAdd = case when @bitCount=0 then @i else @bitAdd end
  set @bitCount = (@bitCount + 1)%8
  select @str=@str+@columnname+'='+rtrim(convert(bit,substring(@s,@bitAdd,1)&power(2,case @bitCount when 0 then 8 else @bitCount end-1)))+','
  ,@TSqlColumn=@TSqlColumn+'['+@columnname+'],',@TSqlValue=@TSqlValue
    +rtrim(convert(bit,substring(@s,@bitAdd,1)&power(2,case @bitCount when 0 then 8 else @bitCount end-1)))+','
  ,@i=@i+case @bitCount when 1 then 1 else 0 end
--  print @columnname+':'+rtrim(@bitAdd)+'->'+rtrim(@length)
  end
  set @lib=@lib+1
end
set @i=convert(int,dbo.f_reverseBinary(substring(@s,3,2)))+4+((@tc-1)/8)
set @lenVar=convert(int,dbo.f_reverseBinary(substring(@s,@i,2)))
set @i=@i+2
set @ib=@i + @lenVar*2
set @ie=convert(int,dbo.f_reverseBinary(substring(@s,@i,2)))
set @count=0
select @lib=min(pid),@lie=max(pid) from #t where p=2
while @lib<=@lie
begin
  select @columnname=name,@length=length,@columntype=typename,@vc=colid-1 from #t where p=2 and pid=@lib
--  print @columnname+':'+rtrim(@ib)+'->'+rtrim(@ie)
  if dbo.f_reverseBinary(substring(@s,@TUVLength+@vc/8,1)) & power(2,@vc%8) <> 0
  begin
  select @str=@str+@columnname+'=NULL,',@TSqlColumn=@TSqlColumn+'['+@columnname+'],',@TSqlValue=@TSqlValue+'NULL,'
  select @ib=@ie+1,@i=@i+2
  if @count<@lenVar
    set @ie=convert(int,dbo.f_reverseBinary(substring(@s,@i,2)))
  end
  else if @columntype='varchar'
  begin
  select @str=@str+@columnname+'='+convert(varchar(256),substring(@s,@ib,@ie-@ib+1))+','
  ,@TSqlColumn=@TSqlColumn+'['+@columnname+'],',@TSqlValue=@TSqlValue+''''+convert(varchar(256),substring(@s,@ib,@ie-@ib+1))+''','
  select @ib=@ie+1,@i=@i+2
  if @count+1<@lenVar
    set @ie=convert(int,dbo.f_reverseBinary(substring(@s,@i,2)))
  end
  else if @columntype='nvarchar'
  begin
  select @str=@str+@columnname+'='+convert(nvarchar(256),substring(@s,@ib,@ie-@ib+1))+','
  ,@TSqlColumn=@TSqlColumn+'['+@columnname+'],',@TSqlValue=@TSqlValue+''''+convert(nvarchar(256),substring(@s,@ib,@ie-@ib+1))+''','
  select @ib=@ie+1,@i=@i+2
  if @count+1<@lenVar
    set @ie=convert(int,dbo.f_reverseBinary(substring(@s,@i,2)))
  end
  set @count=@count+1
  set @lib=@lib+1
end

0 2009-04-09 17:15:23

只看TA 引用举报 #1    得分 0

⋅还有谁在？冒个泡

⋅DBA_Huangzj能送本收吗？

⋅冒个泡，混个脸熟。

更多帖子

关注空间博客

liangCK

本版专家分：116358

进士 2008年总版技术专家分年内排行榜第八

微软MVP 2010年4月荣获微软MVP称号

黄花 2008年10月 MS-SQL Server大版内专家分月排行榜第二
2008年6月 MS-SQL Server大版内专家分月排行榜第二

蓝花 2008年4月 MS-SQL Server大版内专家分月排行榜第三
2008年3月 MS-SQL Server大版内专家分月排行榜第三: 学习.

0 2009-04-09 17:15:29

只看TA 引用举报 #2 得分 15

⋅再发一个比较完整日志回复测试版 ⋅jinjazz 日志测试 sql版本 ⋅ddl 触发 更多帖子 关注空间博客 zsforever 本版专家分：8293: set @str=left(@str,len(@str)-1)
set @TSqlColumn=left(@TSqlColumn,len(@TSqlColumn)-1)+')'
set @TSqlValue=left(@TSqlValue,len(@TSqlValue)-1)+')'
set @sql=@operation+':'+@str
exec dbo.p_printSql @sql,',','--'
if @operation='LOP_DELETE_ROWS'
begin
  exec dbo.p_printSql @TSqlColumn
  exec dbo.p_printSql @TSqlValue
end
set @lb=@lb+1
end
drop table #t,#t1

--测试
if exists(select * from sysobjects where name='abc')
drop table abc
create table abc(c1 int primary key,c2 datetime,d1 bit,c3 smalldatetime,d3 smalldatetime ,c4 nchar(3),c5 bit,c6 varchar(10),c7 varchar(3),c8 bit,c9 bit,c10 bit,c11 bit ,c12 bit,c13 decimal(38,16),c14 bigint,c15 decimal(19,8))
insert into abc
select -1,getdate(),0,null,getdate()-365,N'213',0,'324afa445','a',null,1,1,0,1,-656.1448,-15555555,1.01
insert into abc
select 2,getdate(),null,getdate(),getdate()-365,N'246',null,'32432asdf','b',0,1,1,0,1,656.1448,34322343,-0.03
insert into abc
select 3,getdate(),1,getdate(),getdate()-365,N'979',0,'anzi3223','c',1,1,1,0,1,-656.1448,45435399,1.04
delete from abc

--运行sp
exec dbo.p_getLog abc,3
--然后把生成的脚本放到窗口里执行，ok，删除的数据又恢复了~

0 2009-04-09 17:15:39

只看TA 引用举报 #3    得分 0

⋅再发一个比较完整日志回复测试版 ⋅jinjazz 日志测试 sql版本 ⋅ddl 触发 更多帖子 关注空间博客 zsforever 本版专家分：8293: 终于贴完了~

0 2009-04-09 17:16:32

只看TA 引用举报 #4 得分 0

⋅如何为Tabcontrol里的控件绑定事件？ ⋅在文本框中追加文字是，显示不同的字体 ⋅wpf grid怎么隐藏一列？ 更多帖子 关注空间博客 让你望见影子的墙 本版专家分：57054 蓝花 2009年4月 MS-SQL Server大版内专家分月排行榜第三: 学习

0 2009-04-09 17:25:29

只看TA 引用举报 #5 得分 15

⋅oneway的webmethod无法获取HttpContext.Current.ApplicationInstance ⋅MVC3:为什么页面Post后action可以获取到参数。 ⋅sql server 11可以用offset来做数据分页了。 更多帖子 关注空间博客 Zoezs 本版专家分：11982: 学习。

0 2009-04-09 17:25:48

只看TA 引用举报 #6 得分 15

⋅路过，散分！

⋅[散分] 许久不来，散个分，混个脸熟

⋅押宝啦！！10月29日凌晨零点英超切尔西对曼联，天王山之战

更多帖子

关注空间博客

百年树人

本版专家分：96450

铜牌 2010年2月总版技术专家分月排行榜第三

微软MVP 2012年7月荣获微软MVP称号

红花 2010年2月 MS-SQL Server大版内专家分月排行榜第一
2009年5月 MS-SQL Server大版内专家分月排行榜第一

黄花 2012年6月 MS-SQL Server大版内专家分月排行榜第二
2010年8月 MS-SQL Server大版内专家分月排行榜第二: 学习

0 2009-04-09 17:54:20

只看TA 引用举报 #7 得分 15

⋅代码里面有 oneline 的数据和 twoline 的数据，如何把这两组数据并集起来？

⋅恭喜qianjin036a兄弟摘得6月红花

⋅[已处理]WIN7 64位&IE9，在SQL版块回复贴子时，显示不出代码工具条

更多帖子

关注空间博客

htl258_Tony

本版专家分：127677

进士 2010年总版技术专家分年内排行榜第十

银牌 2010年5月总版技术专家分月排行榜第二
2010年4月总版技术专家分月排行榜第二

微软MVP 2011年7月荣获微软MVP称号
2010年7月荣获微软MVP称号

红花 2010年5月 MS-SQL Server大版内专家分月排行榜第一
2010年4月 MS-SQL Server大版内专家分月排行榜第一
2009年4月 MS-SQL Server大版内专家分月排行榜第一: 学习

0 2009-04-09 17:56:40

只看TA 引用举报 #8 得分 15

⋅押宝奖励申请~~ ⋅【nianran520】恭喜生星 ⋅ACMAIN_CHM ==>【恭喜生星】<==guguda2008(鸭子) 更多帖子 关注空间博客 ai_li7758521 本版专家分：22938 红花 2009年6月 MS-SQL Server大版内专家分月排行榜第一: 学习

0 2009-04-09 18:02:09

只看TA 引用举报 #9 得分 15

⋅几年没来了，从今天开始又来了。 ⋅RAC环境的疑惑 ⋅左连接的疑惑？ 更多帖子 关注空间博客 ks_reny 本版专家分：10609: 谢谢分享。学习。

0 2009-04-09 18:22:53

只看TA 引用举报 #10 得分 10

再发一个比较完整日志回复测试版 [问题点数：100分，结帖人zsforever]