Firebird: Generator mit dynamischen Namen

[Hansa]

Zitat von mkinzler:

Ohne expliziten Lock der Tabelle könnte es passieren, dass 2 gleichzeitige Vorgänge 2 identische Nummern generiert!

Da passiert eben nichts. Ich will ja nicht streiten oder Spocki Vorschriften machen, aber Transaktionskontrolle muss sein. Ich habe umfangreiche Tests durchgeführt. Sowohl für diese Recnr-SP als auch für normale Datensätze, also Updates über Delphi-Programm. 3 Rechner : der erste speichert so schnell er kann. Der zweite lässt sich eine Sek. Zeit, der dritte sogar 2 Sek. Das Ganze übers Wochenende. Bei dem Table-Update habe ich dafür gesorgt, dass die 3 Rechner nur auf drei Datensätze Updates gemacht haben. Nach menschlichem Ermessen und einem nicht wasserdichten System hätte da bei über 60 St. Laufzeit irgendwo ein Konflikt auftauchen müssen. Zumindest sind sie sich wohl schon irgendwo ins Gehege gekommen. Sonntag mittags hat mich dann die Neugier gepackt und was war ? Kein Fehler, nichts. Das mit dem Lock, das scheint überflüssig zu sein.

Hat mich dann auch nicht gewundert, dass Montag morgens immer noch nichts war. Firebird geht schon gut. Für Netzwerk ist nur wichtig : richtige Transaktionskontrolle.

[mkinzler]

Vielleicht nur Glück oder durch das verwendete MP bedingt. Ich würde das aber an Deiner Stelle ändern, denn ab FB3 könnte das dann schön in dei Hose gehen.

[Dejan Vu]

Also bei einer derartigen Konstellation würde ich wirklich empfehlen, eine eigene Funktion dafür zu schreiben. Anhand einer Hilfstabelle werden die Zähler verwaltet. Da das Ganze eh in einer Transaktion ausgeführt wird, sind Dopplungen ausgeschlossen.

Wenn Du einen Generator verwendest, machst Du dich imho implizit von der Implementierung des Generators abhängig bzw. von etwaigen Restriktionen. Das ist zwar hier nicht der Fall, aber unsauber. Finde ich.

[MrSpock]

Jetzt hab ich es "fast" so, wie ich es haben wollte. Meine SP sieht wie folgt aus:

Code:

CREATE OR ALTER procedure GET_ERFNR (
    JAHR varchar(2) not null,
    WOCHE varchar(2) not null)
returns (
    ERFNR integer)
as
declare variable ANZ integer;
declare variable GEN_NAME varchar(10);
begin
  /* Procedure Text */
  gen_name = 'ERFNR' || Jahr || Woche;

  SELECT COUNT(1) from rdb$generators where rdb$generator_name = :gen_name into :anz;

  if (anz <> 1) then
    execute statement 'create sequence ' || gen_name;

  execute statement 'SELECT GEN_ID(' || gen_name || ',  1) from rdb$database';
  suspend;
end

Ich prüfe als, ob z.B. der Generator ERFNR1503 schon existiert und wenn nicht, erstelle ich ihn. Funktioniert einwandfrei.
Jetzt brauche ich nur noch den nächsten Wert üner GEN_ID, dazu habe ich die zweite execute statement Anweisung. Ich muss aber den Wert von dem Generator als Wert der SP zurückgeben, aber das will nicht funktionieren. Ich kann weder den Wert über "SELECT GE_ID ... into :ERFNR" noch über ERFNR = execute statement 'SELECT ...' oder über execute statement 'ERFNR = SELECT ...' in ERFNR zurückgeben.

Hat jemand eine Idee, wie ich den Wert des zweiten EXECUTE Statements zurückgebe?

[bepe]

Das kannst du mit execute into machen:

http://www.firebirdsql.org/refdocs/l...-execstat.html

[MrSpock]

Genial!

Das hat mir noch gefehlt, jetzt funktioniert es:

Code:

CREATE OR ALTER procedure GET_ERFNR (
    JAHR varchar(2) not null,
    WOCHE varchar(2) not null)
returns (
    ERFNR integer)
as
declare variable ANZ integer;
declare variable GEN_NAME varchar(10);
begin
  /* Procedure Text */
  gen_name = 'ERFNR' || Jahr || Woche;

  SELECT COUNT(1) from rdb$generators where rdb$generator_name = :gen_name into :anz;

  if (anz <> 1) then
    execute statement 'create sequence ' || gen_name;

  execute statement 'SELECT GEN_ID(' || gen_name || ',  1) from rdb$database' into :erfnr;
  suspend;
end