Descrição
TCSQLError [AS] - Recupera uma string contendo a última ocorrência de erro de execução de statement e/ou operação, registrado na conexão atual com um SGBD através do DBAccess.
|
Sintaxe
Parâmetros
| Par |
Nome |
Tipo |
Descrição |
Default |
Obg |
Ref |
Retorno
| Retorno |
Tipo |
Descrição |
| cRet |
Caracter
|
Retorna uma string contendo a última mensagem e/ou ocorrênca de erro da conexão atual do DBAccess, registrada após o último statement executado. Caso o último statement executado não apresente erro, ou ainda o processo atual não possua nenhuma conexão ativa com o DBAccess, a função retornará uma string vazia ("").
|
Exemplo
#INCLUDE "TOTVS.CH"
User Function TCSQLError()
Local cProc := 'PROCEDURE'
Local aResult := {}
If TCSPExist( cProc )
aResult := TCSPEXEC( cProc, 'PARAM1', 'PARAM2' )
If Empty( aResult )
Conout('Erro na execução da Stored Procedure : ' + TCSQLError() )
Else
VarInfo( 'aResult', aResult )
Endif
Endif
Return( Nil )
Resultado
Informações adicionais
|
A string contendo a ocorrência de erro é retornada à aplicação AdvPL com as mesmas informações básicas da ocorrência registrada no log de ocorrências de erro do DBAccess, e é muito útil para determinarmos a causa de falha de diversas operações, que em caso de falha, não causam a queda da aplicação AdvPL.
Por exemplo, uma execução direta de statement através da função TCSQLExec(), em caso de falha no DBAccess e/ou ocorrência de erro no SGBD, não vai gerar uma ocorrência de erro AdvPL, apenas fará a função TCSQLExec() retornar um número negativo. Para obter mais detalhes sobre o que ocorreu, após verificar o retorno da função, constatando que houve falha de processamento, chame a função TCSQLError() para recuperar os detalhes e descrição da última ocorrência
|
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
