Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
...
Pagetitle |
---|
...
|
...
Função: TCSQLError
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.
TCSQLError ( ) --> cRet
...
|
Recupera uma string contendo a última ocorrência de erro de execução de statement e/ou operação.
Sintaxe
Bloco de código | ||
---|---|---|
| ||
TCSqlError()
|
Retorno
Nome | Tipo | Descrição |
---|---|---|
cReturn | caractere | 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 (""). |
Observações
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, vide exemplo.
Exemplos
...
nRet = TCSQLEXEC("INSERT INTO MYTABLE(NAME) VALUES('JOHN DOE')")If nRet == 0 MsgInfo('Inserção executada')Else MsgStop('Falha de Inserção ('+str(nRet,4)+') : '+TcSqlError())EndIf
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
USER FUNCTION TEST()
TCLink()
// insert em uma tabela não existente
nStatus := TCSqlExec("insert into not_exist (field_name, field_type) values ('name', 'type')")
if (nStatus < 0)
conout("TCSQLError() " + TCSQLError())
endif
TCUnlink()
RETURN
|
Veja também
...