Hallo,

ich habe eine DB Tabelle mit einem AutoInc Integer Feld Namens ID.
Das nutzt in Firebird einen Generator, dessen Wert ich eigentlich mittels
SQL Manager auf 4 gesetzt habe, da ich damit schon 4 Einträge in die Tabelle
gemacht hatte.

Nur wenn ich mit unten stehender Methode meinen neuen Text reinschreiben will
knallt es, weil er ID auf 0 statt 4 oder 5 setzen will.

Eigentlich hab' ich den Code analog zu Code für andere Tabellen der DB geschrieben
die auch AutoID Primärschlüssel haben und definitiv funktionieren. Hat jemand eine
Idee warum es da nicht klappt? Bzw. was kann ich noch testen?

zusammenfalten · markieren

Delphi-Quellcode:

procedure TMyTexts.SaveAddedText(Item: TMyText);
begin
  if not Assigned(FInsertQuery) then
  begin
    FInsertQuery := FDataSetFactory.GetDataSet(true);
    // Relevant, damit FireDAC beim Append später nicht wegen dem noch leeren
    // Primärschlüssel meckert.
    FInsertQuery.UpdateOptions.AutoIncFields := 'ID';
  end;

  FInsertQuery.Open('select ID, TEXT from MY_TEXTS');
  FInsertQuery.Append;
  FInsertQuery.FieldByName('TEXT').AsString := Item.Text;
  FInsertQuery.Post;

  Item.ID := FInsertQuery.FieldByName('ID').AsInteger;
end;

Also wenn dein Feld "ID" ein AutoIncrement - Feld ist und ich das nicht falsch verstanden habe, dann sollte das so reichen:

markieren

Code:

procedure TMyTexts.SaveAddedText(Item: TMyText);
begin
  FInsertQuery.Open('SELECT TEXT FROM MY_TEXTS');
  FInsertQuery.Insert;
  FInsertQuery.FieldByName('TEXT').AsString := Item.Text;
  FInsertQuery.Post;
  FInsertQuery.Close;
end;

Danke für die Info!
Werde das baldmöglichst testen.
Du benutzt also statt Append Insert wenn ich das richtig sehe und lässt diese
AutoInc Felddefinition weg.

Das Insert ist einfach "gewohnheit", dein Insert geht genau so.

Der Unterschied besteht darin , dass Du mit append einfach einen neuen Eintrag am Ende der Liste hinzufügst. Mit insert(position, eintrag) kannst Du einen neuen Eintrag genau an der gewünschten Position erstellen. Ohne Positionsangabe ist ein insert praktisch ein append

Entscheidend bei meinem vorherigen Posting ist einfach das du ein AutoInc-Feld nicht ausfüllen musst, das macht die Datenbank alleine.

Zitat von DaCoda:

Das Insert ist einfach "gewohnheit", dein Insert geht genau so.

Der Unterschied besteht darin , dass Du mit append einfach einen neuen Eintrag am Ende der Liste hinzufügst. Mit insert(position, eintrag) kannst Du einen neuen Eintrag genau an der gewünschten Position erstellen. Ohne Positionsangabe ist ein insert praktisch ein append

Entscheidend bei meinem vorherigen Posting ist einfach das du ein AutoInc-Feld nicht ausfüllen musst, das macht die Datenbank alleine.

Nach meinem Test glaube ich dir das nur leider nicht mehr.
Ich bekomme eine EDatabaseError exception:
Im Projekt MyTest.exe ist eine Exception der Klasse EDatabaseError mit der Meldung 'Feld 'ID' muss einen Wert haben' aufgetreten.

Hallo,

in den Datenzugriffskomponenten (FDQuery bzw. FDTable) bei 'UpdateOptions' die entsprechenden
Eigenschaften angeben.

GeneratorName
Keyfields

sollte funktionieren.
Gruß

Normal sollte doch FireDAC auch nur ein INSERT-Statement mit den gefüllten Feldern generieren?
Felder, welche nicht im Statement drin stehen, werden serverseitig via Default/AutoInc gefüllt.

Im Grunde halte ich es eigentlich für einen gewaltigen Bug, dass bei Default/AutoInc-Feldern das Required im TField gesetzt wird, denn es ist eben nicht "wirklich" required (clientseitig).

Bei FireDAC kann man bestimmt auch deaktivieren, dass Required gesetzt wird.
Required prüft lokal, im BeforePost, aber es wird ja eh nochtmal serverseitig geprüft.

Keine Ahnung, was AutoIncFields überhaupt macht.
Wir nutzen eine abgeleitete pgDAC-Klasse, wo im AfterInsert über ein SELECT vom Server die Default/AutoInc-Werte geholt und in die Fields kopiert werden.
* einmal knallt es so bei Required-Check nicht
* und außerdem sieht man bereits vor dem Post (im Edit/Grid), was überall drin steht (auch das, was eigentlich erst beim Post in der DB gefüllt würde, abgesehn von BeforeInsertTriggern)

(das Einzige, womit man klarkommen muß, wird dann doch nicht gepostet, sondern verworfen, dann entstehen Lücken)

Zitat von himitsu:

(das Einzige, womit man klarkommen muß, wird dann doch nicht gepostet, sondern verworfen, dann entstehen Lücken)

Wenn man das unbedingt vermeiden will, kann man fürs Speichern auch einen zweiten Nummernkreis von "temporären Nummern" verwenden. Die werden dann nach dem Speichern von einem "After Insert" Trigger durch die richtigen Nummern ersetzt. (Dazu vielleicht noch eine Meldung an den Bediener "Die vergebene Nummer war XY")

Wir haben auch spezielle Nummernkreise, für einige Dinge.
z.B. wenn die Nummer zwar fortlaufend sein soll, aber es zeitlich egal ist.
Dort wird eine vorübergehend gezogene Nummer markiert/gespeichert, mit Zeitpunkt,
und wenn nach einigen Stunden immernoch nicht verwendet, dann wird sie nächstes Mal erneut gezogen.

Zitat von TurboMagic:

Hallo,

ich habe eine DB Tabelle mit einem AutoInc Integer Feld Namens ID.
Das nutzt in Firebird einen Generator, dessen Wert ich eigentlich mittels
SQL Manager auf 4 gesetzt habe, da ich damit schon 4 Einträge in die Tabelle
gemacht hatte.

Nur wenn ich mit unten stehender Methode meinen neuen Text reinschreiben will
knallt es, weil er ID auf 0 statt 4 oder 5 setzen will.

Eigentlich hab' ich den Code analog zu Code für andere Tabellen der DB geschrieben
die auch AutoID Primärschlüssel haben und definitiv funktionieren. Hat jemand eine
Idee warum es da nicht klappt? Bzw. was kann ich noch testen?

zusammenfalten · markieren

Delphi-Quellcode:

procedure TMyTexts.SaveAddedText(Item: TMyText);
begin
  if not Assigned(FInsertQuery) then
  begin
    FInsertQuery := FDataSetFactory.GetDataSet(true);
    // Relevant, damit FireDAC beim Append später nicht wegen dem noch leeren
    // Primärschlüssel meckert.
    FInsertQuery.UpdateOptions.AutoIncFields := 'ID';
  end;

  FInsertQuery.Open('select ID, TEXT from MY_TEXTS');
  FInsertQuery.Append;
  FInsertQuery.FieldByName('TEXT').AsString := Item.Text;
  FInsertQuery.Post;

  Item.ID := FInsertQuery.FieldByName('ID').AsInteger;
end;

Eigentlich fehlt hier nur ein RefreshRecord nach dem Post bzw. die Einstellung, dass das automatisch/immer gemacht wird:

https://docwiki.embarcadero.com/Libr...ns.RefreshMode