Testar erro na execução de uma query
É importante testar erros, antes de executar uma query, para evitar erros de execução.
Uma boa maneira é testar o retorno da função TCSQLEXEC().
|
1 2 3 4 5 6 7 8 9 10 |
user function fTestaQry() dbselectarea("SA1") cSql := "SELECT * FROM SA1010" nQueryRet := TCSQLEXEC(cSql) if nQueryRet < 0 return msgstop("ERRO NA QUERY: " + chr(10) + TCSQLError()) endif return |