TOTVSTEC

Árvore de páginas

Determina se há um arquivo de banco de dados em uso na área de trabalho especificada.

Sintaxe

Used()

Retorno

Nome

Tipo

Descrição

lRet

lógico

Retorna verdadeiro (.T.), se existir um arquivo de banco de dados em uso; caso contrário, falso (.F.).

Exemplos

FUNCTION Example()
  Local cT1 := "T1"
  
  TCLink()
  
  DBCreate("T1", {{"FIELD_NAME", "C", 10, 0}, ;
                  {"FIELD_TYPE", "C", 10, 0}, ;
                  {"FIELD_AGE", "C", 10, 0}, ;
                  {"FIELD_NICK", "C", 10, 0}, ;
                  {"FIELD_COL", "C", 10, 0}}, "TOPCONN")
                  

  DBUseArea(.F., 'TOPCONN', cT1, (cT1), .F., .T.)

  lRet := Used()
  
  if lRet == .T.
    conout("Existe arquivo sendo usado!")
  endif
  
  DBCloseArea()
  
  TCUnlink()
RETURN

Veja também

  • Sem rótulos