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

[TurboMagic]

Habe es jetzt mal außerhalb der IDE getestet: Fehler kommt trotzdem, wird nur eben durch Exception Handler abgefangen.

[Olli73]

Hast du die Query auf "asynchron" gestellt?

[TurboMagic]

Nicht dass ich wüsste, aber: wie würde man das überhaupt machen?

[Lemmy]

schau mal ob die Komponente die Eigenschaft "State" hat, sollte eigentlich ein enum sein.
Bitte logge mal mit, wie sich der State verhält, wichtig wäre hier vor dem Open und nach dem Open.
Kann es sein, dass du die Query wo anders im Code noch verwendest und dort beim Append die Query eigentlich im Edit/Insert Mode ist und einen Post abschickt und der dann zu der Exception führt?

[Uwe Raabe]

gelöscht

[jaenicke]

Zitat:

Zitat von Lemmy (Beitrag 1525886)

Kann es sein, dass du die Query wo anders im Code noch verwendest und dort beim Append die Query eigentlich im Edit/Insert Mode ist und einen Post abschickt und der dann zu der Exception führt?

Ja, das sieht man ja deutlich im Stacktrace:
Append --> CheckBrowseMode (hier wird erkannt, dass der Status nicht passt) --> Post (als Konsequenz, weil da noch ein offener Datensatz hängt)

Die Frage ist natürlich, warum da noch ein Datensatz gerade editiert wird. Prinzipiell könnte man das mit Cancel abbrechen, aber die Frage ist, ob das wirklich gewünscht ist, oder dann Daten verloren gehen.

[Lemmy]

Zitat:

Zitat von jaenicke (Beitrag 1525888)

Zitat:

Zitat von Lemmy (Beitrag 1525886)

Kann es sein, dass du die Query wo anders im Code noch verwendest und dort beim Append die Query eigentlich im Edit/Insert Mode ist und einen Post abschickt und der dann zu der Exception führt?

Ja, das sieht man ja deutlich im Stacktrace:
Append --> CheckBrowseMode (hier wird erkannt, dass der Status nicht passt) --> Post (als Konsequenz, weil da noch ein offener Datensatz hängt)

jup, habe ich gesehen. Die Ausgabe des state hätte ich gerne als Bestätigung / Beweis der Aussage ;-)

[jaenicke]

Zitat:

Zitat von Lemmy (Beitrag 1525889)

jup, habe ich gesehen. Die Ausgabe des state hätte ich gerne als Bestätigung / Beweis der Aussage ;-)

Dass du das weißt und siehst, ist mir schon klar. :wink:

Da aber nicht jedem die Bedeutung im Stacktrace klar ist, wollte ich hier auch noch erklären, wie man dies im Stacktrace sehen kann.

[Lemmy]

Zitat:

Zitat von jaenicke (Beitrag 1525890)

Zitat:

Zitat von Lemmy (Beitrag 1525889)

jup, habe ich gesehen. Die Ausgabe des state hätte ich gerne als Bestätigung / Beweis der Aussage ;-)

Dass du das weißt und siehst, ist mir schon klar. :wink:

Da aber nicht jedem die Bedeutung im Stacktrace klar ist, wollte ich hier auch noch erklären, wie man dies im Stacktrace sehen kann.

naja, manchmal trau ich meinen Augen nicht ;-)

[himitsu]

Zitat:

Zitat von jaenicke (Beitrag 1525888)

Append --> CheckBrowseMode (hier wird erkannt, dass der Status nicht passt) --> Post (als Konsequenz, weil da noch ein offener Datensatz hängt)

Kommt drauf an.
Einige DB-Komponenten haben auch sowas, wie eine AutoPost-Option.
Steht jenes auf False, dann würde ein Cancel gemacht, außer es würde explizit .Post ausgeführt.

[Sinspin]

Um solche Späße komplett zu vermeiden kann man auch was ganz anderes machen. Gerade in deinem Fall dürfte sich das anbieten da es wie ein klasisches Insert aussieht.
Nutze SQL. Ala :

Delphi-Quellcode:

query.SQL.Text := "INSERT INTO [fields ...] VALUES (...) " 
query.ParamByName(...)... 
query.Open;

Ich kenne FireBird nicht gut genug um dir zu sagen wie Du die AutoInc Id zurück bekommst. Bei ADS gibt es dafür eine DB seitige function "LastAutoInc" die ich nach dem Insert im gleichen Script aufrufe (deswegen nicht ExecSQL, sondern Open).
Arbeite mit einer lokal erzeugten Query, oder einer die nur für diese Aufgabe da ist. Wer mixt macht sich langfristig zusätzlichen Ärger.

[mytbo]

Zitat:

Zitat von Sinspin (Beitrag 1525901)

Ich kenne FireBird nicht gut genug um dir zu sagen wie Du die AutoInc Id zurück bekommst.

RETURNING clause. Verwendung mit FireDAC. Allgemeines zu Auto-Incremental Fields (FireDAC).

Bis bald...
Thomas