Using a Dynamic cursor

Question

Hi,
I have a problem with this code :
DECLARE
     v_Column_Name           all_tab_columns.column_name%TYPE;      -- variable for TABLE_SQL
     v_data_type           all_tab_columns.data_type%TYPE;      -- variable for CHPS_SQL
     v_Table_Name           user_tables.table_name%type;
     lc$results     VARCHAR2(32767) := null;
     lc$Champ     VARCHAR2(32767) := null;
     lc$Requete     VARCHAR2(32767) := null;
     CURSOR C1 IS
          SELECT table_name FROM user_tables;
BEGIN
     OPEN C1;
     LOOP
          FETCH C1 INTO V_Table_name;
          EXIT WHEN C1%NOTFOUND;
          DECLARE
               CURSOR C2 IS
                    select column_name, data_type from all_tab_columns where table_name = V_TABLE_NAME;
          BEGIN
               lc$results := 'INSERT INTO ' || v_table_name || '(';
               lc$requete := 'SELECT ' ;
               lc$Champ := NULL;
               OPEN C2;
               LOOP
                    FETCH C2 INTO V_column_name, V_data_type;
                    EXIT WHEN C2%NOTFOUND;
                    if lc$Champ IS NOT NULL then
                         lc$Champ := lc$champ || ',' || v_column_name;
                         lc$requete := lc$requete || ',' || '''''''''' || ',' || v_column_name || ',' || '''''''''';
                    else
                         lc$champ := lc$champ || v_column_name;
                         lc$requete := lc$requete || '''''''''' || ',' || v_column_name || ',' || '''''''''';
                    end if;
               END LOOP;
               CLOSE C2;
               lc$results := lc$results || lc$champ || ') VALUES (';
               lc$requete := lc$requete || ' FROM ' || v_table_name;
-- MY PROBLEM BEGIN HERE
               DECLARE
*                    TYPE EmpCurTyp IS REF CURSOR;*
*                    C3     EmpCurTyp;*
*               BEGIN*
*                    OPEN C3 FOR lc$requete;*
*                    lc$champ := NULL;*
*                    LOOP*
*                         FETCH C3 INTO lc$champ ;*
*                         Exit when C3%NOTFOUND ;*
*                         lc$champ := lc$results || lc$champ || ')';*
*                         dbms_output.put_line(lc$champ);*
*                    END LOOP;*
*                    CLOSE C3;*
*               END;*
          END;
     END LOOP;
     CLOSE C1;
END;          
the error code is : ORA-00932: inconsistent datatypes: expected - got -
Need help please,
Thank

Answer 1

904907 wrote:
How can I use the dbms_SQL for this code?99% of the time this indicates design issues. You are trying to write "one-size-fits-all" code which by definition will have substantial overhead. Other than that, in general, you need to declare a variable for each data type possibly returned by dynamic SQL. Then use DBMS_SQL.DESCRIBE_COLUMNS to get data types of select list expressions. Fetch a row and then loop from 1 to number of select list expressions where loop body is one giant IF to test select list expression datatype and issue corresponding DBMS_SQL.COLUMN_VALUE into proper data type variable.
SY.