انشاء حقل محسوب

1- Create Table :

Create Table XX
(
   A	Number(20)
)
/
Insert Into XX Values(100);
Insert Into XX Values(200);
Insert Into XX Values(300);
Commit;

2- Create Types :

Create Or Replace Type O Is Object(A  Number(20));
/
Create Or Replace Type T Is Table Of O;
/

3- Create the function return table :

Create Or Replace Function Get_XX Return T
As
	Cursor Cur Is Select A From XX;
	P_XX   T := T();
	ID_Sum	Number;
	ID_Field   Number;
Begin
	Open Cur;
	Fetch Cur Into ID_Field;
	While Cur%Found
	Loop
		ID_Sum := ID_Sum + ID_Field;
		P_XX.ExtEnd;
		P_XX(P_XX.Count) := ID_Sum;
		Fetch Cur Into ID_Field;
	End Loop;
	Close Cur;

	Return P_XX;
End;
/

4- Get the records table :

Select * From Table(Get_XX);

نفرض أن لدينا جدول يدعي Emp ، به أكثر من سجل ، وبه حقل الراتب Emp_Salary ، كما أنه يحتوي علي حقل الـ PK مرقم ترقيم تلقائي Emp_ID يمكننا فعل ذلك كما يلي :

Create Table Emp
(
  Emp_ID	  Number(20),
  Emp_Name VarChar2(50),
  Emp_Salary Number(10,3),
  Constraint PK_EMP Primary Key(Emp_ID)
)
/
Insert Into Emp Values(1,'Ahmed',100);
Insert Into Emp Values(2,'Usif',200);
Insert Into Emp Values(3,'Sara',300);
Commit;

يتم إجراء إستعلام علية كما يلي :

Select E1.Emp_ID,E1.Emp_Name,E1.Emp_Salary,
		 (Select Sum(E2.Emp_Salary) From Emp E2 Where E2.Emp_ID <= E1.Emp_ID) As Emp_Sum_Salarys
From Emp E1
Order By Emp_ID

وهذا نفس الكود السابق مع إجراء ترقيم للسجلات :

Select RowNum,(Select Sum(E2.Emp_Salary) From Emp E2 Where E2.Emp_ID <= E1.Emp_ID) As Emp_Sum_Salarys
From Emp E1
Order By Emp_ID

شكراً

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

على سبيل المثال جدول الموظفين

:EMP.V_X := :EMP.SAL + :EMP.COMM ;

العمولة + الراتب = المتغير