Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > SQL
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #4  
Antiguo 27-10-2008
Avatar de poliburro
[poliburro] poliburro is offline
Miembro Premium
 
Registrado: ago 2004
Ubicación: México D.F
Posts: 3.068
Poder: 25
poliburro Va por buen camino
Código SQL [-]
 
CREATE TRIGGER prueba BEFORE UPDATE ON td_persona
FOR EACH ROW
BEGIN
  DECLARE @maximo int(11);
  SET @maximo =(SELECT MAX(audi_id) FROM ts_auditoria);
  if(OLD.pers_rut <> :NEW.pers_rut)then
     begin
        INSERT INTO ts_auditoria 
        VALUES(@maximo,'255.255.255.0',(DATE_FORMAT(now(),'%Y/%m/%d')),'td_persona','pers_rut',:OLD.pers_rut,:NEW.pers_rut);
     end;
  if(:OLD.pers_dv <> :NEW.pers_dv)then
     begin
         INSERT INTO ts_auditoria 
         VALUES(@maximo,'255.255.255.0',(DATE_FORMAT(now(),'%Y/%m/%d')),'td_persona','pers_dv',:OLD.pers_dv,:NEW.pers_dv);
     end;
END;
__________________
Conoce mi blog http://www.edgartec.com
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
delphi no compila la base de datos ernestogiss Conexión con bases de datos 7 12-05-2007 20:06:52
Problema con .dcu, no lo encuentra y no compila... AFilth Varios 6 31-10-2005 16:44:52
OpenPrinter no compila. josemmerida Impresión 1 27-04-2005 12:28:09
Compila archivos externos a la aplicación oliverinf Varios 9 23-09-2004 15:17:15
No Compila todas las lineas DANIELMW Varios 3 09-02-2004 18:16:56


La franja horaria es GMT +2. Ahora son las 17:34:32.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi