Commit manuale di ZConnectiopn tramite modulo dati

[SB]

Non ho mai detto che le transazioni sono inutili, vedi il mio intervento.
Però da quel che capisco delle tue esigenze mi sembra che ti stai facendo troppi problemi.
Di ogni soluzione si dovrebbero soppesare costi e benefici e non fissarsi con la prima soluzione che passa per la testa.
Vogliamo una gestione da manuale? Allora proteggiamo tutte le operazioni. Ne vale la pena? No, e in alcuni casi (tipo quello che vuoi fare tu con i contatori) può essere addirittura sbagliato per i motivi che ti ho scritto
Nel tuo caso sei addirittura in monoutenza, con un programma fatto da te e usato da te.
Cosa valuti che possa andare storto? Che salti la corrente e si spenga improvvisamente il computer? Forse avresti ben altri problemi che il salvataggio dei record. Metti un UPS, che magari ti salva da molte altre situazioni
Anche perchè tipicamente succede che proteggi tutto con transazioni e poi ti salta il disco fisso e non hai nemmeno il backup...
Tratti informazioni così importanti e complesse che se fallisce un inserimento succede qualcosa di grave? Forse è meglio rivolgersi a un professionista invece di farsi un programma fatto in casa... In fondo usare le transazioni non è una garanzia che il programma è fatto bene e non ci sono altri tipi di problemi.
Insomma, spero sia chiaro il senso del discorso.
C'è chi cerca di farti fare quello che tu dici di voler fare, io ti dico di ripensare a quello che stai facendo. Poi solo tu sai quali sono le tue reali esigenze.

[petrusic]

Cosa valuti che possa andare storto? Che salti la corrente e si spenga improvvisamente il computer? Forse avresti ben altri problemi che il salvataggio dei record. Metti un UPS, che magari ti salva da molte altre situazioni
Anche perchè tipicamente succede che proteggi tutto con transazioni e poi ti salta il disco fisso e non hai nemmeno il backup...
Tratti informazioni così importanti e complesse che se fallisce un inserimento succede qualcosa di grave? Forse è meglio rivolgersi a un professionista invece di farsi un programma fatto in casa...

Un professionista?
qui potresti capire
 

[petrusic]

Mi pare di avertelo scritto. Se setti l'autocommit a false, la transaction parte automaticamente al primo comando (ad esempio query) e termina o con il COMMIT o con il ROLLBACK. CHE DEVONO ESSERE ESPLICITI A CODICE.
Non servono ne "BEGIN TRANSACTION" ne "StartTransaction". ZEOS supporta (come quasi tutti i componenti simili) 1 transazione sola per connessione.

Ho capito: L'avvio delle Transaction è automatico.
Non riesco però a chiudere la transazione col COMMIT esplicito. Ecco le istruzioni di prova per l'inserimento record:

Codice: [Seleziona]

// Preparo string per l'INSERT nella Tab. movimgg
 sqlInsMovimg:= 'INSERT INTO movimgg VALUES(';
  sqlInsMovimg:= sqlInsMovimg + codIdMovimGG + ', ';
  sqlInsMovimg:= sqlInsMovimg + dataCont + ', ';
  sqlInsMovimg:= sqlInsMovimg + dtOggi + ', ';   
  sqlInsMovimg:= sqlInsMovimg + orario + ', ';    
  sqlInsMovimg:= sqlInsMovimg + IntToStr(nuProMovG) + ', ';
  sqlInsMovimg:= sqlInsMovimg + tbCollegListCBVoxSotCti[ixCbSotCtoSel, 1] + ', '; 
  sqlInsMovimg:= sqlInsMovimg + Form2.CBdescr.Text + ', ';
  sqlInsMovimg:= sqlInsMovimg + tipoValuta + ', ';
  sqlInsMovimg:= sqlInsMovimg + strImp + ', ';
  sqlInsMovimg:= sqlInsMovimg + Form2.CBbenef.Text;  

// Preparo string per l'INSERT nella Tab. partmovv
 sql:= 'SELECT IdPartGlob FROM partmovv ORDER BY IdPartGlob DESC';
 numId:= DataModule1.EstraiCodIDMax(sql, 'IdPartGlob');
 numId:= numId + 1;
 codIdPartMovv:= IntToStr(numId);
 striMia:= EstrControPart(tbCollegListCBVoxSotCti[ixCbSotCtoSel, 1]);
 tbControPart:= striMia.Split(chr(13));
 sqlInsPartMovv:= 'INSERT INTO partmovv VALUES(';
 sqlInsPartMovv:= sqlInsPartMovv + codIdPartMovv + ', ';     // IdPartGlob
 sqlInsPartMovv:= sqlInsPartMovv + tbControPart[0] + ', ';   // CoVoPartGlob
 sqlInsPartMovv:= sqlInsPartMovv + dataCont + ', ';           // DtCoPartGlob
 sqlInsPartMovv:= sqlInsPartMovv + dtOggi + ', ';            // DtSolPartGlob
 sqlInsPartMovv:= sqlInsPartMovv + orario + ')';             // OraSo

//-------------------- Esguo Blocco di Inserimento di Nuovi record nel "ContabFamdb" --------------------
  DataModule1.ZQuery1Transaz.Active:= False;
  DataModule1.ZQuery1Transaz.SQL.Text:= sqlInsMovimg;    
  DataModule1.ZQuery1.ExecSQL;    //  Insert nel Tab. movimgg
  DataModule1.ZQuery1Transaz.Active:= False;
  DataModule1.ZQuery1Transaz.SQL.Text:= sqlInsPartMovv;
  DataModule1.ZQuery1.ExecSQL;     //  Insert nel Tab. partmovv

// Terminati i comandi INSERT, senza segnalazione d'error4e, tento il COMMIT
  DataModule1.ZQuery1Transaz.Active:= False;
//  DataModule1.ZQuery1Transaz.SQL.Text:= ' COMMIT';    // 1.a  Prova - Errore logico
//  DataModule1.ZQuery1Transaz.SQL.Text:= ' COMMIT TRANSACTION';    // 2.a  Prova - Nessun Errore, ma anche nessun nuoio record
   DataModule1.ZQuery1Transaz.ExecSQL;                                                       

[DragoRosso]

La COMMIT deve essere effettuata tramite la TZConnection (ad esempio ZConnection1):

Codice: [Seleziona]

ZConnection1.Commit; //Esegue la Commit manuale
//oppure
ZConnection1.RollBack; //Esegue il RollBack manuale

Questo perchè ZEOS supporta le transazioni solo a livello di "connection" (1 transazione attiva e possibile per connessione).

Ciao

[petrusic]

Va bene.
Finalmente ce l'ho fatta.
Ha funzionato tutto. C'erano alcuni errori nella formazione delle stringhe dati per l'inserimento record e anche qualcosina dimenticata nel richiamo delle ZConnection.
[/code]
Penso quindi di essere a buon punto col mia prima modifica dati di un D.B

2) fai doppio click sull'Evento ONRollBack sempre di ZConnection1, e nell'evento dovrai disattivare (mettere a FALSE) la proprietà "ACTIVE" di TUTTE LE ZTABLE INTERESSATE DALLE TRANSACTION e di seguito le rimetti a TRUE.  In realtè basta eseguire la procedura REFRESH di ogni tabella. Ciò ha l'unico effetto di mantenere allineata la parte grafica e non ha alcun effetto sulla funzionalità del ROLLBACK o del COMMIT.

il mio codice di modifica tabelle è:

Codice: [Seleziona]

DataModule1.ZConn1Transaz.Database:= dbCorr;
  DataModule1.ZQuery1Transaz.Active:= False;
  DataModule1.ZQuery1Transaz.SQL.Text:= sqlInsMovimg;
  try
    DataModule1.ZQuery1Transaz.ExecSQL;
  except
    DataModule1.ZQuery1Transaz.SQL.Text:= 'ROLLBACK';
    DataModule1.ZQuery1Transaz.ExecSQL;
    ShowMessage('Errore "'+ E.Message + '" durante l''ExecSQL(' + sqlInsMovimg + ')' + LineEnding + LineEnding + 'Transazione FALLITA - Il programma verrà chiuso' ););
    Halt;
  end;
  if (Length(sqlInsPartMovv) > 0) then
  begin
    DataModule1.ZQuery1Transaz.SQL.Text:= sqlInsPartMovv;
    try
      DataModule1.ZQuery1Transaz.ExecSQL;
    except
      DataModule1.ZQuery1Transaz.SQL.Text:= 'ROLLBACK';
      DataModule1.ZQuery1Transaz.ExecSQL;
      ShowMessage('Errore "'+ E.Message + '" durante l''ExecSQL(' + sqlInsPartMovv + ')' + LineEnding + LineEnding + 'Transazione FALLITA - Il programma verrà chiuso' ););
      Halt;
    end;
  end;
  DataModule1.ZQuery1Transaz.SQL.Text:= 'COMMIT';
  DataModule1.ZQuery1Transaz.ExecSQL;              

Il verificarsi di un'anomalia durante la modifica nel D.B., in base al mio tipo di urilizzo, CREDO CHE SIA alquando impropabile, per cui ho previsto la chiusura brutale del programma, dopo il RollBack. Ritengo pertanto altresì non necessario eseguire un refresh delle tabelle già modificate, solo per  mantenere allineata la parte grafica.

@ DragoRosso
Mi dispiace non poterti ringraziare di persona per tutto l'aiuto di supporto che mi hai voluto apportare, aiuto senza il quale non avrei sicuramente imparato tanti piccoli segreti sull'argomento D.B.  e ZEOSLIB.

[petrusic]

La COMMIT deve essere effettuata tramite la TZConnection (ad esempio ZConnection1):

Codice: [Seleziona]

ZConnection1.Commit; //Esegue la Commit manuale
//oppure
ZConnection1.RollBack; //Esegue il RollBack manuale

Questo perchè ZEOS supporta le transazioni solo a livello di "connection" (1 transazione attiva e possibile per connessione).

Ciao

Ho capito. Grazie ancora