Exception abfangen

[Zvoni]

Ich werd gerade bescheuert
Debugger=fpDebug mit Dwarf2 mit Sets

Code: Alles auswählen

procedure TFormProviders.SaveChanges(AQuery: TSQLQuery);
begin
  If AQuery.State In [dsBrowse,dsEdit,dsInsert] Then
    Begin
      Try
        AQuery.ApplyUpdates;
        AQuery.SQLTransaction.CommitRetaining;
        AQuery.Refresh;
      Except
        On E:ESQLDataBaseError Do
          ShowMessage('Fehler='+E.ErrorCode.ToString+LineEnding+'State='+E.SQLState+LineEnding+'Text='+E.Message);
      end;
    end;
  IsDirty:=False;
end;                            

Ich bekomme diese Meldung vom DEBUGGER --> ganz klar: ESQLDatabaseError

Unbenannt.PNG (9.5 KiB) 351 mal betrachtet

Ich kann mich beim besten Willen nicht mehr erinnern, was ich in den Projekt-Optionen einstellen muss, damit es mir eben nicht gezeigte Fehlermeldung zeigt, sondern dass mein Code im Try/Except in den Except-Teil springt

Unbenannt2.PNG (43.85 KiB) 351 mal betrachtet

Hilfe?

[af0815]

Normalerweise, wenn du "ignore this exceptiontype" anwählst, macht er die EInstellungen im Projekt von selbst. Ich habe normalerweise das Notify on exception aktiv, nur die Anderen schalte ich ein und aus.

[Zvoni]

Normalerweise, wenn du "ignore this exceptiontype" anwählst, macht er die EInstellungen im Projekt von selbst.

?? Würde erklären, wo auf einmal das EUpdateError herkommt.
Muss ich mal probieren

[Zvoni]

OK, jetzt wird es skurril.

Code: Alles auswählen

procedure TFormProviders.SaveChanges(AQuery: TSQLQuery);
begin
  If AQuery.State In [dsBrowse,dsEdit,dsInsert] Then
    Begin
      Try
        AQuery.ApplyUpdates;
        AQuery.SQLTransaction.CommitRetaining;
        AQuery.Refresh;
      Except
        On E:ESQLDataBaseError Do
          ShowMessage('ESQLDatabaseError='+E.ErrorCode.ToString+LineEnding+'State='+E.SQLState+LineEnding+'Text='+E.Message);
        On E:EUpdateError Do
          ShowMessage('EUpdateError='+E.ErrorCode.ToString+LineEnding+'Text='+E.Message);
      end;
    end;
  IsDirty:=False;
end;                             

Die Fehlermeldung besagte "ESQLDatabaseError"
Es ist aber ein "EUpdateError" (Code springt zur zweiten ShowMessage)

Was denn jetzt? Einigt euch mal

*grml*

[af0815]

OK, jetzt wird es skurril.
....
Was denn jetzt? Einigt euch mal

*grml*

Es ist Ostern und du findest jede Menge "Easter Eggs" SCNR

[charlytango]

hab eine gaaanz blöde Zusatzfrage:

Code: Alles auswählen

If AQuery.State In [dsBrowse,dsEdit,dsInsert] Then

wieso kann es im State dsBrowse etwas zum Speichern geben?
Ich kann da ja auch völlig falsch liegen, aber das kommt mir komisch vor

[Zvoni]

hab eine gaaanz blöde Zusatzfrage:

Code: Alles auswählen

If AQuery.State In [dsBrowse,dsEdit,dsInsert] Then

wieso kann es im State dsBrowse etwas zum Speichern geben?
Ich kann da ja auch völlig falsch liegen, aber das kommt mir komisch vor

Hast Recht.
Muss ein Überbleibsel sein