根据值反查数据库表及列

 

create or replace procedure visit_table(p_var varchar) as
p_table user_all_tables.table_name%type;
cursor p_data is (select t.table_name from user_all_tables t);

type p_col is ref cursor; 
p_c1 p_col; 

type p_a is ref cursor; 
p_aa p_a; 

p_name varchar2(1000);
p_type varchar2(100);
p_sql varchar2(1000);
p_result number;
begin
    open p_data;
    loop
        fetch p_data into p_table;
        exit when p_data%notfound;
        p_sql := 'select * from ' || p_table;
        open p_c1 for 'select t.COLUMN_NAME,t.DATA_TYPE from user_tab_columns t where t.TABLE_NAME =:1'
        using p_table;
        loop
            fetch p_c1 into p_name,p_type;
            exit when p_c1%notfound;
            if(p_type <> 'BLOB') then
                      p_sql := 'select count(*) a from ' || p_table || ' where to_char('||p_name ||')=:1';
                      --dbms_output.put_line(p_sql);
                      execute immediate p_sql into p_result using p_var;
                      if(p_result >0) then
                                  dbms_output.put_line('table: '|| p_table || '  columns: ' || p_name);
                      end if;
                      --returning into p_result;
            end if;
        end loop;
        close p_c1;
    end loop;
    close p_data;
end;

dd