إنتقال للمحتوى

  • تسجيل الدخول عبر الفيس بوك تسجيل الدخول عبر تويتر Log In with LinkedIn Log In with Google      تسجيل دخول    
  • إنشاء حساب

صورة
- - - - -

مساعده في كود بي ال


لا توجد ردود على هذا الموضوع

#1 mido_develper

mido_develper

    عضو نشط

  • الأعضــاء
  • 236 مشاركة

تاريخ المشاركة 10 August 2008 - 02:41 AM

Example (pu_04_08)

CREATE OR REPLACE PACKAGE emp_package IS
TYPE emp_table_type IS TABLE OF employees%ROWTYPE
INDEX BY BINARY_INTEGER;
emp_table emp_table_type;
PROCEDURE read_emp_table
(p_emp_table OUT emp_table_type);
END emp_package;
/

CREATE OR REPLACE PACKAGE BODY emp_package IS
PROCEDURE read_emp_table
(p_emp_table OUT emp_table_type) IS
i BINARY_INTEGER := 1;
BEGIN FOR emp_record IN (SELECT * FROM employees)LOOP p_emp_table(i) := emp_record;
i:= i+1;
END LOOP;
END read_emp_table;
END emp_package;
/








ممكن حد يشرحلي الكود ده بيعمل ايه