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

Realiza o controle de transação no DBAccess

Sintaxe

TCCommit( < nOption >, [ xParam ] )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

nOption

numérico

Numero relacionado a ação do TCCommit

X


xParam

qualquer

Compatibilidade.



Retorno

Nome

Tipo

Descrição

uRet

nil

Sempre retorna nulo.

Observações

Atenção

É necessário fazer a chamada do TCCommit(1) no inicio da transação e TCCommit(4) após o termino da transação

Valores possiveis para o primeiro parametro da função:

nOption

Descrição

1

Inicializa uma transação

2

Realiza o commit da transação

3

Realiza o rollback da transação

4

Finaliza a Transação

Exemplos

USER FUNCTION TEST()
  Local cT1 := "T1"
  
  TCLink()
  
  TCCommit(1) // Inicia a Transação
  
  DBCreate("T1", {{"FIELD_NAME", "C", 10, 0}, ;
                  {"FIELD_TYPE", "C", 10, 0}}, "TOPCONN")
   
  DBUseArea(.F., 'TOPCONN', cT1, (cT1), .F., .F.)
  
  (cT1)->( DBAppend( .F. ) )
  (cT1)->FIELD_NAME := "Inteiro"
  (cT1)->FIELD_TYPE := "Int"
  (cT1)->( DBCommit() )
  
  (cT1)->( DBAppend( .F. ) )
  (cT1)->FIELD_NAME := "Character"
  (cT1)->FIELD_TYPE := "char"
  (cT1)->( DBCommit() )
  
  DBCloseArea()
  
  TCCommit(2) // Realiza o commit
  TCCommit(4) // Finaliza a Transação
  
  TCUnlink()
RETURN

Veja também

  • No labels