Discussion :

[Jazz77]

Bonjour à tous,

Je voudrais gérer les erreurs survenant sur les problèmes de clés, comme par exemples les clés dupliqués.

J'ai une fiche avec un DBNavigator avec des champs dbedit.

Dans mon SQLQuery, je défini le code suivant dans mon événement OnPostError

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TDM.SQL_ComptesPostError(DataSet: TDataSet; E: EDatabaseError;
  var DataAction: TDataAction);
begin
 
  ShowMessage (E.Message);
  DataAction :=  daAbort;
 
end;

A des fins de test, quand je rentre une clé dupliqué, l'appli déclenche un ODBCexception.

Le ShowMessage (E.Message) n'apparait pas et l'appli s'arrête.

Comment traiter proprement une ODBCException ?

Merci d'avance

Jazz

[Jazz77]

J'ai trouvé une solution satisfaisante

L'erreur se déclenche à l'appel de la méthode ApplyUpdates du SQLQUERY

Le code de réponse est à implémenter dans l’événement onUpdateError du
SQL QUERY

Ca donne le code suivant :

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
23
 
procedure TDM.SQL_ComptesUpdateError(Sender: TObject; DataSet: TCustomBufDataset;
  E: EUpdateError; UpdateKind: TUpdateKind; var Response: TResolverResponse);
begin
  case UpdateKind of
    ukModify: MessageDlg('Erreur Modification',
        'Erreur de modification d''un compte ',
        mtError, [mbCancel], 0);
 
    ukInsert: MessageDlg('Erreur Insertion',
        'Erreur en Ajout d''un compte ' + chr(13) +
        'Un compte existe déjà',
        mtError, [mbCancel], 0);
 
    ukDelete: MessageDlg('Erreur Suppression',
        'Erreur de suppression d''un compte ',
        mtError, [mbCancel], 0);
  end;
 
  Response := rrAbort;
  DataSet.Refresh;
 
end;

y a pas ... Lazarus, c'est de la balle

Jazz