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]

Hallo,

nein. Habe keine Ereignisse zugewiesen.

Grüße
TurboMagic

[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