Save array data

Question

Hi all,
I need help to solve a problem like following.
I have a table 'results' with the columns
result_id number PK
method varchar2(200)
readout varchar2(60)
result number
Also I have built a page with an array (realized through text fields) like this one:
x1_1 x1_2
x2_1 x2_2
x3_1 x3_2
x100_1 x100_2
All elements in the array have the same method. In column readout the name of the array element has to be stored. The input of the text fields have to be stored in column result.
I think an example makes it more clearly
method = malinoe
x1_1 = 15 x1_2 = 9
x2_1 = 3 x2_2 = 7
x3_1 = 10 x3_2 = 11
x100_1 = 2 x100_2 = 3
After fill in the values into the text field array you have to click the Button 'SAVE' and all values have to be stored in the table results:
first row:
result_id = 1
method = malinoe
readout = x1_1
result = 15
second row:
result_id = 2
method = malinoe
readout = x1_2
result = 9
third row:
result_id = 3
method = malinoe
readout = x2_1
result = 3
last row:
result_id = 200
method = malinoe
readout = x100_2
result = 3
Has anybody an working example or idea how I can solve this problem?
Thanks for help,
ben
Message was edited by:
ben512

Answer 1

I think that here is the best approach htmldb_collection.
On load form fill the text items with data.
On save fill the collection elements and then iterating through them save them in table.
Here is QBE code for iteratiting through forms controls and if some control has name P||PAGE_ID_FIELD_NAME then this is ok control...Use just the logic of iteration through form items.
Here is example from my source code:
FUNCTION QBE (
        ln_page_id     NUMBER
      , ls_table    IN VARCHAR2
      , ls_select   IN VARCHAR2 DEFAULT NULL
      , ls_where    IN VARCHAR2 DEFAULT NULL
      , ls_order_by IN VARCHAR2 DEFAULT NULL
      , ln_search_type NUMBER   DEFAULT 3
      , ls_scope_mode  VARCHAR  DEFAULT 'U' 
          ) RETURN VARCHAR2
   AS  
     wrong_search_type EXCEPTION;
     wrong_date_field EXCEPTION;                
     wrong_scope_mode EXCEPTION;
    ls_sql       VARCHAR2 (32567 CHAR);
    lb_need_and  BOOLEAN := FALSE;
    lb_has_where BOOLEAN := FALSE;
    ls_field_name VARCHAR2 (128);
    lb_process_current_field BOOLEAN;
    lb_is_date_field BOOLEAN;
    -- lb_is_date_time_field BOOLEAN;
    lb_is_number_field BOOLEAN;
    lb_is_LOV BOOLEAN;
    lb_is_date_from BOOLEAN;
    c_collection VARCHAR2(32 CHAR) := 'DATE_USED_FROM'; 
   BEGIN
     HTMLDB_COLLECTION.CREATE_OR_TRUNCATE_COLLECTION (c_collection);
     IF ls_scope_mode NOT IN ('U','A') THEN
       RAISE wrong_scope_mode;
     END IF;
      -- Create SELECT part of SQL Statement
      IF (ls_select IS NOT NULL) THEN
        ls_sql := ls_select;
      ELSE
        ls_sql := 'SELECT *';
      END IF;
      -- Create WHERE part of SQL Statement
      IF (ls_where IS NOT NULL) THEN
        ls_sql := ls_sql || ' from ' || ls_table || ' ' || ls_where || ' and ';
      ELSE
        ls_sql := ls_sql || ' from ' || ls_table || ' where ';
      END IF;
      -- Loop through each column in the table specified in ls_table and see if there is a corresponding
      --   HTML DB page item on the page specified in ln_page_id
      FOR x IN (SELECT column_name, data_type FROM USER_TAB_COLUMNS WHERE table_name = UPPER(ls_table) AND ls_scope_mode = 'U'
                UNION 
                SELECT column_name, data_type FROM ALL_TAB_COLUMNS WHERE table_name = UPPER(ls_table) AND ls_scope_mode = 'A') LOOP
        lb_is_date_field := FALSE;
        lb_is_number_field := FALSE;   
        --lb_is_date_time_field := FALSE;
        ls_field_name := 'P' || ln_page_id || '_' || x.column_name;
        <<PLAY_IT_AGAIN_SAM>>
        IF x.data_type = 'DATE' THEN
          lb_is_date_field := TRUE;
          ls_field_name := 'P' || ln_page_id || '_' || x.column_name|| '_FROM';
          lb_process_current_field := TRUE;
          lb_is_date_from := TRUE;
          FOR j IN (SELECT c001 FROM htmldb_collections WHERE collection_name = c_collection) LOOP
            IF j.C001 = ls_field_name THEN
              lb_process_current_field := FALSE;
              EXIT;
            END IF;
          END LOOP;
          IF lb_process_current_field THEN
             HTMLDB_COLLECTION.ADD_MEMBER (p_collection_name => c_collection
                                         , p_c001            => ls_field_name
                                         , p_generate_md5    => 'NO');
          ELSE
            ls_field_name := 'P' || ln_page_id || '_' || x.column_name|| '_TO';
            lb_process_current_field := TRUE;
            lb_is_date_from := FALSE;
                 FOR j IN (SELECT c001 FROM htmldb_collections WHERE collection_name = c_collection) LOOP
                   IF j.C001 = ls_field_name THEN
                     lb_process_current_field := FALSE;
                     EXIT;
                   END IF;
                 END LOOP;
             IF lb_process_current_field THEN
                HTMLDB_COLLECTION.ADD_MEMBER (p_collection_name => c_collection
                                            , p_c001            => ls_field_name
                                            , p_generate_md5    => 'NO');
             END IF;
          END IF;
          lb_process_current_field := V(ls_field_name) IS NOT NULL;
        ELSIF IS_NUMBER (V(ls_field_name) ) THEN
          lb_process_current_field := (V(ls_field_name) != -100);
          lb_is_number_field := TRUE;
        ELSE -- ovo je za sve ostale!
          lb_process_current_field := (V(ls_field_name) IS NOT NULL) AND NOT (V(ls_field_name) IN ('-100','%null%','null'));
        END IF;
        IF lb_process_current_field THEN
           .... then do your work....Of course you must obey naming convention - what I can see you have done that so your control name is like:
x1_1 xi_2.
Hope this helps