Mega Code Archive

 

Categories / Oracle PLSQL Tutorial / System Packages

 

Build query form with HTP

SQL> SQL> CREATE OR REPLACE PROCEDURE query_form   2     (p_table_txt IN VARCHAR2) IS   3     CURSOR cur_cols IS   4     SELECT column_name   5     FROM   user_tab_columns   6     WHERE  table_name = UPPER(p_table_txt);   7  BEGIN   8     HTP.HTMLOPEN;   9     HTP.HEADOPEN;  10     HTP.HTITLE('Query the ' || p_table_txt || ' table!');  11     HTP.HEADCLOSE;  12     HTP.BODYOPEN;  13     HTP.FORMOPEN(OWA_UTIL.GET_OWA_SERVICE_PATH||'do_query');  14     HTP.FORMHIDDEN('p_table_txt', p_table_txt);  15     HTP.FORMHIDDEN('COLS', 'dummy');  16     FOR cur_cols_rec IN cur_cols LOOP  17        HTP.FORMCHECKBOX('COLS', cur_cols_rec.column_name);  18        HTP.PRINT(cur_cols_rec.column_name);  19        HTP.NL;  20     END LOOP;  21     HTP.FORMSUBMIT(NULL, 'Execute Query');  22     HTP.FORMCLOSE;  23     HTP.BODYCLOSE;  24     HTP.HTMLCLOSE;  25  END query_form;  26  / Procedure created.