GET_APPLICATION_PROPERTY(DATASOURCE) = 'ORACLE' DS 10gR1 vs. DS 10gR2

Question

I have a form that was compiled under 10gR1 DS and launches fine, but after compiling it under 10gR2 DS it is not responding in the same manner as 10gR1 to an if statement in the code checking to see if it is connected to an ORACLE database.
In the 10gR1 version of the form
The check to see if the form was connected to an oracle database would return false after EXIT_FORM(NO_VALIDATE);
And this is what was expected to happen with the 10gR2 version of the form.
But in the 10gR2 version of the form
After the EXIT_FORM(NO_VALIDATE); statement
the if GET_APPLICATION_PROPERTY(DATASOURCE) = 'ORACLE' statment returns a true and causes the form to break because its not connected to the database anymore but the code in this if statement contains sql against database tables
How come only for DS 10gR2 after the EXIT_FORM(NO_VALIDATE); statement
the get_application_property(DATASOURCE) = 'ORACLE' is true, Even though its not connected to the database anymore?
Thanks,
Michelle

Answer 1

HI...i have a similiar problem. we recently migration to 10g and still using oracle forms 6i. Problem is that i have a logon for which check the datasource to determine the status of the login user.
If the user, currently is expired or logged out, it should remeber a message otherwise if the datasource is not oracle then show unable to connect on log out.
On the form, there is a on_logon trigger..
if i do a show message, i can see that if the user is expired it will not pickup the datasource, instead it is null, logging out the user.
please have a look at the code below:
logon(:login.user_name,:login.password||'@'||:login.instance_name,false);
v_datasource := get_application_property(DATASOURCE);
if v_datasource = 'ORACLE' then
begin
select account_status
into v_status
from dba_users
where username = v_username;
if v_status like 'LOCKED%' then
v_message := 'This users account is locked - contact support';
end if;
if v_status like 'EXPIRED%' then
:global.user_name := v_username;
:global.new_password := 'N';
:global.old_password := v_password;
call_form('c_passmnt', hide, do_replace, no_query_only);
if :global.new_password = 'N' then
v_message := 'Password not changed - contact support';
else
:login.user_name := v_old_username;
:login.password := :global.new_password_new;
logout; SYNCHRONIZE;
logon(:login.user_name,:login.password||'@'||:login.instance_name,true);
end if;
end if;