Using PL/SQL to retrieve column names and column values

Question

If I have a table as follows
Table A(
meal varchar2(32),
beverage varchar2(32),
desert varchar2(32));
and the table contains a row
meal beverage desert
pork chops iced tea apple crisp
Is there a way in pl/sql to retrieve the column names along with the values. I have an object type
DATA_DEFINITION_T AS OBJECT (
          "FIELD_NAME"          VARCHAR2(32),
          "FIELD_VALUE" VARCHAR2(32)
I need to store the column name in field_name and the column value in field_value.
So the result would be:
FIELD_NAME = meal
FIELD_VALUE = pork_chops
FIELD_NAME = beverage
FIELD_VALUE = iced tea
FIELD_NAME = desert
FIELD_VALUE = apple crisp
Thanks in advance.

Answer 1

Hi,
try this procedure ....just create it and give the table name..the object M_DATA_TAB has the required data
procedure l_fill_data_dict(p_table_name varchar2) is
connection_id EXEC_SQL.CONNTYPE;
bIsConnected BOOLEAN;
cursorID EXEC_SQL.CURSTYPE;
nIgn PLS_INTEGER;
m_val VARCHAR2(40);
m_col_name varchar2(40);
m_col_val varchar2(240);
m_cnt number;
m_id number := 0;
m_incr number := 0;
p_sqlstr varchar2(4000);
p_sql_cnt varchar2(4000) ;
p_org_sql varchar2(4000);
TYPE DATA_DEFINITION_TABS IS RECORD (
FIELD_NAME VARCHAR2(32),
FIELD_VALUE VARCHAR2(240));
TYPE DATA_DEFINITION_TAB IS TABLE OF DATA_DEFINITION_TABS;
M_DATA_TAB DATA_DEFINITION_TAB := DATA_DEFINITION_TAB();
--m_file text_io.file_type;
Begin
--     m_file := text_io.fopen('c:\eg.txt','w');
     --Set default connection
connection_id := EXEC_SQL.DEFAULT_CONNECTION;
bIsConnected := EXEC_SQL.IS_CONNECTED;
IF bIsConnected = FALSE THEN
     message('Connection Failed');
RETURN;
END IF;
--Find the total no.of columns in the given table
p_sql_cnt := 'Select COUNT(column_name) from user_tab_columns where table_name='''||p_table_name||''' order by column_id';
cursorID := EXEC_SQL.OPEN_CURSOR;
EXEC_SQL.PARSE(cursorID, p_sql_cnt, exec_sql.V7);
EXEC_SQL.DEFINE_COLUMN(cursorID, 1, m_val,40);
nIgn := EXEC_SQL.EXECUTE(cursorID);
IF (EXEC_SQL.FETCH_ROWS(cursorID) > 0) THEN
     EXEC_SQL.COLUMN_VALUE(cursorID, 1, m_val);
end if;
EXEC_SQL.CLOSE_CURSOR(cursorID);
--EXEC_SQL.CLOSE_CONNECTION;
m_cnt := m_val;---column count
---get the column names from the user_Tab_columns and fetch the values from the given table for that column...
For i in 1..m_cnt loop
     m_id := m_id+1;
p_sqlstr := 'Select column_name from user_tab_columns where table_name='''||p_table_name||''' and column_id ='||m_id||' order by column_id';
cursorID := EXEC_SQL.OPEN_CURSOR;
EXEC_SQL.PARSE(cursorID, p_sqlstr, exec_sql.V7);
EXEC_SQL.DEFINE_COLUMN(cursorID, 1, m_col_name,40);
nIgn := EXEC_SQL.EXECUTE(cursorID);
IF (EXEC_SQL.FETCH_ROWS(cursorID) > 0) THEN
     EXEC_SQL.COLUMN_VALUE(cursorID, 1, m_col_name);
end if;
EXEC_SQL.CLOSE_CURSOR(cursorID);
--fetch the column value from the given table
     p_org_sql := 'select DISTINCT '||m_col_name||' from '||p_table_name;
     cursorID := EXEC_SQL.OPEN_CURSOR;
EXEC_SQL.PARSE(cursorID, p_org_sql, exec_sql.V7);
EXEC_SQL.DEFINE_COLUMN(cursorID, 1, m_col_val,240);
     nIgn := EXEC_SQL.EXECUTE(cursorID);
     Loop      
     nIgn := EXEC_SQL.FETCH_ROWS(cursorID);
          IF (nIgn > 0) THEN
               EXEC_SQL.COLUMN_VALUE(connection_id, cursorID, 1, m_col_val);
M_DATA_TAB.extend();
               M_DATA_TAB(M_DATA_TAB.last).field_name := m_col_name;
               M_DATA_TAB(M_DATA_TAB.last).FIELD_VALUE := m_col_val;
               m_incr := m_incr+1;
               -- text_io.put_line(m_file,m_col_name||'##'||m_col_val);
          else
               exit;
          End if;
     End loop;--loop of records in the table for the given column
EXEC_SQL.CLOSE_CURSOR(cursorID);
End loop; ---loop of columns in the table
--text_io.fclose(m_file);
message('Total no. of items in the object='||m_incr);
EXEC_SQL.CLOSE_CONNECTION;
EXCEPTION
When EXEC_SQL.Invalid_Connection then
     message('invalid connection');
     when EXEC_SQL.Package_Error     then
     message('pkg err');
     when EXEC_SQL.Invalid_Column_Number          then
     message('invalid col num defined');
     when others then
          MESSAGE(SQLERRM);
End;
Regards
Dora
Edited by: Dora on Sep 27, 2009 3:13 PM