Discussion :

[SergioMaster]

Bonjour,

Les vacances approchant a grand pas , je me met aux devoirs de vacances
Objectif : passer de ZEOS à UIB ou , dans le cas présent le Grizzlypack

je remercie encore TryExceptEnd de m'avoir fourni une première base de travail avec son petit programme test ici

maintenant je tente (sans succès) de récupérer les erreurs qui logiquement se traiteraient dans l'évenement OnPostError mais le programme n'y passe jamais !!!

une astuce que je ne connais pas certainement ?

voici certaines propriétés que j'utilise pour le composant :

OnClose : etmCommit
OnError : etmRollback << ceci a t'il quelque chose à voir
OnExec : etmCommit

et bien sur l'evenement qui ne se déclenche pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
procedure TForm.TablePostError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
 Showmessage(inttostr(EUIBError(E).ErrorCode));
 Action:=daAbort;
end;

Quelle est la la bonne méthode ? (je voudrais éviter les messages d'erreurs très impersonnels de Firebird )

[TryExceptEnd]

Moi je gère cela d'une autre façon, je met la propriété AutoApplyUpdates du composant TGzFBDataSet a False et dans l'evenement AfterPost je code ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses UIB, UIBlib, UIBerror
 
procedure TFBDataModule.TablesAfterPost(DataSet: TDataSet);
begin
 try
 with (DataSet as TGzFBDataSet) do
 begin
  ApplyUpdates;
  if UpdateTransaction.InTransaction then UpdateTransaction.Commit;
 end;
 except
  on E: EUIBError do
  begin
   case E.GDSCode of
    isc_dsql_relation_err : ShowMessageError('Table introuvable');
    isc_no_priv,isc_login : ShowMessageError('Pas de privilège');
   end;
   raise;
  end
  else raise;
 end;
end;

D'autre code d'erreurs sont disponible dans l'unité : UIBerror

[SergioMaster]

C'était donc AutoapplyUpdates le coupable
il reste étrange que le OnPostError ne réponde pas cependant ,alors que dans le le GzFBCachedSet il n'y ait pas de soucis , investiguerai-je ....?

merci du coup de main et Bonnes Vacances si elles arrivent