| database backup problem on 10G [message #584772] |
Fri, 17 May 2013 10:04  |
nmd_group
Messages: 21
Registered: February 2012
Location: Dhaka,Bangladesh
|
Junior Member |
|
|
at first i run the following script as sysdba to maintain character set
-----------------------------------------------------------------------
SHUTDOWN IMMEDIATE;
STARTUP MOUNT;
ALTER SYSTEM ENABLE RESTRICTED SESSION;
ALTER SYSTEM SET JOB_QUEUE_PROCESSES=0;
ALTER SYSTEM SET AQ_TM_PROCESSES=0;
ALTER DATABASE OPEN;
ALTER DATABASE CHARACTER SET INTERNAL_USE WE8ISO8859P1;
SHUTDOWN IMMEDIATE;
STARTUP;
----------------------------------------
then i connect ot my schema and import my database.
while backup using a Form it gives 'Internal Error Data Can Not Exported'. (Button code as below)
if i don't run the above script then no problem ,But i need do run the above script to maintain character set,what to do.
---------------------------------------------------------------------
declare
n number;
f varchar2(50);
us varchar2(50);
ps varchar2(50);
con varchar2(50);
u varchar2(50);
out_file Text_IO.File_Type;
begin
if :control.path is not null and :control.user is not null then
set_application_property(cursor_style,'BUSY');
f:=:control.path;
u:=:control.user;
us:=get_application_property(USERNAME);
ps:=get_application_property(PASSWORD);
con:=get_application_property(CONNECT_STRING);
out_file := Text_IO.Fopen('c:\rab1.txt', 'w');
Text_IO.Put(out_file,'USERID='||us||'/'||ps||'@'||con);
Text_IO.New_Line(out_file);
Text_IO.Put(out_file, 'FILE='||f||'.dmp');
Text_IO.New_Line(out_file);
Text_IO.Put(out_file, 'OWNER='||u);
Text_IO.Put('Processing ends...');
Text_IO.Fclose(OUT_FILE);
host('exp parfile=c:\rab1.txt',no_screen);
if form_success then
set_application_property(cursor_style,'DEFAULT');
set_alert_property('advice',alert_message_text,'Data Successfully Exported');
n:=show_alert('advice');
:CONTROL.PATH:=NULL;
:CONTROL.USER:=NULL;
GO_ITEM('CONTROL.exit');
else
set_application_property(cursor_style,'DEFAULT');
message('Internal Error Data Can Not Exported');
GO_ITEM('CONTROL.PATH');
raise form_trigger_failure;
end if;
else
set_alert_property('advice',alert_message_text,'Please Fillup All Fields');
n:=show_alert('advice');
raise form_trigger_failure;
end if;
end;
-
Attachment: export.fmb
(Size: 64.00KB, Downloaded 2103 times)
|
|
|
|
|
|
|
|
|
|
|
|
] 
Blog
Search
Help
Members
Register
Login
Home
