Ver Mensaje Individual
  #10  
Antiguo 16-03-2004
Avatar de guillotmarc
guillotmarc guillotmarc is offline
Miembro
 
Registrado: may 2003
Ubicación: Huelva
Posts: 2.638
Reputación: 23
guillotmarc Va por buen camino
Hola.

Entonces haz un procedimiento almacenado de este estilo (es una traducción casi exacta del código Delphi del primer ejemplo) :

Código:
GRUPO = -1;
for select CAMPO1, CAMPO2 
     from TABLA 
     into :CAMPO1, :CAMPO2 do begin

  if (:CAMPO1 = :GRUPO) then begin
    delete from TABLA where CAMPO1 = :CAMPO1 and CAMPO2 = :CAMPO2;
  end
  else begin
    GRUPO = CAMPO1;
  end
end
Como puedes ver, tienes que declarar 3 variables : CAMPO1, CAMPO2 y GRUPO.

Te recomiendo IB-Expert para crear y ejecutar el procedimiento almacenado, así como para Administrar Firebird en general.

http://www.hksoftware.net/download/i...3.1.1_full.exe

Saludos.
__________________
Marc Guillot (Hi ha 10 tipus de persones, els que saben binari i els que no).
Responder Con Cita