ORDER BY clause in runtime

Question

Hi All,
I want to order my SELECT using "dynamic ORDER BY". I have a CURSOR (in my PL/SQL procedure) contains a select with ORDER BY clause. I have implemented two combobox in my form (the first contains the column name, the second contains ASC and DESC).I tried with the next:
1) Dynamic ORDER BY in CURSOR with combobox results. IT DOESN'T WORK.
2) Using a block property named "ORDER BY CLAUSE". Here I put, for example, :myBlock.comboColumnOrder. IT DOESN'T WORK.
3) Using a function: set_block_property(myBlock,order_by,:myBlock.comboColumnOrder) or set_block_property(myBlock,default_where,:myBlock.comboColumnOrder). IT DOESN'T WORK.
4) Using dynamic CURSOR: ORACLE FORMS give me an error that said: "...it can't to the CLIENT-SIDE".
I have thought my last solution, but it maybe cumbersome. I do a TEMPORARY TABLE, and my CURSOR insert in this TABLE, and then I'll fetch to my BLOCK.
Thanks a lot.
PS: My ORACLE Version is 10g.

Answer 1

PROCEDURE CHEQUEAR_V0 IS
     V_ORDEN VARCHAR2(50) := '' || :BLOCK_CHECK.ORDER_BY_NAME || ' ' || :BLOCK_CHECK.ORDER_BY_ASC_DES ;
CURSOR FILA_RESULTADO_TABLA IS
     SELECT Last_name,First_name,App_user, App_role, UserDB
     FROM adm_users
     WHERE
     ((Last_name IS NULL OR Last_name LIKE '%'||:BLOCK_CHECK.Last_name||'%') AND
     (First_name IS NULL OR First_name LIKE '%'||:BLOCK_CHECK.First_name||'%') AND
     (App_user IS NULL OR App_user LIKE '%'||:BLOCK_CHECK.App_user||'%') AND
     (App_role IS NULL OR App_role LIKE '%'||:BLOCK_CHECK.App_role||'%') AND
     (UserDB IS NULL OR UserDB LIKE '%'||:BLOCK_CHECK.User_DB||'%'))
ORDER BY V_ORDEN;
     V_Last_name VARCHAR2(50);
     V_First_name VARCHAR2(50);
     V_App_user VARCHAR2(50);
     V_App_role VARCHAR2(50) ;
     V_User_DB VARCHAR2(50);
     CONT NUMBER ;
BEGIN
     CONT := 1 ;
          GO_BLOCK('BLOCK_APPS_GRANTS');     
          CLEAR_BLOCK;
     SYNCHRONIZE;     
          OPEN FILA_RESULTADO_TABLA;
          LOOP
               FETCH FILA_RESULTADO_TABLA INTO V_Last_name,V_First_name,V_App_user,V_App_role,V_User_DB ;
          EXIT WHEN FILA_RESULTADO_TABLA%NOTFOUND;
                    :BLOCK_APPS_GRANTS.Last_name := V_Last_name ;           
                    :BLOCK_APPS_GRANTS.First_name := V_First_name ;                               
                    :BLOCK_APPS_GRANTS.App_user := V_App_user ;
                    :BLOCK_APPS_GRANTS.App_role := V_App_role ;
                    :BLOCK_APPS_GRANTS.User_DB := V_User_DB ;                                         
               NEXT_RECORD;
               CONT := CONT+1;          
          END LOOP;
          IF FILA_RESULTADO_TABLA%ISOPEN THEN
               CLOSE FILA_RESULTADO_TABLA;
          END IF;
          SET_BLOCK_PROPERTY('BLOCK_APPS_GRANTS', ORDER_BY, :BLOCK_CHECK.ORDER_BY_NAME || ' ' || :BLOCK_CHECK.ORDER_BY_ASC_DES);
          GO_BLOCK('BLOCK_APPS_GRANTS');
          EXECUTE_QUERY;
synchronize;
          exception when others then
               raise;
END;
Thanks a lot.
Edited by: user11285646 on 22-jul-2009 2:30