المطلوب نقل الموظفين الموجودين فى الدرجة الوظيفية الثانية الى الدرجة الثالثة ثم نقلهم جميعا الى الادارة الخالية من الموظفين وذللك فى كود واحد

update emp set grade=3 where grade=2;


بس الجزء الثاني من السؤال مو فاهمو

احب اوضح للجميع انها لا يمكن ان تحل الا بكود pl
وبالنسبة للجزء الثانةى من السؤال فالمطلوب فيه نقل الوظفين الاى فى الدرجة الثالثة كلهم (الى انتا حدثتهم وكمان اللى كانوا اساسا فى الدرجة الثاثة)
الى الدارة الخالىة من الموظفين والى رقمها اربعين

وشكرا على المشاركة وارجوك تفكر فيها تانى جوه procedure

thanks

mohamed ana 3arft el 7al sahl gadn
na3aml two cursor

two cursor

begin update employees
set grade=2
where grade=3;
update employees
set department=40
where grade=2;
end;

mesh 3aref ana fehemt elli enta 3ayzo say walla la2

تم تعديل 18 أغسطس 200817 سنة بواسطة wahba87

المطلوب نقل الموظفين الموجودين فى الدرجة الوظيفية الثانية الى الدرجة الثالثة ثم نقلهم جميعا الى الادارة الخالية من الموظفين وذللك فى كود واحد

Create Or Replace Procedure Move_Grade(In_From Number, In_To Number)
As
 Function Get_Dep_Free(In_Dep_ID  Number)  Return Number
 As
 P  Number;
 Begin
 Select Min(Dep_ID) 
 Into P
 From Dep Left Join Emp On Dep.Dep_ID = Emp.Emp_DepID 
 Having Count(Dep_ID) = 0;
 If(P = 0)Then
	  P := In_Dep_ID;
 End If;
 Return P;
 End;
Begin
 Update Emp Set Emp_GradeID = In_To,
		  Emp_DepID = Get_Dep_Free(Emp_DepID)
 Where Emp_GradeID = In_From;
End;
/

بالتوفيق