Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
portuguese
Composition Setup
import.css=/download/attachments/3279126062824/newLayouttecnologia.css

Pagetitle
Used
Used

...

...

Função: Used

Determina

...

se

...

...

um

...

arquivo

...

de

...

banco

...

de

...

dados

...

em

...

uso

...

na

...

área

...

de

...

trabalho

...

especificada.

Sintaxe

Bloco de código
collapsefalse
Used()
--> lDbfUsed

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

Bloco de código
languagecpp
themeEclipse
linenumberstrue
collapsefalse
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")
       

O padrão é que a função Used() opere na área de trabalho correntemente selecionada. No entanto, pode-se fazê-la operar em uma área de trabalho não selecionada se esta for especificada em uma expressão alias.

//Este exemplo, determina se um arquivo de banco de dados está em uso na área de trabalho//corrente.USE Customer NEWconout(Used())
           
// Resultado:


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

  lRet := Used()
)

  
  if lRet == .T.
    conout("Existe arquivo sendo usado!")
  endif
  
  
// Resultado: .F. Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server
DBCloseArea()
  
  TCUnlink()
RETURN

Veja também