How to add the delete statement in this procedure.

Question

I got a string from user e.g. ‘1,2,3’ and userid =14 from user;
I wrote a procedure that will insert the record as follows;
Userid newsletterid
14     1
14 2
14 3
The procedure is
CREATE OR REPLACE PROCEDURE usersubscription_procd (vuserid in number, vnewsletterid IN VARCHAR2)
AS
I NUMBER;
J NUMBER;
VAL VARCHAR2(100);
BEGIN
     I := 1;
     J := 1;
     WHILE INSTR(vnewsletterid,',',I) != 0 LOOP
     VAL := SUBSTR(vnewsletterid,I,INSTR(vnewsletterid,',',I)-J);
     I := INSTR(vnewsletterid,',',I)+1;
     J := I;
     INSERT INTO usersubscription (usersubcriptionid,userid,newsletterid)
     VALUES (usersubscription_seq.nextval,vuserid,VAL);
     END LOOP;
     VAL := SUBSTR(vnewsletterid,I,LENGTH(vnewsletterid));
     INSERT INTO usersubscription (usersubcriptionid,userid,newsletterid)
     VALUES (usersubscription_seq.nextval,vuserid,VAL);
END;
Now one requirement is that
When next string comes like ‘1,4’ for same user
Then I want to delete the 2 and 3 and insert the 4 .
Please tell me solution.

Answer 1

Hi,
Try to delete all record from ther current user :
CREATE OR REPLACE PROCEDURE usersubscription_procd (vuserid in number, vnewsletterid IN VARCHAR2)
AS
I NUMBER;
J NUMBER;
VAL VARCHAR2(100);
BEGIN
     begin
          delete usersubscription where userid = vuserid;
     exception when others then null;
     end;
     I := 1;
     J := 1;
     WHILE INSTR(vnewsletterid,',',I) != 0 LOOP
          VAL := SUBSTR(vnewsletterid,I,INSTR(vnewsletterid,',',I)-J);
          I := INSTR(vnewsletterid,',',I)+1;
          J := I;
          INSERT INTO usersubscription (usersubcriptionid,userid,newsletterid)
          VALUES (usersubscription_seq.nextval,vuserid,VAL);
     END LOOP;
     VAL := SUBSTR(vnewsletterid,I,LENGTH(vnewsletterid));
     INSERT INTO usersubscription (usersubcriptionid,userid,newsletterid)
     VALUES (usersubscription_seq.nextval,vuserid,VAL);
END;
/Nicolas.