通用的Oracle查询验证功能

Question

我有一个只包含ID和特定的模式描述几个表，我不知道是否有可能写一个通用的函数，它会读这样的：

create or replace FUNCTION tab_lookup (key_field char,key_value char,from_table char,return_field char) RETURN char IS 
a varchar2(1000); 
BEGIN 

select &return_field into a 
from &from_table 
where &key_field=key_value; 
return(a); 
exception 
    when others 
    then 
    return('*ERR*'); 
END; 

我想在只有50个用户将使用的内部应用程序中使用它。

Answer 1

修改您的版本，通过使用Dynamic SQL改变它，改变了输入参数的数据类型为VARCHAR2

CREATE OR REPLACE FUNCTION tab_lookup (key_field VARCHAR2, 
             key_value VARCHAR2, 
             from_table VARCHAR2, 
             return_field VARCHAR2, 
             return_type VARCHAR2) 
RETURN VARCHAR2 IS 
result_a varchar2(1000); 
query_string VARCHAR2(4000); 
/*version 0.1*/ 
BEGIN 

    query_string := 'SELECT '||return_field|| 
        'FROM '||from_table|| 
        'WHERE '||key_field || ' = :key_value '; 

    IF(return_type = 'SQL') THEN 
    result_a := query_string; 
    ELSE 

     //this line will not work in forms 6i remove the using key_value word 
     EXECUTE IMMEDIATE query_string USING key_value into result_a; 
    END IF; 

    RETURN (result_a); 
EXCEPTION 

// add DBMS_ASSERT Exceptions 
WHEN 
    NO_DATA_FOUND THEN 
     RETURN(NULL); 
WHEN 
    TOO_MANY_ROWS THEN 
     RETURN('**ERR_DUPLICATE**'); 
WHEN OTHERS 
THEN 
     RETURN('*ERR_'||SQLERRM); 
END;