Declare V_ename varchar2(30);
Begin
Select ename into v_ename From EmpASLI;
DBMS_output.put_line('Data Retrieval Completed');
Exception
When Too_Many_Rows then
DBMS_output.put_line(' There are many Rows ');
INSERT INTO MY_ERRORS
VALUES(SYSDATE,SQLCODE,SQLERRM);
END;
/
SELECT * FROM MY_ERRORS;

Declare V_ename varchar2(30); 
Begin 
Select ename into v_ename From EmpASLI; 
DBMS_output.put_line('Data Retrieval Completed'); 
Exception 
When Too_Many_Rows then 
DBMS_output.put_line(' There are many Rows ');
INSERT INTO MY_ERRORS
VALUES(SYSDATE,SQLCODE,SQLERRM);
END;
/
SELECT * FROM MY_ERRORS;

السلام عليكم
انا اسف ان الكود تكرر هو الكود نهايته END
بدون جملة SELECT والمشكلة هى انه يرفض عمل INSERT

السلام عليكم يا أخى

لأنه بالفعل جملة select رجعت أكتر من row
وبكده انت بتعمل insert لأكتر من row فى نفس الجملة .
جملة insert بتدخل row by row

السلام عليكم اخ الشواف
انا اعلم ان جملة الselect هتعمل error والمقصود هنا ان ال error يتم عمل insert له فى جدول my_errors

السلام عليكم ..

ضع sqlerrm و sqlcode في متغيرات .. ومن ثم ضع هذه المتغيرات في جملة Insert لجدول الاخطاء ..

مثال:

Declare
      V_col2 varchar2(30);
      v_sqlerrm varchar2(100):= sqlerrm;
      v_sqlcode varchar2(40):= sqlerrm;
Begin
     Select col2 into v_col2 From gt_tab1;
     DBMS_output.put_line('Data Retrieval Completed');

Exception
     When Too_Many_Rows then
     DBMS_output.put_line(' There are many Rows ');
     INSERT INTO gt_ERRORS VALUES (SYSDATE, v_SQLCODE, v_SQLERRM);

END;

انشالله يشتغل معاك

جزاكم الله خيرااااااااا

السلام عليكم
الكود يعمل تمام لكن بيعمل INSERT لرقم 0صفر ليس لرقم الERROR

السلام عليكم
الكود يعمل تمام لكن بيعمل INSERT لرقم 0صفر ليس لرقم الERROR

60356[/snapback]

لم استخدم الـ sqlcode من قبل ..
فما هو الرقم المتوقع ان يظهره بدل الصفر ؟

السلم عليكم
الرقم المتوقع هورقم الحطا)sql code
والنص هو نص رسالة الخطأ sqlerrm

هذا الكود الجديد ..
التغيير هو مكان اعطاء المتغيرات v_sqlerrm و v_sqlcode قيم الخطأ ورقمه .. فتم وضعه في الـ exception

جربه الان

Declare
      V_col2 varchar2(30);
      v_sqlerrm varchar2(100);
      v_sqlcode varchar2(40);
Begin
     Select col2 into v_col2 From gt_tab1;
     DBMS_output.put_line('Data Retrieval Completed');
Exception
     When Too_Many_Rows then
     DBMS_output.put_line(' There are many Rows ');
     v_sqlerrm := sqlerrm;
     v_sqlcode := sqlcode;
     INSERT INTO gt_ERRORS VALUES (SYSDATE, v_SQLCODE, v_SQLERRM);
END;

الكود شغال تمام جزاكم الله خيرا