Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/3279126062824/newLayouttecnologia.css |
|
Pagetitle | ||||
---|---|---|---|---|
|
...
...
Função: Used
Determina
...
se
...
há
...
um
...
arquivo
...
de
...
banco
...
de
...
dados
...
em
...
uso
...
na
...
área
...
de
...
trabalho
...
especificada.
Sintaxe
Bloco de código | ||
---|---|---|
| ||
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 | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
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. // 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
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas