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

Question

我在工作中正在开发一个遗留的 VB6 应用程序，而且我已经很久没有关注 VB6 或 ADO 了。应用程序做的一件事是执行 SQL 任务，然后将成功/失败输出到 XML 文件中。如果出现错误，它会将文本插入任务节点。

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

没有使用命令对象，它只是一个 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"