由于業務需要，根據關鍵字，查詢所有表中所有字段包含該關鍵字的記錄數，方便系統維護中核查數據。直接上代碼，同行指正。

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;

總結

以上是生活随笔為你收集整理的Oracle搜索所有表查找关键字,根据关键字查询oracle中所有表的记录的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。