Einzelnen Beitrag anzeigen

mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.861 Beiträge
 
Delphi 11 Alexandria
 
#13

Re: nach commit ist alles weg

  Alt 24. Mai 2009, 14:09
SQL-Code:
SET NAMES ISO8859_1;
create database 'D:\Platte-E\Projekte\fire\Daten\daten.fdb'
user 'SYSDBA' password 'masterkey'
page_size 4096
default character set iso8859_1;

CREATE DOMAIN "TSTR25" AS VARCHAR(25) COLLATE DE_DE;
CREATE DOMAIN "TSTR50" AS VARCHAR(30) COLLATE DE_DE;
CREATE DOMAIN "TMEMO" AS VARCHAR(2000) COLLATE DE_DE;

CREATE TABLE "KUNDEN"
(
  ID INTEGER NOT NULL,
  anrede TSTR25,
  vorname TSTR50,
  name TSTR50,
  land TSTR50,
  plz TSTR25,
  ort TSTR50,
  strasse TSTR50,
  tel TSTR50,
  fax TSTR50,
  mail TSTR50,
  knr TSTR25

);

SET TERM ^ ;

CREATE TRIGGER trgTKUNDEN_BI_V3 for TKUNDEN
active before insert position 0
as
begin
if ((new.id is null) or (new.id = 0)) then
begin
  new.id = gen_id( gidKUNDEN, 1 );
end
end ^

SET TERM ; ^
Markus Kinzler
  Mit Zitat antworten Zitat