MetaWorlds Beta 17/MSQMW17.ZIP/DATA.Z/DBGEN_T.SQL

Text File | 1997-01-27 | 366 b | 14 lines

create trigger AttachProfs before delete order 1 on "DBA".Users
referencing old as UserRec
for each row
begin
  delete from user_profile where UserRec.ID = user_profile.userid
end;

create trigger AttachUsers before delete order 1 on "DBA".Accounts
referencing old as AcctRec
for each row
begin
  delete from users where Users.Account = AcctRec.ID
end