Retorna um valor lógico para identificar se operação anterior ocasionou um erro.
NetErr( [ lValor ] )
Nome | Tipo | Descrição | Obrigatório | Referência |
|---|---|---|---|---|
lValor | lógico | Altera o valor resultante do NetErr |
Nome | Tipo | Descrição |
|---|---|---|
lRet | lógico | Retorna verdadeiro (.T.) no caso de erro e falso (.F.) no caso de sucesso. |
Se precisar alterar o valor do NetErr é somente passar o valor desejado como parâmetro.
FUNCTION Example()
Local cT1 := "T1"
Local cT2 := "T2"
TCLink()
// criando a tabela "T1"
DBCreate("T1", {{"FIELD_NAME", "C", 10, 0}, ;
{"FIELD_TYPE", "C", 10, 0} }, "TOPCONN")
// tentando abrir a tabela "T1"
DBUseArea(.F., 'TOPCONN', cT1, (cT1), .F., .T.)
if NetErr() == .F.
conout("Tabela T1 foi aberta com sucesso!")
endif
DBCloseArea()
// tentando abrir a tabela "T2" que não existe
DBUseArea(.F., 'TOPCONN', cT2, (cT2), .F., .T.)
if NetErr() == .T.
conout("Não é possivel abrir a tabela T2!")
endif
DBCloseArea()
// outro exemplo
NetErr(.T.)
if NetErr() == .T.
conout("Alterado o valor para .T. do NetErr")
endif
NetErr(.F.)
if NetErr() == .F.
conout("Alterado o valor para .F. do NetErr")
endif
TCUnlink()
RETURN