根据关键字查询oracle中所有表的记录

数据库 同时被 2 个专栏收录
94 篇文章 1 订阅
18 篇文章 1 订阅

     由于业务需要,根据关键字,查询所有表中所有字段包含该关键字的记录数,方便系统维护中核查数据。直接上代码,同行指正。

CREATE OR REPLACE PROCEDURE PM_QUERY_KEY_WORD_INFO (
  V_KEY_WORD IN VARCHAR2 
) AS 
  -- SQL STRING
  V_SQL     VARCHAR2(4000);
  -- FIELD OF TABLE
  V_TB_COL  VARCHAR2(512);
  -- RECORD NUMBER
  V_CNT     NUMBER(18,0);
  
  CURSOR CUR_SQLS IS 
    SELECT 'SELECT ''' || X.TABLE_NAME || '.' || X.COLUMN_NAME || ''' AS COL_NAME, NVL(COUNT(' || X.COLUMN_NAME || '),0) AS CNT FROM ' || X.TABLE_NAME 
           || ' A WHERE A.' || X.COLUMN_NAME || ' LIKE ''%' || V_KEY_WORD || '%''' AS SQL_STR 
    FROM COLS X JOIN USER_OBJECTS Y ON X.TABLE_NAME = Y.OBJECT_NAME
    WHERE Y.TEMPORARY <> 'Y' AND OBJECT_TYPE = 'TABLE' 
          AND X.DATA_TYPE IN ('CHAR','VARCHAR2','VARCHAR') 
    ORDER BY X.TABLE_NAME,COLUMN_ID;
/**
  维护使用:传入关键字,查询所有表,返回表对应字段含有关键字的记录数。遇到已经删除的表跳过。
*/
BEGIN
  FOR CV_SQL IN CUR_SQLS LOOP
    V_SQL := CV_SQL.SQL_STR; -- 获取将要执行的SQL语句;
    BEGIN
      EXECUTE IMMEDIATE V_SQL INTO V_TB_COL, V_CNT;
      IF V_CNT > 0 THEN
        DBMS_OUTPUT.PUT_LINE('表:' || SUBSTR(V_TB_COL,1,INSTR(V_TB_COL,'.',1,1) - 1) || ' 列:' || SUBSTR(V_TB_COL,INSTR(V_TB_COL,'.',1,1) + 1) ||
                             ' 有 ' || TO_CHAR(V_CNT)|| ' 条记录含有字串"' || V_KEY_WORD || '" ');
      END IF;
    EXCEPTION WHEN OTHERS THEN
      DBMS_OUTPUT.PUT_LINE('=== 错误语句:===' || V_SQL);
    END;
  END LOOP;
END PM_QUERY_KEY_WORD_INFO;


  • 1
    点赞
  • 0
    评论
  • 1
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

©️2021 CSDN 皮肤主题: 代码科技 设计师:Amelia_0503 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值