É importante testar erros, antes de executar uma query, para evitar erros de execução.
Uma boa maneira é testar o retorno da função TCSQLEXEC(). A query abaixo, tem um erro proposital, para que a janela com o erro apareça :
user function fTestaQry()
dbselectarea("SA1")
cSql := "SELECT * FRO SA1010"
nQueryRet := TCSQLEXEC(cSql)
if nQueryRet < 0
return msgstop("ERRO NA QUERY: " + chr(10) + TCSQLError())
endif
return
• Veja também: Tabelas customizadas. Quantas?
Comentários
Postar um comentário