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
  #6  
Antiguo 11-11-2010
Avatar de BlueSteel
[BlueSteel] BlueSteel is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Concepción - Chile
Posts: 2.310
Poder: 26
BlueSteel Va por buen camino
Aqui te dejo el ejemplo
Código SQL [-]
Create TRIGGER [Producto_Update]
   ON  [dbo].[Producto]
   FOR Update
AS 
BEGIN
    SET NOCOUNT ON;

    -- Sentencia que cuenta cuantos registros se eliminaran..
    -- Si son más de uno.. da error
/*    if ((Select Count(*) From Deleted) > 1) 
    Begin
         RaisError(' Quiere Eliminar mas de uno',16,1)
         Rollback Transaction 
    End
    
    -- Sentencia que verifica que el dato no este en otra tabla
    -- de lo contrario no elimina...
    if Exists(Select 1 From DVenta
              Where DVenta.Pro_Codigo in
                    (Select Deleted.Pro_Codigo From Deleted))
    Begin
         RaisError(' No se puede eliminar',16,1)
         Rollback Transaction 
    End


    if Exists(Select 1 From Venta, DVenta, updated
              Where Venta.Vta_Numero = DVenta.Vta_Numero
                And DVenta.Pro_Codigo = Updated.Pro_Codigo)
    Begin
         RaisError(' Existe',16,1)
         Rollback Transaction 
    End
*/
   -- Declaración de Cursores
    
    Declare @Codigo Int,
            @Descripcion Varchar(10)

    Declare  Cur_Prueba Cursor
    For Select Pro_Codigo, Pro_Detalle For Update

    Open Cur_Prueba

    Fetch Next From Cur_Prueba Into @Codigo, @Descripcion

    While @@Fetch_Status = 0
    Begin
         /*
         */
         Fetch Next From Cur_Prueba Into @Codigo, @Descripcion
    End

    Close Cur_Prueba
    DealLocate Cur_Prueba    
    
END

bueno, esto es un ejemplo que vi en un curso de SQL.... aunque aqui utiliza el Update... tendrias que cambiar por Delete....

Salu2
__________________
BlueSteel
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
DBLookupComboBoxs Master/Detail o Detail/Master yusnerqui OOP 5 29-07-2005 18:40:20
eliminar en cascada con intebase squenda Firebird e Interbase 1 06-08-2004 08:26:36
master/detail, imprimiendo master en cada hoja acalderonr Impresión 4 29-11-2003 14:46:07
interbase:¿como crear un master-detail-detail? ElSanto24 Firebird e Interbase 2 22-10-2003 10:24:45
Master/Detail/Detail/Detail/etc... hgiacobone Tablas planas 2 24-07-2003 17:20:31


La franja horaria es GMT +2. Ahora son las 06:58:55.


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