DBCloseAll

Fecha todas as áreas de trabalho em uso.

Sintaxe

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.

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( nHandle1 )
return

Veja também

• DBUseArea
• DBCloseArea