Histórico da Página
| Composition Setup |
|---|
import.css=/download/attachments/3279126062824/newLayouttecnologia.css |
...
| Pagetitle | ||
|---|---|---|
|
|
Fecha
...
todas
...
as
...
áreas
...
de
...
trabalho
...
em
...
uso.
Sintaxe
DBCloseAll ( ) --> Nil
| Bloco de código | ||
|---|---|---|
| ||
DBCloseAll()
|
...
Observações
- DBCloseAll
...
- efetiva as atualizações pendentes, libera todos os registros bloqueados e fecha todas as áreas de trabalho.
...
- É equivalente a chamar a função DBCloseArea
...
- para cada área de trabalho.
- Se as atualizações pendentes falharem, será apresentado no log de console do AppServer a mensagem "Update error: (DBCloseAll)".
- Se houver erro no fechamento das áreas de trabalho, será apresentado no log de console do AppServer a mensagem "Close error - TTT", onde TTT é o nome da tabela aberta.
- A existência de mais de uma conexão no mesmo programa para o mesmo SGBD não influencia o funcionamento da função.
Exemplos
O exemplo abaixo utiliza a RDD "TOPCONN", mas a função pode ser utilizada com qualquer uma das RDDs válidas.
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
|
...
user function test1() Local nHandle1 := TCLink( "MSSQL/DSN1", "127.0.0.1", 7890 ) Local cTable1 := "MYTABLE1" Local cTable2 := "MYTABLE2" Local cRDD := "TOPCONN" // Abre a tabela 1 em modo exclusivo criando uma área de trabalho DBUseArea( .T., cRDD, cTable1, (cTable1), .F., .F. ) // Faz operações na tabela 1 // Abre a tabela 2 em modo exclusivo criando uma área de trabalho DBUseArea( .T., cRDD, cTable2, (cTable2), .F., .F. ) // Faz operações na tabela 2 // Fecha todas as áreas de trabalho |
...
DBCloseAll() |
...
|
...
...
|
...
TCUnlink( |
...
Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server
nHandle1 )
return
|
Veja também
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas