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?

Delphi-Quellcode:

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:

Zitat von mkinzler (Beitrag 1287799)

Warum versuchst Du ein Integerfeld als Text zu setzen?

AsInteger :stupid:

Wo kommt denn der Inhalt von

Delphi-Quellcode:

z

her?
Und warum wird doppelt hochgezählt?

[DeddyH]

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