السلام عليكم ..........
جاتنى فكرة انى اعمل مكتبة ادوات للتعامل مع انواع المختلفة من الملفات زى الاكسل والوورد وسى اس فى بس يكون كلة من الداتا بيس عشان اقدر استخدمها فى الفورمز وadf
انا بحثت على النت وبدأت بأول خطوة- ياريت اللى عندة معلومة تضيف للموضوع او افكار جديدة ياريت يشارك -
اجراء نبعتلة جملة السيليكت وهو يدينا الناتج فى ملف اكسل......
الملف المرفق بيشرح الاعدادات
بعد انشاء المكتبة المرفقة

BEGIN
as_xlsx.query2sheet ('select * from departments');
as_xlsx.save ('MY_DIR', 'my.xlsx');
END;

حيث MY_DIRهو المجلد الذى سوف يكون فية ملف الاكسل
MY.XLSXهو اسم الملف الناتج
طبعا يمكن تغيير اسم الملف واسم المجلد براحتك وحتى جملة السيليكت اكتبها زى ما انتا عايز بسيطة او معقدة حسب الحالة

extract data into excel sheet2.doc

مباردة حلوه بالعيد..
ومشااركة مميزه

جااري التحميل والتجربة..



موووفق يا مهندس...

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






كود لتحويل الداتا إلي ملف اكسل من الفورم

 





[left][b]WHEN-BUTTON-PRESSED [/b][/left]


[left][b]DECLARE[/b][/left]


[left][b]OUTFILE TEXT_IO.FILE_TYPE;[/b][/left]


[left][b]BEGIN[/b][/left]


[left][b]OUTFILE := TEXT_IO.FOPEN('D:\TEST.CSV','W');[/b][/left]


[left][b]TEXT_IO.PUT_LINE (OUTFILE,'EMPNO'||','||'ENAME'||','||'DEPTNO');[/b][/left]


[left][b]FOR R IN ( SELECT EMPNO,ENAME,DEPTNO 		  FROM EMP )[/b][/left]


[left][b]LOOP[/b][/left]


[left][b]TEXT_IO.PUT_LINE (OUTFILE,R.EMPNO||','||R.ENAME||','||R.DEPTNO);[/b][/left]


[left][b]END LOOP;[/b][/left]


[left][b]TEXT_IO.FCLOSE(OUTFILE);[/b][/left]


[left][b]END;[/b][/left]

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

رائع جدا