[RISOLTO] Eccezione non gestita

[sanric]

Salve a tutti,

chiedo scusa per la banalità della domanda ma sono un 'niubbo' alle prime armi con Lazarus/FPC.
In una dbGrid che mostra solo il codice cliente e la sua anagrafica, provo appositamente a modificare il valore del codice rendendolo uguale a quello di un altro cliente. Chiaramente tale codice è UNIVOCO per definizione e la mia routine deve generare un'eccezione che provo a gestire.
Tuttavia non riesco nell'intento:

Codice Seleziona Espandi

procedure TmainWind.aggiornaClienti(Sender: TObject);
begin
 
     if SQLTrans.Active then  // Controllo che la transaction sia attiva
        try
          SQLQuery.ApplyUpdates();  // Questa procedura non dovrebbe andare a buon fine...
        except
          on E: ESQLDatabaseError do  // ... sollevando questa eccezione che tuttavia non riesco ad intercettare
          begin
             ShowMessage(E.Message);
             Exit();
          end;
        end;
end;

Convinto che mi sto perdendo in un bicchiere d'acqua, vi chiedo se potete farmi capire meglio dove sbaglio.
Grazie mille per tutti gli aiuti!

[slapshot]

Chiaramente tale codice è UNIVOCO per definizione e la mia routine deve generare un'eccezione che provo a gestire.

Ciao, credo che in ciò che affermi ci sia un errore concettuale. Se il codice è univoco non dovrebbe esserci la possibilità per l'operatore di modificare tale codice. La chiave primaria di una tabella di un db sql non può essere violata e l'eccezione (ma qui attendo la smentita dei più esperti) è gestita nel componente di accesso al db che la intercetta e la manifesta.

[sanric]

Comprendo che ci sia un errore concettuale ma la mia piccola applicazione è costruita per imparare ad usare il linguaggio ed il suo ecosistema, non certo per un utilizzo professionale.
Mi sono dimenticato di specificarlo. 

[slapshot]

Siamo tutti principianti, non ti preoccupare. Io per primo LOL

Allora se hai un id univoco nella tabella che identifica un record univocamente, questo deve essere, generalmente, un campo che ha poco senso per l'utente e prevalentemente nascosto. Per cui un campo di autoincremento, un GUID ecc..

Se la modifica che devi effettuare è necessariamente su una dbgrid potresti usare l'evento ondbediting. Ho interrogato al volo chatgpt, verifica se quanto scrive è corretto:
----------------------------------
Per gestire la modifica di un campo in una DBGrid in Free Pascal Lazarus per impedire all'utente di inserire un codice che è già presente in altre righe della tabella del database, puoi utilizzare l'evento OnEditingDone della DBGrid. In questo evento, puoi controllare se il valore inserito dall'utente esiste già nel database e, in caso affermativo, annullare la modifica o mostrare un messaggio di avviso.

Ecco un esempio di codice che mostra come gestire questa situazione:

Codice Seleziona Espandi

procedure TForm1.DBGrid1EditingDone(Sender: TObject);
var
  FieldValue: string;
  i: Integer;
begin
  // Otteniamo il valore modificato dalla colonna specifica
  FieldValue := DBGrid1.DataSource.DataSet.FieldByName('NomeCampo').AsString;

  // Controlliamo se il valore è già presente in altre righe della tabella
  for i := 0 to DBGrid1.DataSource.DataSet.RecordCount - 1 do
  begin
    // Saltiamo la riga attualmente modificata
    if i <> DBGrid1.DataSource.DataSet.RecNo - 1 then
    begin
      // Se troviamo un valore uguale, avvisiamo l'utente e annulliamo la modifica
      if DBGrid1.DataSource.DataSet.FieldByName('NomeCampo').AsString = FieldValue then
      begin
        ShowMessage('Il valore inserito è già presente nella tabella.');
        DBGrid1.DataSource.DataSet.Cancel;
        Exit;
      end;
    end;

    // Passiamo alla riga successiva
    DBGrid1.DataSource.DataSet.Next;
  end;

  // Riportiamo il cursore alla riga modificata
  DBGrid1.DataSource.DataSet.First;
  DBGrid1.DataSource.DataSet.MoveBy(DBGrid1.DataSource.DataSet.RecNo - 1);
end;

Assicurati di adattare il codice sostituendo 'NomeCampo' con il nome del campo effettivo della tabella che desideri controllare. Questo codice controlla se il valore inserito è già presente in altre righe della tabella e, in caso affermativo, annulla la modifica e avvisa l'utente.

[sanric]

Grazie mille slapshot per la routine che provvederò a controllare ed implementare quanto prima.
Tuttavia la domanda resta: perché non riesco a gestire l'eccezione che il programma solleva?
In quello scampolo di codice che ho mandato dove si annida l'errore?

[xinyiman]

Dovremmo avere il software completo e un db di test per fare le prove e capire cosa non va. Troppe variabili. Prova però iniziando a leggere questa guida e vedi se con la sintassi che trovi qui risolvi.

http://www.lazaruspascal.it/index.php?page=83

Facci sapere. Ciao

[slapshot]

Grazie mille slapshot per la routine che provvederò a controllare ed implementare quanto prima.
Tuttavia la domanda resta: perché non riesco a gestire l'eccezione che il programma solleva?
In quello scampolo di codice che ho mandato dove si annida l'errore?

Posta almeno la struttura della tabella, per capire il campo che identifica la chiave primaria. Anche informazioni su quale db stai usando non sarebbero male. Potresti intanto sviscerare l'eventuale problema isolandoti dalla dbgrid che è un componente che esegue l'impossibile, probabilmente se c'è un'eccezione potrebbe essere sollevata e gestita direttamente da esso.

[sanric]

Dovremmo avere il software completo e un db di test per fare le prove e capire cosa non va. Troppe variabili. Prova però iniziando a leggere questa guida e vedi se con la sintassi che trovi qui risolvi.

http://www.lazaruspascal.it/index.php?page=83

Facci sapere. Ciao

Ringrazio tutti per le cortesissime risposte ma il listato non conteneva errori: era solo il fatto che la gestione delle eccezioni si fa sentire se non si usa il debugger integrato ma solo la modalità "Release".
Non lo sapevo ed il link giratomi da xinyiman mi ha risolto il problema.

[xinyiman]

Per favore, [RISOLTO] mettilo nel testo del primo messaggio del 3d. Così in fase di ricerca le persone vedono già se è stato risolto!