5

我在各种表上有一些触发器，它们使用 raiserror 告诉用户他试图做坏事。我想以原子方式运行多个插入和更新，如果其中一个触发器这么说，则回滚。我在前世是邪恶的，所以我正在使用 Access VBA。

如果第一条语句有问题，我的 VBA 中会出现运行时错误。但是，如果第二个或后续语句调用 raiserror 那么我看不到任何错误消息。

解决方案：检查 connection.Errors 集合。

这是一个 Access 2007 ADP 前端和一个 SQL 2005 数据库。

下面的 VBA 是显示效果的最低限度。如果我将所有原子语句包装在存储过程中，我会得到相同的效果。

我认为我很聪明，将我的验证尽可能靠近数据库。明显不是！

如果您愿意尝试下面的代码，请在 CommandText 中交换 s1 和 s2 的顺序并欣赏不同的结果。

Public Sub TestSqlErrors2()
'CREATE TABLE [dbo].[tblStuff]([id] [int] IDENTITY primary key NOT NULL,[stuff] [varchar](255) NULL)
Dim cmd As ADODB.Command
Dim cnn As ADODB.Connection
Dim r As Long
Dim s1 As String
Dim s2 As String

s1 = " insert into tblStuff(stuff) values ('aaa')  "
s2 = " if 1=1 begin raiserror ('me, i''m just a lawnmower',16,1)  rollback transaction end "

Set cnn = Application.CurrentProject.Connection
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = cnn
'cnn.BeginTrans 'makes no difference
cmd.CommandText = "begin transaction " & s2 & s1 & " commit transaction "
cmd.Execute r
'cnn.CommitTrans
'cnn.Errors.count is either 2 or 0
End Sub

我尝试了各种组合。在下面的存储过程中，我明确（重新）提出了一个错误。但是，该错误不会传递回 VBA。

--CREATE TABLE [dbo].[tblStuff]([id] [int] IDENTITY primary key NOT NULL,[stuff] [varchar](255) NULL)
alter proc AddMoreStuff2
as
begin try
  begin transaction
  --swap the two statements below around to see the difference
  --if the first statement is raiserror then a run-time error appears in VBA
  --if not, no error appears in VBA, although no records are added
  insert into tblStuff(stuff) values ('aaa') 
  if 1=1 begin raiserror ('me, i''m just a lawnmower',16,1)  rollback transaction     end
  commit transaction
end try
begin catch
  declare @errormessage varchar(1024)
  set @errormessage = error_message()
  raiserror ( @errormessage, 16, 1 )
end catch

调用这个新过程的 VBA 代码是......

Public Sub TestSqlErrors2()
Dim cmd As ADODB.Command
Dim cnn As ADODB.Connection
Dim r As Long

Set cnn = Application.CurrentProject.Connection
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = cnn

cmd.CommandText = "exec AddMoreStuff2"
cmd.Execute r

End Sub
4

2 回答 2

3

请参阅http://support.microsoft.com/kb/254304

PRB：ADO 错误集合不包含用户定义的错误消息

使用 ActiveX 数据对象 (ADO) 执行 SQL Server 存储过程 (SP) 不会使用 SP 中引发的用户定义错误填充 Connection 对象的 ADO 错误集合。仅当使用 SQL Server 的 OLE DB 提供程序 (SQLOLEDB) 建立与 SQL Server 数据库的 ADO 连接时，才会出现此行为。

您必须在 sql 脚本的开头显式设置 nocount 。

于 2012-10-17T18:12:29.930 回答
1

DAO 不会引发 VBA 错误，但会填充连接 .Errors 集合。所以我可以在每次 Execute 调用后检查它以获取错误描述。例如：

Dim errorMessage As String
Dim e As Object
For Each e In cnn.Errors
    errorMessage = errorMessage & e.Description
Next
If Len(errorMessage) > 0 Then
    Err.Raise 64000 - 1, Left(cmd.CommandText, 20), errorMessage
End If
于 2012-05-14T11:18:00.083 回答