nächste id im datensatz

[urs.liska]

@theomega:
Eine übliche Vorgehensweise bei Interbase ist:
Eine Stored Procedure, die einen neuen Generatorwert zurückgibt, aufrufen, und diesen beim Insert übergeben. Das ist auf jeden Fall viel weniger aufwändig als ein SELECT.
IBX macht so was ähnliches (zumindest in IBDataSet), wenn man die Eigenschaft GeneratorField richtig einstellt.

Grüße
Urs

[theomega]

Könntest du das mal näher Erleutern? Mit dem Generator-Field?

[urs.liska]

GeneratorField ist eine Eigenschaft von TIBCustomDataSet (IBX), die dazu dient, die Behandlung von AutoIncrement-Feldern zu vereinfachen.
Man setzt im OI den Feldnamen und den Generatornamen (der muss natürlich vorhanden sein) und bestimmt mit der Eigenschaft ApplyEvent, wann der neue Generatorwert geholt wird:
a) gamOnNewRecord
Wenn Du in der Komponente einen neuen Datensatz einfügst (beforeInsert). Der Vorteil davon ist, dass Du während der Bearbeitung des neuen Datensatzes schon weißt, welche ID der neue Datensatz bekommen wird (ist je nachdem für irgendwelche MasterDetail-Beziehungen hilfreich). Der Nachteil ist, dass bei einem Cancel der Generatorwert "verloren geht".
b) gamOnPost
Bevor der Datensatz gepostet wird, wird vom Generator ein neuer Wert abgerufen und in das Feld gesetzt. Vor- und Nachteil wie a) nur umgekehrt.
c) gamOnServer
Teilt der Komponente mit, dass sich der Server (durch Trigger) selbst um die Vergabe des AutoInc-Wertes kümmert. Wenn man die Trigger richtig gesetzt hat und das Programm den neuen ID-Wert nicht vor dem Posten wissen muss, dürfte das die beste Methode sein, da sie nicht die zusätzliche Netzwerkbelastung für das holen des Generatorwerts verursacht.

Grüße
Urs

[BrinkschulteManfred]

Hallo zusammen,

ich grüble nun schon seit ein paar Tagen an meinem Problem, dass ich an einer Fremd-DB ein paar Einträge an Stammdatentabellen ergänzen möchte. Die Fremdtabelle ist relativ einfach aufgebaut, es gibt dort eine ID und eine Einheitenspalte. Die ID-Spalte scheint eine AutoWert-Spalte zu sein, so dass ich inzwischen da angelangt bin, dass wohl ein IBDataSet mit dem Generatorfield zum Einsatz kommen muss.
Mein Code sieht folgendermaßen aus

Delphi-Quellcode:

procedure TFormEinheiten.Button1Click(Sender: TObject);
begin
  IBDataSetEinheiten.Insert;
  ShowMessage(IntToStr(IBDataSetEinheiten.FieldValues['ID']));
  IBDataSetEinheiten.Post;
  IBTransactionEinheiten.Commit;
  if Not(IBDataSetEinheiten.Active) then IBDataSetEinheiten.Active := True;
end;

Für die Eigenschaft InsertSQL habe ich

• INSERT INTO EINHEITEN (EINHEIT) VALUES ('DUMMY Einheit')

und für die Eigenschaft Generatorfield habe ich

• Generator = GEN_EINHEITENID
  Feld = ID
  erhöhen um = 1
  Ereignis anwenden = On Server

eingetragen. Alles funktioniert prächtig, es werden fortlaufend neue IDs vergeben. Leider kann ich aber damit nicht auf die ID zugreifen, die ich noch für anderen Einträge benötige. Stelle ich aber Ereignis anwenden auf On New Record, dann wird zwar bei ShowMessage die nächste ID angezeigt, aber in der Datenbanbk steht die übernächste ID. Im Moment weiß ich nicht, wo der Fehler liegen könnte. Was habe ich vergessen?

Gruß
Manfred

Anmerkung: Wenn Ereignis anwenden auf On Server steht, ist natürlich die ShowMessage-Zeile nicht da!

[urs.liska]

Hallo,

bin eigentlich gerade nicht so ganz drin im Thema, aber:
könnte es sein, dass in der Datenbank ein Trigger aktiv ist, der beim Posten des Datensatzes nochmal einen Generatorwert abruft?

Gruß
Urs

[BrinkschulteManfred]

Hallo Urs,

ja, ich habe auch schon darüber nachgedacht, aber da es sich um eine Fremddatenbank handelt, von der ich nur das Passwort weiß um eine Zusatzanwendung zu schreiben, ist mir der genaue Inhalt nicht bekannt. Leider gibt es auch keine Doku dazu, also kann ich nur per Try & Error an die Sache herangehen.
Wenn es denn ein Trigger sein sollte, wie kann ich denn das Problem lösen?

Gruß
Manfred