无法捕获Exec执行的错误信息！

[skyclin]

Set @SQLStr= 'Delete from ['+@TargetServer+'].'+@SourceDB+'.dbo.tbQSD Where pk_recpid='''+@pk_recpid+'''
Insert Into ['+@TargetServer+'].'+@SourceDB+'.dbo.tbQSD Select * from dbo.tbQSD Where pk_recpid='''+@pk_recpid+'''
Delete from ['+@TargetServer+'].'+@SourceDB+'.dbo.tbClientCHInOut Where SourceBill='''+@pk_recpid+'''
Insert Into ['+@TargetServer+'].'+@SourceDB+'.dbo.tbClientCHInOut Select * from dbo.tbClientCHInOut Where SourceBill='''+@pk_recpid+''' '
Print(@SQLStr)
Exec(@SQLStr)
If @@Error>0
Begin
Select @ReStatus=2, @ReMsg='插入错误'
return
End

[zhenjie]

这是什么？ 是VB脚本？还是PL-SQL语句？需要简单说明背景。

[skyclin]

是SQLServer2000写的一个动态T-SQL语句。

[zhenjie]

你的问题时什么？需要简单介绍一下。我们只看到了一些代码。不知所云。