Firebird INTEGER = NotNull

[strom]

Hallo,

habe Probleme mit der Spalte "Einsatznummer" hier soll automatisch eine Nr. angelegt werden.

Einsatznummer(PK)INTEGER NOTNULL

Delphi-Quellcode:

Einsatz.Insert;
  Einsatz.Edit;
  z := z +1;
  Einsatz.FieldByName('MELDUNG').Text := MemoText;
  Einsatz.FieldByName('EINSATZNUMMER').Text := InttoStr(z); // Was ist falsch?
  Einsatz.FieldByName('Sondersignal').Text := '0';
  Einsatz.Post;

[DeddyH]

Wieso versuchst Du händisch, den PK zu setzen? Üblicherweise benutzt man dafür einen Generator und einen BEFORE INSERT-Trigger und hat damit dann quasi ein AutoInc-Feld.

[Uwe Raabe]

Abgesehen von dem überflüssigen Edit (du machst ja direkt davor schon ein Insert), was funktioniert denn nicht?

[strom]

Also,

"Edit" ist jetzt raus! Aber es wird nicht hochgezählt, es wird immer eine 1 gesetzt!

[strom]

Jetzt geht es!

Delphi-Quellcode:

 Einsatz.Insert;
  z := z + 1;
  Einsatz.FieldByName('MELDUNG').Text := MemoText;
  Einsatz.FieldByName('EINSATZNUMMER').Text := InttoStr(z+1);
  Einsatz.FieldByName('Sondersignal').Text := '0';
  Einsatz.Post;

[strom]

es geht doch nicht

es wird nicht hochgezählt!

[mkinzler]

Warum versuchst Du ein Integerfeld als Text zu setzen?
Einsatz.FieldByName('MELDUNG').Value := z+1; Was für einen Wert hat z am Anfang?
Es ist, wie schon erwähnt äusserst gefährlich den PK derartig zu setzen, verwenden einen Generator, welchen Du per Trigger setzen lässt.
Möglicherweise ist schon eine BI-Trigger aktiv.

[strom]

hallo mkinzler,

die Datenbank ist vorgegeben, wo ich was reinschreiben möchte.
Ein Trigger Trigger_BI ist auch vorhanden, wie kann ich diesen mit einbinden?

[himitsu]

Zitat von mkinzler:

Warum versuchst Du ein Integerfeld als Text zu setzen?

AsInteger

Wo kommt denn der Inhalt von z her?
Und warum wird doppelt hochgezählt?

[DeddyH]

Kommentier die Zeile doch mal aus, in der Du versuchst, die Nummer zu beschreiben.