Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi IB: Stored Proc: Generator erhöhen (https://www.delphipraxis.net/27537-ib-stored-proc-generator-erhoehen.html)

mschaefer 11. Aug 2004 20:13


IB: Stored Proc: Generator erhöhen
 
Moin, moin

ich möchte einen Generator-Wert per Stored Procedure erhöhen. Das gelingt mir mit folgender Procedure


SQL-Code:
begin
   NEW_PID = gen_id(  GENERATOR_Products ,1);
   SUSPEND;
end

Hierbei kann ich mir übrigens den aktuellen Generator-Wert zurückgeben lassen. Ok soweit sogut.
Bisher ist es aber notwendig, den Generator-Name in der Funktion Gen_ID explizit anzugeben.

FRAGE: Ist es möglich den Namen des Generators irgendwie in einer Variable zu übergeben
um diese Procedur auf mehrere Generatoren/Tabellen anzuwenden ???

So müßte ich für jede Tabelle eine extra Procedur schreiben und das gefällt mir wenig. Mein Programm braucht den Generator-Wert übrigens um verschiedene Codierungen zu erstellen und die prinzipielle Herangehensweise hat sich eigentlich bewährt, bis auf die jeweilig notwendige Procedur...

Grüße // Martin

Frank2004 11. Aug 2004 20:54

Re: IB: Stored Proc: Generator erhöhen
 
Hallöle,

probier es mal auf diese art, dat klappt:

Code:
[sql]
CREATE PROCEDURE SP_GEN__ID (
    GENNAME CHAR(50))
RETURNS (
    ID INTEGER)
AS
BEGIN
  if (GENNAME = "gen_benutzer_id")
  then ID = GEN_ID( gen_benutzer_id, 1);
  if (GENNAME = "gen_entrys_id")
  then ID = GEN_ID( gen_entrys_id, 1);
END
Viel Erfolg
Grüsse Frank

mschaefer 11. Aug 2004 21:01

Re: IB: Stored Proc: Generator erhöhen
 
Nábend Frank,

ja - klasse ! Genauso hättte ich das in Pascal in der IDE gemacht, aber
kaum ist man auf fremden Gelände, anderer Editor, dann geht die Logic schlafen.
Tja genau das scheint übrigens das Stichwort für mich zu sein....

Danke und viele Grüße // Martin


Alle Zeitangaben in WEZ +1. Es ist jetzt 05:55 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz