السلام عليكم هذا الكود يقوم باستعادة النسخة الاحتياطية الى نظامك

 

لا تسنونا من الدعاء

declare
 v_direname  varchar2(255);
 v_filename  varchar2(255);
         A VARCHAR2(255);
        pp1 VARCHAR2(255);
         pp VARCHAR2(255);
 pp2 VARCHAR2(255);
begin
pp:=get_application_property(username);
pp1:=get_application_property(PASSWORD);
pp2  := Get_Application_Property(CONNECT_STRING); 
if pp2 is not null then pp2:='@'||pp2;end if;
/*if form_success then
set_alert_property('a1',alert_message_text,'E? ??? ???? C?E?C?CE');
if show_alert('a1')=alert_button1 then null;end if;*/
v_direname:='c:\';
  v_filename:=get_file_name(v_direname,NULL,'database files(*.DMP)|*.DMP|' ,'تاكد من النسخة الاحتياطية',OPEN_FILE,TRUE);
  if v_filename is not null then
set_alert_property('a1',alert_message_text,'سيتم حذف البيانات');
if show_alert('a1')=alert_button1 then
for I in (select 'DROP '||TABTYPE||' '||TNAME||' CASCADE CONSTRAINT' A from tab where TABTYPE='TABLE') loop
forms_ddl(I.A);
END LOOP;
for I in (select 'DROP '||TABTYPE||' '||TNAME||' ' A from tab where TABTYPE='VIEW') loop
forms_ddl(I.A);
end loop;
A:='IMP '||PP||'/'||PP1 ||pp2||' FILE='||v_filename|| ' FROMUSER='||pp||' TOUSER='||pp||' LOG=MYLOG.LOG';
--message(a);
       host(A);  
  end if;
end if;
--end if;
  end;

وعليكم السلام 

ياهلا فيك..

حل ممتااااز ياااا غاالي

وفكرة رااائعة ..

تسلم اخي المبرمج الصاعد

 

شكرا جزيلا