Citation :
create procedure supdoublon()
begin
declare ipa char (20);
declare ipb char (20);
declare refa int (5);
declare refb int (5);
declare sitea char (100);
declare siteb char (100);
declare cursa cursor for select ref,site,ip from proxy;
declare cursb cursor for select ref,site,ip from proxy;
open cursa;
open cursb;
fetch cursa into refa,sitea,ipa;
while refa <>" " do
while refb<>" " do
fetch cursb into refb,siteb,ipb;
if refa <> refb then
if ipa=ipa then
if sitea=siteb then
delete from proxy where ref=refb;
end if;
end if;
end if;
end while
fetch cursa into refa,ipa,sitea;
end while;
close cursa;
close cursb;
end //
|