ADO 命令运行多个 SQL 语句：无法返回错误消息：使用连接。错误集合

Question

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

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

解决方案：检查连接。错误收集。

这是一个 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

Answer 1

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

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

使用 ActiveX 数据执行 SQL Server 存储过程 (SP( 对象 (ADO( 不会填充 ADO 错误集合 具有在 SP 中引发的用户定义错误的连接对象。 仅当使用适用于 SQL 的 OLE 数据库提供程序时，才会发生此行为 服务器 (SQLOLEDB( 建立到 SQL Server 数据库的 ADO 连接。

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

Answer 2

DAO 不会引发 VBA 错误，但它确实填充了连接。错误收集。所以我可以在每次执行调用后检查这一点以获取错误描述。例如：

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