[英]Oracle Dynamic PL/SQL from table
嘗試運行一些動態sql來檢查驗證。 這些驗證將作為某種模式進行檢查,並存儲在表中。
DECLARE
in_table_name VARCHAR2(30) := 'TEST_TABLE';
l_table_record VARCHAR2(30) := in_table_name || '_r';
l_table_table VARCHAR2(30) := in_table_name || '_t';
l_table_list VARCHAR2(30) := in_table_name || '_l';
TYPE validation_cols_r IS RECORD (COLUMN_NAME COLUMNS_TO_VALIDATE.COLUMN_NAME%TYPE,
VALIDATION_TYPE COLUMNS_TO_VALIDATE.VALIDATION_TYPE%TYPE,
CUSTOM_SQL COLUMNS_TO_VALIDATE.CUSTOM_SQL%TYPE
);
TYPE validation_cols_t IS TABLE OF validation_cols_r;
l_validation_columns validation_cols_t;
l_first NUMBER := 0; -- Simple boolean flag, always set when using, assume value changes if leaving current block
l_build_select VARCHAR2(4000) := 'SELECT';
l_build_record VARCHAR(4000) := 'TYPE ' || l_table_record || ' IS RECORD (';
l_build_table VARCHAR2(4000) := 'TYPE ' || l_table_table || ' IS TABLE OF ' || l_table_record;
l_build_list VARCHAR2(4000) := l_table_list || ' ' || l_table_table;
l_build_main VARCHAR2(4000);
BEGIN
SELECT COLUMN_NAME, VALIDATION_TYPE, CUSTOM_SQL
BULK COLLECT INTO l_validation_columns
FROM COLUMNS_TO_VALIDATE
WHERE TABLE_NAME = in_table_name
;
-- Generate the SELECT statement to get all the records
l_first := 1;
FOR indx IN 1 .. l_validation_columns.COUNT
LOOP
IF (l_first = 1) THEN
l_build_select := l_build_select || ' ' || l_validation_columns(indx).COLUMN_NAME;
l_build_record := l_build_record || l_validation_columns(indx).COLUMN_NAME || ' ' || in_table_name || '.' || l_validation_columns(indx).COLUMN_NAME || '%TYPE';
l_first := 0;
ELSE
l_build_select := l_build_select || ', ' || l_validation_columns(indx).COLUMN_NAME;
l_build_record := l_build_record || ', ' || l_validation_columns(indx).COLUMN_NAME || ' ' || in_table_name || '.' || l_validation_columns(indx).COLUMN_NAME || '%TYPE';
END IF;
END LOOP;
l_build_select := l_build_select || ' BULK COLLECT INTO ' || l_table_list || ' FROM ' || in_table_name;
l_build_record := l_build_record || ')';
FOR vt IN 1 .. l_validation_columns.COUNT
LOOP
l_build_main :=
'
DECLARE
' || l_build_record || ';
' || l_build_table || ';
' || l_build_list || ';
BEGIN
' || l_build_select || ';
DBMS_OUTPUT.PUT_LINE(''Count: '' || ' || l_table_list || '.COUNT);
FOR rec IN 1 .. ' || l_table_list || '.COUNT
LOOP
DBMS_OUTPUT.PUT_LINE(''' || l_validation_columns(vt).COLUMN_NAME || ': '' || ' || l_table_list || '(rec).' || l_validation_columns(vt).COLUMN_NAME || ');
CASE ''' || l_validation_columns(vt).VALIDATION_TYPE || '''
WHEN ''RANGE'' THEN
IF (' || l_table_list || '(rec).' || l_validation_columns(vt).COLUMN_NAME || ' NOT BETWEEN ' || l_validation_columns(vt).CUSTOM_SQL || ')
THEN
DBMS_OUTPUT.PUT_LINE(''Fails range validation'');
END IF;
ELSE
DBMS_OUTPUT.PUT_LINE(''No type of validation'');
END CASE;
END LOOP;
END;
';
EXECUTE IMMEDIATE l_build_main;
-- DBMS_OUTPUT.PUT_LINE(l_build_main);
END LOOP;
END;
產生錯誤:
錯誤報告-ORA-06550:第16行,第47列:PLS-00103:在預期以下情況之一時遇到符號“)”:在成員子多集之間的like like2 like4 likec中ORA-06550:第26行,第4列:PLS- 00103:在預期以下情況之一時遇到符號“文件結束”: 符號“;” 被替換為“文件結束”以繼續。 ORA-06512:位於81 06550行。00000-“%s行,%s列:\\ n%s” *原因:通常是PL / SQL編譯錯誤。 *行動:
當我使用DBMS_OUTPUT輸出動態sql,然后手動運行它時,它可以正常工作。
DECLARE
TYPE TEST_TABLE_r IS RECORD (EMAIL TEST_TABLE.EMAIL%TYPE, GENDER TEST_TABLE.GENDER%TYPE, NAME TEST_TABLE.NAME%TYPE, PID TEST_TABLE.PID%TYPE);
TYPE TEST_TABLE_t IS TABLE OF TEST_TABLE_r;
TEST_TABLE_l TEST_TABLE_t;
BEGIN
SELECT EMAIL, GENDER, NAME, PID BULK COLLECT INTO TEST_TABLE_l FROM TEST_TABLE;
DBMS_OUTPUT.PUT_LINE('Count: ' || TEST_TABLE_l.COUNT);
FOR rec IN 1 .. TEST_TABLE_l.COUNT
LOOP
DBMS_OUTPUT.PUT_LINE('PID: ' || TEST_TABLE_l(rec).PID);
CASE 'RANGE'
WHEN 'RANGE' THEN
IF (TEST_TABLE_l(rec).PID NOT BETWEEN 0 AND 699)
THEN
DBMS_OUTPUT.PUT_LINE('Fails range validation');
END IF;
ELSE
DBMS_OUTPUT.PUT_LINE('No type of validation');
END CASE;
END LOOP;
END;
問題似乎是線
IF('|| l_table_list ||'(rec)。'|| l_validation_columns(vt).COLUMN_NAME ||'NOT'|| l_validation_columns(vt).CUSTOM_SQL ||')
正確地成為
IF(TEST_TABLE_l(rec).PID不在0和699之間)
我不確定在執行時表中的值是否被正確轉換或者是什么。 直接插入“ 0 AND 699”時,它可以正常工作。
任何見解都會有所幫助,謝謝。
我認為這不是明智的做法。 動態SQL有不同級別。
如果您在設計時就知道列的類型,那么我建議使用這樣的RefCursor:
declare
cur SYS_REFCURSOR;
a VARCHAR2(100);
b VARCHAR2(100);
c INTEGER;
begin
OPEN cur FOR
'SELECT EMAIL, NAME, PID FROM TEST_TABLE'; -- or any other dynamic string
LOOP
FETCH cur INTO a, b, c;
EXIT WHEN cur%NOTFOUND;
-- do something with a,b,c
END LOOP;
CLOSE cur;
END;
當然,您也可以使用BULK FETCH。
如果您在設計時不知道列類型,則只需要很少的代碼。 檢查以下答案: 如何動態創建具有表數據類型的變量?
問題是在構建動態sql時
l_validation_columns(VT).CUSTOM_SQL
偶爾為空。 這導致那條線看起來像
IF (TEST_TABLE_l(rec).PID NOT BETWEEN )
這顯然是格式不正確的pl / sql。
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.