TOTVSTEC

Árvore de páginas

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

  • Sem rótulos