Fehlerabfang bei SQL: Insert klappt, Update nicht

[GroHae]

Hallo zusammen,

ich versuche gerade einen Fehlerabfang in meinen Code einzubinden. Am ende solle es eine Exception Klasse geben. Weiß aber noch nicht wie das geht.
Meine ersten Schritte sehen so aus:

Für Update:

Delphi-Quellcode:

function TTblFirmenstamm.UpdRec(iRec: TRecFirmenstamm): boolean;
begin
  Result := true;
  with FQry do
  begin
    Close;
    SQL.text := 'UPDATE ' + GetTblName + ' SET ' +
      'UnternehmenNr_FK =:UnternehmenNr_FK, Standort=:Standort, Firmenname=:Firmenname, Strasse=:Strasse, PLZ=:PLZ, Ort=:Ort, '+
      'SQLDebitoren=:SQLDebitoren,SQLKreditoren=:SQLKreditoren,'+
      'DKSFirma=:DKSFirma,DKSJahr=:DKSJahr,DKSJahrYYYY=:DKSJahrYYYY,'+
      'FrachtKostenKnz=:FrachtKostenKnz,ProzessBereiche=:ProzessBereiche ' +
      'WHERE (FirmenNr_ID =:FirmenNr_ID)';
   try
      with iRec do
      begin
        ParamByName('FirmenNr_ID').asInteger  := FirmenNr_ID;
        ParamByName('UnternehmenNr_FK').asInteger  := UnternehmenNr_FK;
        ParamByName('Standort').asString      := Standort;
        ParamByName('Firmenname').asString    := Firmenname;
        ParamByName('Strasse').asString       := Strasse;
        ParamByName('PLZ').asString           := PLZ;
        ParamByName('Ort').asString           := Ort;
        ParamByName('SQLDebitoren').asString  := SQLDebitoren;
        ParamByName('SQLKreditoren').asString := SQLKreditoren;
        ParamByName('DKSFirma').asString      := DKSFirma;
        ParamByName('DKSJahr').AsString       := DKSJahr;
        ParamByName('DKSJahrYYYY').AsInteger  := DKSJahrYYYY;
        ParamByName('FrachtKostenKnz').Asinteger:= FrachtKostenKnz;
        ParamByName('ProzessBereiche').AsString := ProzessBereiche;
      end;
      ExecSQL;
    except
      on E: Exception do
          begin
            ShowMessage('Upsiiiii, Tommi da ist ein Fehler: ' + E.Message);
            Result := False;
          end;
      end;
  end;
end;

Für Insert:

Delphi-Quellcode:

function TTblFirmenstamm.InsRec(iRec: TRecFirmenstamm): boolean;
var
  cnstSQL : string;
begin
  cnstSQL := 'INSERT INTO ' + GetTblName + ' ' +
           '( ChgDate_ID, FirmenNr_ID, UnternehmenNr_FK, Standort, Firmenname,Strasse, PLZ, Ort, SQLDebitoren, SQLKreditoren, DKSFirma, DKSJahr, DKSJahrYYYY, FrachtKostenKnz, ProzessBereiche) ' +
    'VALUES (:ChgDate_ID,:FirmenNr_ID,:UnternehmenNr_FK,:Standort,:Firmenname,:Strasse,:PLZ,:Ort,:SQLDebitoren,:SQLKreditoren,:DKSFirma,:DKSJahr,:DKSJahrYYYY,:FrachtKostenKnz,:ProzessBereiche)';
  with FQry do
  begin
    Close; // Schließt die Datenmenge
    try
      if SQL.Text <> CnstSQL then
        SQL.text := CnstSQL;
      with iRec do
      begin
        ParamByName('ChgDate_ID').asDateTime := GetChgDateForInsRec;
        ParamByName('FirmenNr_ID').asInteger := FirmenNr_ID;
        ParamByName('UnternehmenNr_FK').asInteger := UnternehmenNr_FK;
        ParamByName('Standort').asString     := Standort;
        ParamByName('Firmenname').asString   := Firmenname;
        ParamByName('Strasse').asString      := Strasse;
        ParamByName('PLZ').asString          := PLZ;
        ParamByName('Ort').asString          := Ort;
        ParamByName('SQLDebitoren').asString := SQLDebitoren;
        ParamByName('SQLKreditoren').asString:= SQLKreditoren;
        ParamByName('DKSFirma').asString     := DKSFirma;
        ParamByName('DKSJahr').AsString      := DKSJahr;
        ParamByName('DKSJahrYYYY').AsInteger := DKSJahrYYYY;
        ParamByName('FrachtKostenKnz').Asinteger := FrachtKostenKnz;
        ParamByName('ProzessBereiche').AsString    := ProzessBereiche;
      end;
      ExecSQL;
      Result := True;
    except
      on E: Exception do
          begin
            ShowMessage('Tom da ist ein Fehler: ' + E.Message);
            Result := False;
          end;
    end;
  end;
end;

Was ich nicht verstehe ist, das ich wenn ich für Fehler sorge, ich bei der Insert Variante einen Fehler angezeigt bekomme bei der Update Variante aber nicht!

Warum bringt er bei Update keine Fehlermeldung?

[RavenIV]

was für einen Fehler provozierst Du denn?
vielleicht ist das für das Update garkein Fehler?

[GroHae]

Ich starte das Programm. Gehe in den Dialog zum Ändern eines Datensatzes.
Diesen Datensatz lösche ich dann in meiner Datenbank m.H. des SQL Server Enterprice Manager.
Dann wechsel ich wieder in mein Programm und Sage Update
--> Update auf einen Datensatz der gar nicht mehr existiert.

[DeddyH]

Wenn Du sagst, mach ein Update auf den Datensatz, dessen Primärschlüssel dem angegebenen Wert entspricht, und es gibt diesen Datensatz nicht mehr, dann wird eben nichts aktualisiert. Wieso sollte da ein Fehler kommen? Versuch doch mal, für 2 Datensätze denselben Wert im Primärschlüssel zu vergeben, dann sollte es auch eine Exception geben.

[GroHae]

hm :wiejetzt:

Wenn ich einen Update mache für den Datensatz X, dieser aber nicht mehr existiert, dann kann kein update gemacht werden. Ich würde das schon als Fehler sehen. Liege ich da wirklich falsch? :gruebel:


Ist dann Löschen von Datensatz X, obwohl Datensatz X nicht mehr existiert auch kein Fehler?

Deinen Vorschlag werde ich auf jeden fall morgen testen.

[DeddyH]

Wenn es jedes Mal einen Fehler gäbe, wenn kein Datensatz mit den Suchkriterien existiert, wäre keine Datenbank zu gebrauchen ;)