Perdita di connessione durante transazione

[b.antonino]

Salve  a tutti,
se durante una transazione perdo la connessione (lavoro su una VPN), al ritorno della connessione mi da un "transaction is already active" e non riesco nemmeno a chiamare la disconnect della connection perché mi va in errore. Qualcuno sa come gestire questa riconnessione?
Sto lavorando con Laz1.6.4+FPC3.0.2+FB3.0.1+SQLDB su Windows7.
Grazie mille

 

[nomorelogic]

hai già provato a fare il rollback della transazione?

[b.antonino]

Si, è proprio il rollback che va in errore.
Ho messo un blocco try-except dove eseguo la query e il commit e nell'except faccio rollback, ma proprio quando faccio il roolback mi va in errore. Qui ho annidato un altro blocco try-finally, ma quando tento di chiudere la connessione al db mi va in errore e non effettua la disconnessione.
Se rifaccio la connect mi dice ok, ma allo StartTransaction mi va in errore con "transaction is already active".

[xinyiman]

Non saprei se tu usassi zeoslib ti direi di usare il monitor per loggare tutto quello che succede su una data connessione, ma così ti direi di dirci quali operazioni facevi con il rallback

[nomorelogic]

se si tratta di una rete che cade spesso potresti provare a mettere KeepConnection=off

in questo modo ogni volta che devi fare una operazione col DB devi rifare la connessione
però non ci ho mai lavorato in questo modo, non saprei dirti altro

[Stilgar]

Ho controllato la documentazione :http://www.freepascal.org/docs-html-3.0.0/fcl/sqldb/tsqlconnection.html

Codice: [Seleziona]

property OnLog: TDBLogNotifyEvent; [rw]//Event handler for logging events
property LogEvents: TDBEventTypes; [rw]//Filter for events to log

Il filtro e la callback possono esserti d'aiuto per fare un minimo di diagnostica?

Stilgar

[Stilgar]

Controllando il codice : https://github.com/graemeg/freepascal/blob/master/packages/fcl-db/src/sqldb/sqldb.pp

Codice: [Seleziona]

procedure TSQLTransaction.StartTransaction;

var db : TSQLConnection;

begin
  if Active then
DatabaseError(SErrTransAlreadyActive);

Controllando la EndTransaction:

Codice: [Seleziona]

procedure TSQLTransaction.EndTransaction;

begin
  Case Action of
    caCommit, caCommitRetaining :
      Commit;
    caNone,
    caRollback, caRollbackRetaining :
      if not (stoUseImplicit in Options) then
        RollBack
      else
        CloseTrans;
  end;
end; 

A questo punto mi viene da pensare :
In caso di caduta della rete
1) Cambiare il modo di fare la commit in caNone.
2) Chiudere la transazione.

Appena rilevata la rete attiva
3) ripristinare la transazione al commit desiderato.
4) riaprire la transazione.

Questo per evitare il problema di stato della connessione al db (che si appoggia alla transazione).

L'alternativa è sostituire la gestione della transazione con una Custom. Questa strada mi sembra più impegnativa però.

Codice: [Seleziona]

  TDBTransaction = Class(TComponent)
  Private
    FActive        : boolean;
    FDatabase      : TDatabase;
    FDataSets      : TList;
    FOpenAfterRead : boolean;
    Function GetDataSetCount : Longint;
    Function GetDataset(Index : longint) : TDBDataset;
    procedure RegisterDataset (DS : TDBDataset);
    procedure UnRegisterDataset (DS : TDBDataset);
    procedure RemoveDataSets;
    procedure SetActive(Value : boolean);
  Protected
    Function AllowClose(DS: TDBDataset): Boolean; virtual;
    Procedure SetDatabase (Value : TDatabase); virtual;
    procedure CloseTrans;     

Il "problema" è che la closeTrans è nascosta ad un chiamante esterno.
Stilgar

[b.antonino]

Grazie per le risposte, fino a domani non posso fare prove, ma inizierò il test con KeepConnection=off.
Comunque io gia adesso quando ho finito chiudo la connessione, in realta io ogni 20/30 minuti mi connetto al db remoto attraversno una VPN e trasferisco un certo numero di record da un database locale ad uno remoto, dopodiche chiudo la connessione al db. Ho notato che per trasferire il pacchetto di record accumulato impiega 5/6 secondi (la linea internet è pessima), se mi cade la connessione durante la transazione di scrittura l'applicativo rimane a girare, fa tutto ciò che c'è da fare, ma alla nuova sincronizzazione non riesce a trasferire i dati, finchè non chiudo e rilancio l'applicazione.
@Stilgar
cosa intendi al punto 3 per "ripristinare la transazione al commit desiderato"

Grazie del supporto

[nomorelogic]

potrebbe capitare che le transazioni rimangono in quelle che in ambiente firebird vengono definite come: limbo transactions


si tratta di transazioni che firebird non sa come trattare
prova a lanciare questo comando, se ci sono transazioni limbo dovresti vederle

Codice: [Seleziona]

gfix -user SYSDBA -password masterkey 127.0.0.1:DATABASE_NAME.FDB -list

[Stilgar]

  Semplicemente ti salvi il vecchio valore da qualche parte.
Metti caNone e poi rimetti il vecchio valore
 

[b.antonino]

Buongiorno, eccomi di nuovo,
ho fatto dei test e per simulare il tutto faccio lo shutdown del DB dopo una StartTransactionnon e prima del Commit, successivamentecontrollo e non rimangono transazioni appese sul server, penso il problema più grosso è che non riesco a chiamare la disconnessione al database, perché quando imposto la proprietà Connected a false mi va in errore.
Ho provato a chiamare il metodo CloseTrans manualmente e va in errore, praticamente qualunque cosa cerco di fare va in errore, penso che il problema sia tra le classi e le api nella dll e non del server visto che il database è in shutdown.
Mi rimane solo di provare a distruggere l'oggetto e ricrearlo ogni volta, anche se non mi piace come soluzione.
Qualche altra idea?

[nomorelogic]

hai già provato a staccare il cavo di rete dopo che ti sei connesso al DB?