Page tree
Skip to end of metadata
Go to start of metadata

Retorna um valor lógico para identificar se operação anterior ocasionou um erro.

Sintaxe

NetErr( [ lValor ] )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

lValor

lógico

Altera o valor resultante do NetErr



Retorno

Nome

Tipo

Descrição

lRet

lógico

Retorna verdadeiro (.T.) no caso de erro e falso (.F.) no caso de sucesso.

Observações

Funções que podem alterar o valor do resultado da função NetErr

  • DBAppend
  • DBUseArea
  • DBInsertEx

Se precisar alterar o valor do NetErr é somente passar o valor desejado como parâmetro. 

Exemplos

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

Veja também

  • No labels