sql-server - 使用 ADO 时返回成功执行 SQL 的数据库消息

Question

我正在工作中开发一个遗留的 VB6 应用程序，自从我研究 VB6 或 ADO 以来已经很长时间了。应用程序所做的一件事是执行 SQL 任务，然后将成功/失败输出到 XML 文件中。如果出现错误，则会将文本插入任务节点。

我被要求做的是尝试对成功执行的任务产生的其他普通消息执行相同的操作，例如(受影响的323行)。

没有使用命令对象，它只是一个 ADODB.Connection 对象。这是代码的要点:

Dim sqlStatement As String
Set sqlStatement = /* sql for task */

Dim sqlConn As ADODB.Connection
Set sqlConn = /* connection magic */

sqlConn.Execute sqlStatement, , adExecuteNoRecords

捕获非错误消息以便输出它们的最佳方法是什么？或者说有可能吗？

Answer 1

受影响的行数通过 Connnection 对象的 Execute 的可选第二个参数返回。方法

Dim num As Long    
sqlConn.Execute sqlStatement, num, adExecuteNoRecords     
MsgBox num & " records were affected"