我可以在 oracle pl/sql developer 中使用此代码吗

Posted 2023-03-27

【中文标题】我可以在 oracle pl/sql developer 中使用此代码吗

【英文标题】：Can I use this code in oracle pl/sql developer

【发布时间】：2020-04-11 14:41:05

【问题描述】：

我正在 PL/SQL 开发人员中尝试此代码，但它没有执行任何操作。如何使用此代码来查找列值包含特定值的所有表？

declare
    num_rows number;
    sql_text varchar2(250);
    sql_info varchar2(100);
begin
    dbms_output.enable(1000000);
    for x in (select table_name, column_name from all_tab_columns
               where data_type in ('VARCHAR','VARCHAR2','CHAR')
                 and owner='SYSTEM')
    loop
         sql_text:='select count(*) into :num_rows from SYSTEM.'||x.table_name||' where '||x.column_name||' like ''%10305698%''';
         -- dbms_output.put_line (sql_text);
         execute immediate sql_text into num_rows;
         if num_rows>0 
         then 
              sql_info:='Table: '||x.table_name||' contains the string';
              dbms_output.put_line (sql_info);
         end if;
    end loop;
end;
/

【问题讨论】：

你有SET SERVEROUTPUT ON 吗？

您的代码对我来说很好用。您的用户是否有权查看 SYSTEM 表？也许 ALL_TAB_COLUMNS 查询没有为您返回任何内容。

对了，data_type in ('VARCHAR','VARCHAR2','CHAR')可以简化为data_type like '%CHAR%'。

另外，PL/SQL Developer 不是 Oracle 产品。

【参考方案1】：

下面的演示是给Search for a VALUE in all COLUMNS of all TABLES in an entire SCHEMA:

搜索

CHARACTER 类型

让我们在SCOTT 架构中查找值KING。

SQL> variable val varchar2(10)
SQL> exec :val := 'KING'

PL/SQL procedure successfully completed.

SQL> SELECT DISTINCT SUBSTR (:val, 1, 11) "Searchword",
  2    SUBSTR (table_name, 1, 14) "Table",
  3    SUBSTR (column_name, 1, 14) "Column"
  4  FROM cols,
  5    TABLE (xmlsequence (dbms_xmlgen.getxmltype ('select '
  6    || column_name
  7    || ' from '
  8    || table_name
  9    || ' where upper('
 10    || column_name
 11    || ') like upper(''%'
 12    || :val
 13    || '%'')' ).extract ('ROWSET/ROW/*') ) ) t
 14  ORDER BY "Table"
 15  /

Searchword  Table          Column
----------- -------------- --------------
KING        EMP            ENAME

SQL>

搜索

NUMERIC 类型

让我们在SCOTT 架构中查找值20。

SQL> variable val NUMBER
SQL> exec :val := 20

PL/SQL procedure successfully completed.

SQL> SELECT DISTINCT SUBSTR (:val, 1, 11) "Searchword",
  2    SUBSTR (table_name, 1, 14) "Table",
  3    SUBSTR (column_name, 1, 14) "Column"
  4  FROM cols,
  5    TABLE (xmlsequence (dbms_xmlgen.getxmltype ('select '
  6    || column_name
  7    || ' from '
  8    || table_name
  9    || ' where upper('
 10    || column_name
 11    || ') like upper(''%'
 12    || :val
 13    || '%'')' ).extract ('ROWSET/ROW/*') ) ) t
 14  ORDER BY "Table"
 15  /

Searchword  Table          Column
----------- -------------- --------------
20          DEPT           DEPTNO
20          EMP            DEPTNO
20          EMP            HIREDATE
20          SALGRADE       HISAL
20          SALGRADE       LOSAL

SQL>

【讨论】：

你的编译器是什么？

我在 SQL*Plus 上展示的演示，它也可以在 SQL Developer 和 PL/SQL Developer 上运行。

@Jahon PL/SQL 编译器在数据库中。

您的代码运行的是 PL/SQL Developer 但结果未显示

也许 cols 视图没有为您返回任何结果。