VB execute () проблема

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.RecordsActed, чтобы получить количество обновленных записей. Проверьте возвращаемое значение этой функции и отобразите соответствующее сообщение.

Попробуйте что-то вроде этого:

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