مساعدة هامة : إنشاء زر في الفورمة لعمل Back Up للسكيما الحالية

[ahmedmohamedali]

السلام عليكم 

 

أريد إنشاء زر و تحته كود HOST يعمل تصدير لقاعدة البيانات الي انا شغال عليها 

و عاوز اول ما ادوس عليه يصدر لي الملف dmp

في PATH معين و بجانبه تاريخ اليوم

 

ممكن مساعدة

تم تعديل 2 يونيو 2015 بواسطة ahmedmohamedali

[jamal_rrkk]

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

DECLARE
USER_NAME 
 VARCHAR2(30);
PASS_WORD  VARCHAR2(30); 

CONN_STRG   
VARCHAR2(30);
BEGIN
USER_NAME := 
GET_APPLICATION_PROPERTY(USERNAME);   
PASS_WORD := 
GET_APPLICATION_PROPERTY(PASSWORD);
CONN_STRG := 
GET_APPLICATION_PROPERTY(CONNECT_STRING);
IF  USER_NAME = 'ADMINISTRATOR' 
THEN
Host('EXP 
'||USER_NAME||'/'||PASS_WORD||'@'||CONN_STRG||'  '||'FILE='||getpath||'copydata\'||USER_NAME||to_char(sysdate,'DD-MM-YYYY')||'.DMP'||'  
'||'OWNER='||USER_NAME||'   '||'LOG='||getpath||'copydata\'||USER_NAME||to_char(sysdate,'DD-MM-YYYY')||'.TXT');
END IF;
END 
;

 

كود يرجع بامتداد الشاشة

 

 

 
FUNCTION getpath RETURN VARCHAR2 
IS
path VARCHAR2(255) := 
Get_Application_Property(CURRENT_FORM);
slash    PLS_INTEGER;
BEGIN
slash := instr(path,'\',-1) 
;
Return(substr(path,1,slash));
END;

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

[abderrahmane82]

السلام عليكم

شكر خاص للاخ jamal_rrkk  على اضافته الطيبة الممتازة

بناءا عليه انشأت هذا الفورم الموجود في المرفق.

تحياتي.

 

 

   

[abderrahmane82]

السلام عليكم

شكر خاص للاخ jamal_rrkk  على اضافته الطيبة الممتازة

بناءا عليه انشأت هذا الفورم الموجود في المرفق.

تحياتي.

EXP_DATA.rar

[ahmedmohamedali]

شكراً جداً يا بش مهندس جعله الله في ميزان حسناتك

[yousef mohamed]

الملف معمول 6i مفيش حاجة 10g 

[homran]

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