Hallo,
ich möchte mittels des Ereignisses OnPostError einer ADOTable eine doppelte Eingabe eines Wertes in eine Datenbank abfangen.
Die Tabelle hat einen Primärschlüssel sowie einen zusammengesetzten Index mit 2 weiteren Spalten.
Wenn ich jetzt in das OnPosError Ereignis schreibe:
Delphi-Quellcode:
procedure TForm1.ADOTable1PostError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction);
begin
if Pos('duplicate key', E.Message) > 0 then
begin
ShowMessage('Duplicate values not allowed!');
Action := daAbort;
end;
end;
bekomme ich immer die Meldung:
"Die zum Aktualisieren angegebene Zeile wurde nicht gefunden...."
Wer kann mir helfen, eine derartige doppelte Schlüsseleingabe richtig abzufangen?