Thema: Delphi SQL Variable

Einzelnen Beitrag anzeigen

Benutzerbild von r_kerber
r_kerber

Registriert seit: 11. Feb 2003
Ort: Trittau
3.538 Beiträge
 
Delphi XE Professional
 
#3

Re: SQL Variable

  Alt 2. Dez 2003, 10:54
Für Interbase 6 kommt so'n Mischmasch aus Trigger und Stored procedure heraus:
SQL-Code:
set term /;
create trigger ti_rvv for tabelle1
before insert as
declare variable numrows integer;
begin
    /*  Parent "tabelle2" must exist when inserting a child in "tabelle1" */
    if (new.spalte is not null) then
    begin
       select count(*)
       from tabelle2
       where tabelle2.spalte= new.spalte
       into :numrows;
       
       if (numrows = 0) then
       begin
          exception sdp_icpe;
       end
    end
...
end
end;/
set term ;/
  Mit Zitat antworten Zitat