ال Cursor والبرمجه ؟

السلام عليكم ورحمة الله

بارك الله فيك يا ابو عبدالآله

[M-l]***** SQL CURSOR *****[/M]

ذكرنا ان هناك نوعان من CURSOR :

1- Implicit Cursors

2- Explicit Cursors

تكلمنا عن النوع الأول وقلنا انه خاص بلأوراكل سيرفر اي انه يقوم باالوظائف من تلقاء نفسه دون تدخل من المبرمج. نستعرض اليوم امثله عن النوع الأول ومن امثلة تلك الوظائف :

* [F=Red]SQL%ROWCOUNT[/F]

للسؤال عن عدد الصفوف

* [F=Red]SQL%FOUND [/F]

لأرجاع قيمة TRUE في حالة انه وجد صف او اكثر

* [F=Red]SQL%NOTFOUND[/F]

لأرجاع قيمة TRUE في حالة انه لم يجد اي صف

* [F=Red]SQL%ISOPEN[/F]

للسؤال عن حالة الـ CURSOR ودائما تأخذ قيمة FALSE لأن الـ CURSOR يقفل فورا بعد الأنتهاء من المهمه ... (Implicit) . نأخذ الآن مثال لذلك :

 VARIABLE  rows_deleted  VARCHAR2(30)   متغير خارجي
DECLARE
     v_ordid    NUMBER :=605;
BEGIN
     DELETE FROM  item 
     WHERE    ordid = v_ordid;
      :rows_deleted := (SQL%ROWCOUNT || ' rows deleted.');
END;
/       التنفيذ

PRINT  rows_deleted           للطباعه على الشاشه

ماذا حصل الذي حصل انه قام بعد الصفوف التي مسحت ومن ثم قمنا بإظهارها على الشاشه مثل ( like this =( 20 rows deleted

والآن يجب ان تعرف ان تلك الوظائف تستطيع ان تستخدمها مع الأوامر الأخرى مثل أمر if ..الخ اليك هذا المثال : لو اردت ان تجمع رواتب جميع الموظفين وإعطائها للموظف عن طريق رقمه الوظيفي :

DECLARE 
     v_sum_sal          number;
BEGIN
     SELECT sum(sal) INTO v_sum_sal  FROM emp
      WHERE deptno=10;
UPDATE emp
     SET sal=v_sum_sal
WHERE empno=& empno;
IF SQL%FOUND 
DBMS_OUTPUT.PUT_LINE
تضع هنا الرساله
ELSE
تضع هنا ماتريد

عندما يجد الموظف تكون القيمه TRUE ويطبع الرساله الأولى واذا لم يجد الموظف تكون القيمه FALSE ويطبع الرساله الثانيه .

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

انا قبل كذه كنت ضائع

والحمدالله مع المثال فهمتها بشكل ممتاز