Gracias amigo guillotmarc , intente hacerme un ejemplo
pero se me pega la aimplcacion.. y alfinal no me actualiza..
Trigger:
Código:
create trigger eventos_empresa for new_table
active after insert or update or delete position o
As
begin
post_event 'modificacion de datos'
end
Proc.Almacenado
Código:
create procedure sp_empresa(
emp_rut varchar(14) not null,
emp_nf varchar(50),
emp_gr varchar(50))
as
begin
if (exists(select ad_emp_rut from new_table where adq_emp_rut = :emp_rut)) then
update new_table set
adq_emp_nf = :emp_nf,
adq_emp_gr = :emp_gr
where adq_emp_rut = : emp_rut;
else
insert into new_table ( columan de la tabla ) values(parametros)
suspend;
end
en delphi : Componentes
1.- IBDatabase1 <-> Ibtransaction1
2.- <-TibStroreprocedure
3 <-IBdataset1 ->DataSource1->DBgrid
4.- <-IBevents1
Con todo eto la aplicacion en el momento de inserta un nhuevo valor se
pega y al final no realiza nada
Nota : Sin IBDataSet y IBEvents1, funcionaba bien la actualizacion y la insercion , con el unico detalle que los datos insertados no se reflejan en la grilla
Espero puedas darme una mano mas....
De ante mano agradesco nuevamente el articulo que me diste
Saludos