Question

我正在使用以下代码运行VB

conider strSQL是一个更新字符串。

conDB.Execute (strSQL) ;
Sheet1.Cells(intStart, 5) = "Success"

如果没有更新行，则下面的行仍会运行，并且我会在单元格中打印成功消息。我该如何避免这种情况？

Answer 1

dim recordsAffected as long

conDB.Execute strSQL, recordsAffected 
Sheet1.Cells(intStart, 5) = IIF(recordsAffected  > 0, "Success", "Failure")

Answer 2

问题是无论您的更新是否实际更新，都会显示您的成功消息。

我相信你可以调用conDB.RecordsAffected函数来返回已更新的记录数。检查此功能的返回值并显示相应的消息。

尝试这样的事情：

conDB.Execute (strSQL)
If (conDB.RecordsAffected > 0) Then
    Sheet1.Cells(intStart, 5) = "Success"
Else
    Sheet1.Cells(intStart, 5) = "Failed"
End If

VB执行（）问题

2 个答案: