cSQL = "update reembolso (nome = 'test' ) " rp = SQLEXEC(lnHandle, cSQL) if rp<0 = AERROR(aErrorArray) && Data from most recent error c="" FOR n = 1 TO 7 && Display all elements of the array c=c+transform( aErrorArray(n))+chr(13) ENDFOR = MESSAGEBOX( c) endifActually, aError() may return multiple rows, if multiple errors were returned, and then it becomes
numErrors = AERROR(aErrorArray) && Data from most recent error c="" for i=1 to numErrors FOR n = 1 TO 7 && Display all elements of the array c=c+transform( aErrorArray(i, n))+chr(13) ENDFOR endfor