AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Delphi Firebird Quelltext eines Generators lesen

Firebird Quelltext eines Generators lesen

Ein Thema von Codehunter · begonnen am 8. Sep 2018 · letzter Beitrag vom 8. Sep 2018
Antwort Antwort
Seite 2 von 2     12
Benutzerbild von Codehunter
Codehunter

Registriert seit: 3. Jun 2003
Ort: Thüringen
1.556 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#11

AW: Firebird Quelltext eines Generators lesen

  Alt 8. Sep 2018, 21:07
Das wird der aktuelle Wert sein.
Nur müsste der dann nicht bei allen Generatoren im "DDL" so erscheinen und nicht nur bei manchen?
Ich mache grundsätzlich keine Screenshots. Schießen auf Bildschirme gibt nämlich hässliche Pixelfehler und schadet der Gesundheit vom Kollegen gegenüber.
  Mit Zitat antworten Zitat
Benutzerbild von IBExpert
IBExpert

Registriert seit: 15. Mär 2005
Ort: Hude (Oldenburg)
345 Beiträge
 
FreePascal / Lazarus
 
#12

AW: Firebird Quelltext eines Generators lesen

  Alt 8. Sep 2018, 23:27
Generatoren abrufen und Werte auslesen ist ziemlich einfach
Bei einem Trigger musst du für vollständige SQLs diverse Attribute aus RDB$Triggers auswerten, um zu wissen ob das ein before oder after trigger ist, ein database trigger, etc.
Für den Main Body gibt es das jeweilige Source Feld, das reicht aber nicht für die Create Trigger Deklaration, für Alter Trigger aber schon.

Bei Stored procs ist das noch wesentlich komplizierter, weil da der Header aus RDB$PROCEDURES und RDB$PROCEDURE_PARAMETERS kommen und je nach dem wie die deklariert sind, auch noch rdb$fields etc.

Das ist im Gegensatz zu Generatoren nicht mal eben allgemeingültig zu machen, ich weiß wovon ich rede


Für Generatoren aber hier eine kleine Hilfe

Code:
execute block
returns
(create_sql varchar(200),
set_val varchar(200))
as
declare variable gn varchar(31);
declare variable val bigint;
begin
  for select trim(rdb$generators.rdb$generator_name)
      from rdb$generators
      where rdb$generators.rdb$generator_name not containing '$'
      into gn
  do
  begin
    create_sql='create generator '||gn;
    execute statement 'select gen_id('||gn||',0) from rdb$database' into val;
    set_val='set generator '||gn||' to '||val;
    suspend;
  end
end
Holger Klemt
www.ibexpert.com - IBExpert GmbH
Oldenburger Str 233 - 26203 Wardenburg - Germany
Die Lazarus Konferenz für Profis, 20.09.2018 - 22.09.2018, 53175 Bonn

Geändert von IBExpert ( 8. Sep 2018 um 23:31 Uhr)
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:49 Uhr.
Powered by vBulletin® Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2018 by Daniel R. Wolf