ما الخطا فى هذا الكود

[محمد سعيد]

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

[h_elshawaf]

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

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

[محمد سعيد]

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

[dubainet]

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

ضع 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

[dubainet]

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

60356[/snapback]

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

[محمد سعيد]

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

[dubainet]

هذا الكود الجديد ..
التغيير هو مكان اعطاء المتغيرات 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;

[محمد سعيد]

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