如何使用ADO從查詢中檢索所有錯誤和消息

Question

當SQL批處理返回來自例如多個消息的多條消息時。打印語句，那麼我只能使用ADO連接的Errors集合檢索第一個。我如何獲得剩餘的消息？

如果我運行此腳本：

Option Explicit 
Dim conn 
Set conn = CreateObject("ADODB.Connection") 
conn.Provider = "SQLOLEDB" 
conn.ConnectionString = "Data Source=(local);Integrated Security=SSPI;Initial Catalog=Master" 
conn.Open 

conn.Execute("print 'Foo'" & vbCrLf & "print 'Bar'" & vbCrLf & "raiserror ('xyz', 10, 127)") 

Dim error 
For Each error in conn.Errors 
    MsgBox error.Description 
Next 

然後我只得到 「富」 回來了，從來沒有 「酒吧」 或 「XYZ」。

有沒有辦法得到剩餘的消息？

Answer 1

我想出了我自己的想法。

這工作：

Option Explicit 
Dim conn 
Set conn = CreateObject("ADODB.Connection") 
conn.Provider = "SQLOLEDB" 
conn.ConnectionString = "Data Source=(local);Integrated Security=SSPI;Initial Catalog=Master" 
conn.Open 

Dim rs 
Set rs = conn.Execute("print 'Foo'" & vbCrLf & "print 'Bar'" & vbCrLf & "raiserror ('xyz', 10, 127)") 

Dim error 
While not (rs is nothing) 
    For Each error in conn.Errors 
     MsgBox error.Description 
    Next 
    Set rs = rs.NextRecordSet 
Wend