Page tree
Skip to end of metadata
Go to start of metadata

Salva em disco todas as atualizações pendentes na área de trabalho corrente.

Sintaxe

DBCommitAll()

Retorno

Nome

Tipo

Descrição

uRet

nil

Retorno sempre é nulo.

Observações

  • A nova tabela deve ser aberta atribuindo ao primeiro parâmetro da função DBUseArea como Verdadeiro (.T.) conforme exemplo abaixo, caso contrario as tabelas anteriores serão fechadas e não serão salvas.

Exemplos

FUNCTION Example()
  Local cT1 := "T1"
  Local cT2 := "T2"
  
  TCLink()
  
  DBCreate("T1", {{"FIELD_NAME", "C", 10, 0},;
                  {"FIELD_TYPE", "C", 10, 0}}, "TOPCONN")
                  
  DBCreate("T2", {{"FIELD_NAME", "C", 10, 0}, ;
                  {"FIELD_TYPE", "C", 10, 0}}, "TOPCONN")
             
  
  DBUseArea(.F., 'TOPCONN', cT1, (cT1), .F., .F.)
 
  (cT1)->( DBAppend( .F. ) )
  (cT1)->FIELD_NAME := "name"
  (cT1)->FIELD_TYPE := "string"
  
  // Deve abrir a tabela com parametro de nova area como Verdadeiro (.T.) ver documentação DBUseArea
  DBUseArea(.T., 'TOPCONN', cT2, (cT2), .F., .F.)
 
  (cT2)->( DBAppend( .F. ) )
  (cT2)->FIELD_NAME := "name"
  (cT2)->FIELD_TYPE := "string"
  
  DBCommitAll()
  
  DBCloseArea()
  
  DBCloseArea()
  
  TCUnlink()
RETURN

Veja também

  • No labels