AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Firebird Db Trigger Problem
Thema durchsuchen
Ansicht
Themen-Optionen

Firebird Db Trigger Problem

Ein Thema von Privateer3000 · begonnen am 25. Okt 2012 · letzter Beitrag vom 29. Okt 2012
Antwort Antwort
Perlsau
(Gast)

n/a Beiträge
 
#1

IBExpert

  Alt 27. Okt 2012, 19:16
@Privateer3000:

Ich verwende zum Erstellen und Ändern von Firebird-Datenbank immer die Personalversion von IBExpert. Bevor du das Tool herunterlädst, mußt du dich registrieren.

IBExpert bietet beim Erstellen einer Tabelle die Möglichkeit, ein AutoInc-Feld zu definieren, wie in der angehängten Grafik dargestellt. Dabei kann man sich gleich automatisch den entsprechenden Trigger, den Generator und eine Prozedur generieren lassen. Die sehen dann so aus:

Prozedur SP_GEN_PROJEKT_ID
Code:
begin
  ID = gen_id(GEN_PROJEKT_ID, 1);
  suspend;
end

/* DLL */
SET TERM ^ ;

CREATE OR ALTER PROCEDURE SP_GEN_PROJEKT_ID
returns (
    ID integer)
as
begin
  ID = gen_id(GEN_PROJEKT_ID, 1);
  suspend;
end^

SET TERM ; ^

/* Existing privileges on this procedure */

GRANT EXECUTE ON PROCEDURE SP_GEN_PROJEKT_ID TO SYSDBA;
Trigger PROJEKT_BI
Code:
as
begin
  if (new.IDX_PROJEKT is null) then
    new.IDX_PROJEKT = gen_id(GEN_PROJEKT_ID,1);
end

/* DLL */
/******************************************************************************/
/*        Following SET SQL DIALECT is just for the Database Comparer        */
/******************************************************************************/
SET SQL DIALECT 3;

CREATE GENERATOR GEN_PROJEKT_ID;

SET TERM ^ ;

CREATE OR ALTER TRIGGER PROJEKT_BI FOR PROJEKT
ACTIVE BEFORE INSERT POSITION 0
as
begin
  if (new.IDX_PROJEKT is null) then
    new.IDX_PROJEKT = gen_id(GEN_PROJEKT_ID,1);
end
^

SET TERM ; ^
Generator GEN_PROJEKT_ID
Code:
CREATE SEQUENCE GEN_PROJEKT_ID;
ALTER SEQUENCE GEN_PROJEKT_ID RESTART WITH 1;

/* Old syntax is:
CREATE GENERATOR GEN_PROJEKT_ID;
SET GENERATOR GEN_PROJEKT_ID TO 1;
*/
Angehängte Grafiken
Dateityp: jpg AutoInc.jpg (125,5 KB, 5x aufgerufen)
  Mit Zitat antworten Zitat
Benutzerbild von Privateer3000
Privateer3000

Registriert seit: 10. Jun 2002
Ort: Jena
1.128 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: Firebird Db Trigger Problem

  Alt 27. Okt 2012, 21:24
Vielen Dank.
Ich habe mit IBExpert die Trigger ausprobiert
die ich im IBEasy erstellt habe.
Siehe da: sie funktionieren.
Es liegt am IBEasy.
Vielen Dank für den IBExpert Tipp.
Peter
+++Versuch es nicht mit Gewalt + Nimm einen größeren Hammer! +++
  Mit Zitat antworten Zitat
Benutzerbild von Privateer3000
Privateer3000

Registriert seit: 10. Jun 2002
Ort: Jena
1.128 Beiträge
 
Delphi 10.4 Sydney
 
#3

AW: Firebird Db Trigger Problem

  Alt 27. Okt 2012, 22:49
By the Way
kann man mit Generatoren auch ein Timestamp realisieren
so das beim DS erstellen ein Timestamp eingetragen wird?
Grüße

PS: Ich weiß offTopic, aber wollte deswegen keinen neuen Thread aufmachen
Peter
+++Versuch es nicht mit Gewalt + Nimm einen größeren Hammer! +++
  Mit Zitat antworten Zitat
Perlsau
(Gast)

n/a Beiträge
 
#4

AW: Firebird Db Trigger Problem

  Alt 27. Okt 2012, 23:09
kann man mit Generatoren auch ein Timestamp realisieren
Ja. Das sollte dann aber eher in einen Trigger OnBeforeInsert oder OnBeforeUpdate.
  Mit Zitat antworten Zitat
Antwort Antwort


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 20:45 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz