declare 

 cursor c1 is select t.* ,sysdate ,t1_sequence.nextval,  m.code||t1_sequence.nextval from table1 t  , table2 m  

     where t.code = m.code

     and t.desc_name <> m.desc_name for update;

     v_row number := t1_sequence.nextval;

begin

  open c1;

 -- update t;

  loop 

                           fetch c1 into  t(v_row);

  exit when c1%notfound;

     v_row := t1__sequence.nextval;

  end loop;

  close c1;

  --first_record;

end;









error on line 10 06550 . about reference a cursor

انت فاتح الكرسور ومديله باراميتر وفى تعريفه مفيش باراميتر, وفين جملة الانسرت! وبتعمل FETCH INTO TABLE ازاى!

ثم ان الكرسور ملوش لزمة اصلا, تقدر تستخدم 

INSEERT INTO .....

SELECT ......

 

- اظنك بتعمل حاجة في الفورمز؟

تم تعديل 22 يونيو 20178 سنة بواسطة eslam elbyaly