VB错误捕获

Question

我的代码如下

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

印刷故障的Intread我想打印错误描述。我试过

Sheet1.Cells(intStart, 5) = IIf(recordsAffected > 0, "Success", Err.Des) 

但它不起作用。有任何想法吗？

Answer 1

Err对象只有在发生错误后才有值。所以试试这个

Sub MySub(strSQL as string) 
    On error goto CATCH 
    conDB.Execute strSQL, recordsAffected 
    Sheet1.Cells(intStart, 5) = IIf(recordsAffected > 0, "Success", "Hmm ?") 
exit sub 
CATCH: 
    Sheet1.Cells(intStart, 5) = Err.Description 
    on error goto 0 
end sub