VB execute()问题

Question

我正在用下面这段代码运行VB

将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