مرحبا للجميع
الاخوة الاعزاء اود ان اقدم لكم هذه المشاركة المتواضعة :MESSAGE SENDING

Setup

===============================>SQL & PL-SQL DATA PASSING
====>step(1):

SQL> grant execute on dbms_pipe to scott;)

====>setp(2):

create or replace procedure SendMessage(info VARCHAR2)
is
s NUMBER;
begin
DBMS_PIPE.PACK_MESSAGE(info);
s := DBMS_PIPE.SEND_MESSAGE('pipe_name');
end;
/

====>step(3):

create or replace function ReceiveMessage
return VARCHAR2 is
n NUMBER;
chr VARCHAR2(200);
begin
n := DBMS_PIPE.RECEIVE_MESSAGE('pipe_name',5);

DBMS_PIPE.UNPACK_MESSAGE(chr);
return(chr);
end;
/

====>step(4):

SQL> execute SendMessage('Hello');

PL/SQL procedure successfully completed.

SQL> variable a varchar2(200);
SQL> execute :a := ReceiveMessage;

PL/SQL procedure successfully completed.

SQL> print a;

A
-----------------------
Hello

===============================>FORMS DATA PASSING

====>Step(1):

[ A FORM ]

1. DEPT Table Default Block Form
2. Create Button : WHEN-BUTTON-PRESSED Trigger

DECLARE
x VARCHAR2(200);
BEGIN
x := :DEPT.DNAME;
DBMS_PIPE.PURGE('pipe_name');
SendMessage(x);
END;


====>Step(2):

[ B FORM ]

1. PRE-QUERY TRIGGER

BEGIN
:DEPT.DNAME := ReceiveMessage;
END;

2. WHEN-BUTTON-PRESSED TRIGGER

execute_query;


=====================================================
تمنياتي لكم جميعا بالتوفيق
اخوكم : كامل أبو عليا - فلسطين

تم تعديل 5 يناير 200620 سنة بواسطة OraclePro

شكراً جزيلاً لك لاني كنت بأمس الحاجة لهذا الموضوع :

لكن يا ريت لو تزودنا بالمصادر الرئيسية لهذا الموضوع


وشكراً

اخى العزيز جزاك الله خير
بس ممكن تعرفنى لانى جديد ايش فائدة هذا اكود
وبارك الله فيك