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

متابعين

بتاريخ: 2 يونيو 201510 سنة

السلام عليكم

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

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

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

ممكن مساعدة

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

اقتباس

تقديم بلاغ

بتاريخ: 2 يونيو 201510 سنة

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

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;

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

اقتباس