Discussion :

[helmis]

Bonjoue
je voudrai intercepter le message du pilote paradox (key violation) quans il s'agit d'un doublon et afficher un autre message.

Merci

[diden138]

regarde ça http://www.developpez.net/forums/sho...d.php?t=509133
cordialement @+

[freud]

sinon il y a ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
try
  table.Post;
except
  on E : EDBEngineError
    do
    if E.Message = 'Key violation' then
      begin
        MessageDlg ('duplication de clé.' mtError, [mbOk], 0);
        table.Cancel; //ou autre chose
      end
      else Raise;
end;

et ca aussi :

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
 
 
function DBError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction);
const
  eKeyViol = 9729;
var
  iDBIError: Integer;
begin
 
  if (E is EDBEngineError) then
 
  begin
    iDBIError := (E as EDBEngineError).Errors[0].Errorcode;
    case iDBIError of
      eKeyViol:
        begin
          MessageDlg('Key violation ', mtWarning, [mbOK], 0);
          Abort;
        end;
    end;

ensuite pour chaque table sujette au key violation on double-click sur l'evenement EditError et on insere la fonction DBError :

Code :

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

1
2
3
4
5
6
7
8
9
 
 
Table1EditError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction);
 
begin
 
DBError(Table1, E, Action);
 
end;

Mais tout les deux ce n'est pas tester.