السلام عليكم و رحمة الله و بركاته
اخوتي الكرام
لقد قمت بعمل زرار حفظ بسيط مجرد أنه يوجد به alert واذا ضغط المستخدم نعم يقوم بالحفظ والكود هو:
declare
aa number;
begin
aa := Show_Alert('SAVE');
IF aa = ALERT_BUTTON1 THEN
commit_form;
end if;
end;
وهو يقوم بعملية الحفظ بنجاح
ولكن يوجد زرار للبحث لاسترجاع البيانات القديمة في حالة اذا ما أراد المستخدم عمل تعديلات في البيانات القديمة
بعد عمل التعديلات أضغط علي زرار حفظ لحفظ التعديلات يظهر ال alert ولكن لايقوم بحفظ التعديلات
أرجو سرعة الرد و جزاكم الله خيرا

please ,, Go to .. display error and fetch the error and put it in forum to know what is the problem

and my question is how do u return data in search button ( using execute query or a simple select statment ) ?

رقم الخطأ هو ora-00001 وهذا الخطأ بسبب ال index of primary key constraint
this is unique index
حاولت تعديله حتي يصبح non-unique لحل المشكلة و لكن تعذر ذلك
فأرجو أن يفيدني أحد كيف أجعل هذا الindex يصبح non-uniqe حتي يتم حل المشكلة
أرجو المساعدة وجزاكم الله خيرا

The Problem Come from the form making insert not update as u said before
unique error and the unique error come from insert process not update ..

please i want to know how we make search .. if we have cursor or a manual select to make search .. then this error is normal ... if we use execute query .. then this is ubnormal error ..

Please Tell us how this form work .

Thx .

زرار البحث يعتمد علي cursor

If u make a search using cursor then u must use a manual update statment in a save button ..
---------------------------------------------------------------------------------
if u use execute query statment then u can use commit;
---------------------------------------------------------------------------------
the solution is
----------------------------------
put in save button ( when button pressed ).
declare
begin
:system.message_level := 25;
update table
set x = :x,y = :y ..... where ( unique condition );
commit;
if form_success then
message('saving ok');
message('saving ok');
else
message('Error .. try again');
message('Error .. try again');
Raise form_trigger_failure;
end if;
end;

تم تعديل 12 أبريل 200719 سنة بواسطة oracle_itself

لقد قمت بعمل button لعمل update و قمت بكتابة جملة update بهذا الbutton مثل جملة التعديل الموضحة في الرد السابق و لكن المشكلة مازالت قائمة كما هي

السلام عليكم ..

السؤال هل الفورم مبني على جدول في قاعدة البيانات؟؟


لماذا استخدام الكرسر في البحث ؟؟


لماذا لا تستخدمي (ENTER_QUERY) و (EXECUTE_QUERY)

الواضح ان الكرسر يجلب البيانات الى الشاشة (عن طريق جملة SELECT ويضعها في الحقول التي على الشاشة).. وبعد

التعديل ومحاولة الحفظ يتم محاولة اضافة سجل جديد في الجدول ولكن ال(PRIMARY KEY) يمنع ذلك ...


فالحل هو الاستعلام باستخدام (ENTER_QUERY) و (EXECUTE_QUERY) ثم التعديل والحفظ ..


بالتوفيق..

أخي الكريم أنا أقوم باستخدام cursor في البحث لأن البيانات التي أقوم باسترجاعها في الtext items تكون من جدول آخرtable1 غير الtable2 datablock table لأن الغرض من هذه الفورم هو تخزين بيانات من table1 في table2 مع ادخال fields أخري غير موجودة في table1 أرجو أن يكون كلامي واضحا و أن يستطيع أحد افادتي في هذا الأمر في أقرب وقت ممكن

الاخت شيماء
اى نوع تعملين عليه forms9 or 10g

Iam working on forms 6i

اذا كان التعديل الذى تريدين عمله على tolbar من خلال بحث
فلابد اولا من عمل جملة التعديل بهذا الشكل

BEGIN
UPDATE ICU_ENTER SET
health_problem =:health_problem,
start_date =:start_date,
end_date=:end_date 
WHERE PATIENT_CODE=:PAT_COD
AND FINANCIAL_NUMBER=:FIN_NUM
AND PRO_SER=:PRO_SER;
commit;
clear_message;

END;

جملة البحث كانت من خلال هذا الامر

DECLARE
CURSOR GETEMP IS
SELECT health_problem,start_date,end_date,PRO_SER FROM icu_enter where patient_code =:pat_cod
and financial_number=:fin_num order by 4;
BEGIN
go_block('icu_enter');  
clear_block(no_commit); 
 FIRST_RECORD;
         OPEN GETEMP;
         LOOP 
           FETCH GETEMP INTO :health_problem,:start_date,:end_date,:PRO_SER;
           exit when getemp%notfound;
         NEXT_RECORD;
         END LOOP;
         CLOSE GETEMP;
                   END;

واعتقد انك تقومين بعمل بحث من خلال cursor
نفس الفكرة
وفقك الله
السلام عليكم ورحمة الله وبركاته

الcursor فعلا مكتوب بالطريقة الموضحة في الرد السابق ولقد قمت بعمل button وعليه تريجر به جملة update بنفس الطريقة التي قام الأخ أشرف بتوضيحها ولكن مازالت نفس المشكلة قائمة

please Ms.Shaimaa
can u put the form and the structure of tables that the form based on
to solve the problem .. or when u want to make it based on urself then .. u must resturcture the form based on exe query , and commit tools .

ok ?

اختى الكريمة لماذا لا يكون عملية جلب البيانات من table1 عن طريق انشاء Love وفى حالة الاضافة يتم استدعاء البيانات من table1 ثم حفظها فى table2 بودن مشاكل