Crash vermeiden

[TurboMagic]

Hallo,

ich habe eine DB Tabelle die hat mit FAILURE_ID einen automatisch erzeugten Schlüssel Wert.
Zum Hinzufügen neuer Einträge initialisiere ich am Anfrang eine TFDQuery wie folgt:

Delphi-Quellcode:

  FQuerySave.UpdateOptions.AutoIncFields := 'FAILURE_ID';

  FQuerySave.SQL.Text := 'select FAILURE_ID, TSE_ID, FAILURE_TYPE, ' +
                         'FAILURE_CODE, FAILURE_TEXT, FAILURE_REMARK ' +
                         'from KASSE_TSE_FAILURES';

Später möchte ich Werte hinzufügen:

Delphi-Quellcode:

function TTSEFailureLog.AddEntry(FailureType       : TTSELogFailureType;
                                 FailureCode       : Int32;
                                 const FailureText : string): Integer;
var
  FailureTypeStr : string;
begin
  Result := -1;
  AddCodeSiteLogEntry(FailureType, FailureCode, FailureText);

  try
    FailureTypeStr := ConvertFailureTypeToString(FailureType);

    FQuerySave.Open;
    FQuerySave.Append;

    FQuerySave.FieldByName('TSE_ID').AsInteger        := FCurrentTSEID;
    FQuerySave.FieldByName('FAILURE_TYPE').AsString   := FailureTypeStr;
    FQuerySave.FieldByName('FAILURE_CODE').AsInteger  := FailureCode;
    FQuerySave.FieldByName('FAILURE_TEXT').AsString   := FailureText;
    FQuerySave.FieldByName('FAILURE_REMARK').AsString := '';

    FQuerySave.Post;

    Result := FQuerySave.FieldByName('FAILURE_ID').AsInteger;
    FQuerySave.Close;
  except
    On e:Exception do
      log.SendException(cCategory, 'Fehler beim Speichern eines TSE Fehlerlog '+
                                   'Eintrags: ' + e.Message, e);
  end;
end;

Beim ersten Mal klappt es immer, bei späteren Malen im selben Programmlauf kommt es oft
zu einer Exception in FireDAC die damit begründet wird, dass der Wert für die FAILURE_TYPE
Spalte NULL ist. Der Crash passiert genau in der Zeile mit dem Append und ja, diese Spalte
der DB Tabelle ist als not NULL deklariert.

Was muss ich tun, damit es trotzdem klappt?
Ich bin mit diesem Append/Post Vorgehen noch nicht so vertraut, brauche es hier aber, weil
ich die vergebene ID aus der DB zurückliefern will.

Grüße

TurboMagic

[Lemmy]

Firebird kennt kein AutoInc Feld wie andere DBs. Dafür einen Generator erzeugen für das Feld incl. einen Trigger für die Tabelle oder vor dem Insert den Generator abfragen und das Feld wie alle andere beim Insert befüllen. Wenn die ID im Client direkt benötigt wird, würde ich das bevorzugen oder ein Insert Into.... Returns einsetzen.

Grüße

[TurboMagic]

Hallo,

du hast da leider noch was missverstanden:
das Problem ist nicht das AutoInc, das wird in FB tatsächlich durch einen Generator
abgebildet.

Der Crash im Append zeigt deutlich auf die FAILURE_TYPE Spalte!
Das ist nicht "AutoInc" oder so, sondern "nur" "not NULL", aber genau das passiert
beim Append: er versucht da wohl mal Null vorzubelegen oder so. Warum das nicht gleich
beim ersten Aufruf von AddEntry knallt weiß ich nicht, aber eben bei späteren.

=> was muss ich tun, damit der Append auch mit der not null Spalte richtig umgehen kann?

[Lemmy]

sorry, das hatte ich nicht richtig gelesen.

Du setzt das Feld mit AsString vor dem POst. Da Delphi kein NULL Status kennt, steht da mindestens ein Leerstring drin, was kein NULL ist. Es kann aber durchaus sein, dass die KOmponente einen Leerstring in ein NULL umwandelt, das sollte als Einstellung in der Query oder dem Feld bei der Query aber im Objektinspektor zu sehen sein.

Preisfrage: Was steht denn in dem FailureTypeStr denn bei dem Versuch der fehlschlägt?
Grüße

[Olli73]

Hat die Query oder ein zugeordnetes DataSource ein Ereignis implementiert?

[TurboMagic]

In dem String steht ein einzelnes Zeichen, die Spalte ist ja auch nur varchar(1).
Entweder ein T oder ein R oder so, also jedenfalls ein Großbuchstabe.

Aber: es knallt ja schon beim Append, daher kann er dem SQL Field ja noch gar nichts
zugewiesen haben. Muss einfach das Append nach den ganzen FieldByName kommen statt davor?

Grüße
TurboMagic

[TurboMagic]

Hallo,

nein. Habe keine Ereignisse zugewiesen.

Grüße
TurboMagic

[Olli73]

Dann dürfte es niemals beim Append knallen! Wenn dann beim Post.

[jaenicke]

Wie sieht denn der Stacktrace bei der Exception aus?

[TurboMagic]

Hallo,

anbei mal der Stacktrace.
Ich hab aber den Verdacht, dass sich hier evtl. einfach was "selbst überholt"
und evtl. tritt das Problem nur beim Debuggen auf, weil man durch Breakpoints
ggf. auch Zeitverhalten usw. beeinflusst.

Leider kann man den Stacktrace noch nicht in die Zwischenablage kopieren.
Das lernt die IDE aber bestimmt auch noch...

Wie komme ich zu meinem Verdacht?
Naja, manchmal springt er von der FailureTypeStr Zuweisung gleich zum Breakpoint
am Post und überspringt somit den bei FIleByName.

Grüße

TurboMagic