Exec_sql.open_connection

Question

I am building a client form (this is supposed to be a preliminary of what an ORACLE web app will look like...)
I use EXEC_SQL.OPEN_CONNECTION to connect to database.
( I also do an EXEC_SQL.OPEN_CURSOR and EXEC_SQL.PARSE and EXEC_SQL.DEFINE_COLUMN and EXEC_SQL.EXECUTE and EXEC_SQL.FETCH_ROWS ... yada ... yada ... yada to verify that there is a database connection.
Then I call another form. The called form generates the exception that says/indicates that there is not a connection to the database.
Right now it looks as though the EXEC_SQL results stay local to the block from where it is generated. I can force the application to work by redoing all of the EXEC_SQL stuff for each form-item trigger. There has to be a better way; I just cant find it in the documentation.
(It seems rather silly to initiate 10 connections just to satisfy a couple of form triggers associated with one record.)
How do I make the connection_id stuff available to everything in a forms module? (I tried assigning the connection ID to a global value, but globals dont like conntypes. )
Thanks in advance.
Len

Answer 1

King i checked your coding there is no connection problem actually error is generating to the following line,
Sqlstr := 'CREATE USER '||'sajid'||' IDENTIFIED BY '||'123';
EXEC_SQL.PARSE(connection_id, cursorID, sqlstr, exec_sql.V7);
so when i rem two lines and just define grant to existing user that running successfully, but i am still checking your code probably it will resolve.
Declare
Connection_id EXEC_SQL.CONNTYPE;
CursorID EXEC_SQL.CURSTYPE;
SqlStr VARCHAR2(2000);
Loc_EName VARCHAR2(30);
Loc_Eno NUMBER;
Loc_Hiredate DATE;
NIgn PLS_INTEGER;
Begin
--Connection_id := EXEC_SQL.OPEN_CONNECTION('SYSTEM','ORACLE','SYSDBA');
Connection_id := EXEC_SQL.OPEN_CONNECTION('SYSTEM','ORACLE','orcl');
--Connection_id := EXEC_SQL.OPEN_CONNECTION('SYSTEM/ORACLE@ORCL');
CursorID := EXEC_SQL.OPEN_CURSOR(connection_id);
Sqlstr := 'CREATE USER '||'sajid'||' IDENTIFIED BY '||'123';
EXEC_SQL.PARSE(connection_id, cursorID, sqlstr, exec_sql.V7);
NIgn := EXEC_SQL.EXECUTE(connection_id, cursorID);
Sqlstr := 'GRANT CONNECT TO '||:BLK_NVS_USERS_ALL.USR_NAME;
EXEC_SQL.PARSE(connection_id, cursorID, sqlstr, exec_sql.V7);
NIgn := EXEC_SQL.EXECUTE(connection_id, cursorID);
End;