ORACLE 用sys.dbms_sql执行SQL例

最新推荐文章于 2021-08-23 17:29:38 发布

原创最新推荐文章于 2021-08-23 17:29:38 发布 · 1.4k 阅读

0 ·

CC 4.0 BY-SA版权

Oracle 专栏收录该内容

11 篇文章

订阅专栏

本文提供了一个示例，展示如何在Oracle中利用sys.dbms_sql包执行包含SELECT语句的SQL，根据需求选择返回结果的方式，可以是SELECT结果或FUNCTION调用返回值。

下面实例用sys.dbms_sql执行SQL例，可以选择SELECT 返回值也可选择FUNCTION调用返回值，具体运用要视实际情况做修改。

function GetSqlResult(

data_sql_ in varchar2) return varchar2
is
sDataSql varchar2(2000);
sReturn varchar2(200);
cid_ number;
rows_ number;
stmt_ varchar2(2000);
begin

sDataSql := data_sql_;

if instr(sDataSql,'[SELECT]') > 0 then --调用SELECT 返回

sDataSql := replace(sDataSql,'[SELECT]','');
cid_ := dbms_sql.open_cursor;
dbms_sql.parse(cid_, sDataSql, dbms_sql.native);
sys.dbms_sql.define_column(cid_, 1, sReturn,200);
rows_ := sys.dbms_sql.execute(cid_);
if (dbms_sql.fetch_rows(cid_) > 0) then
sys.dbms_sql.column_value(cid_, 1, sReturn);
end if;

sys.dbms_sql.close_cursor(cid_);

elsif instr(sDataSql,'[FUN]') > 0 then --调用function返回值
sDataSql := replace(sDataSql,'[FUN]','');
if instr(upper(sDataSql),'BEGIN ') <= 0 and instr(sDataSql,';') <= 0 then
sDataSql := 'BEGIN '||sDataSql|| '; END;';
elsif instr(upper(sDataSql),'BEGIN ') <= 0 then
sDataSql := 'BEGIN '||sDataSql|| ' END;';
end if;
execute immediate sDataSql using out sReturn;
else
sReturn := substrb(data_sql_,1,100);
end if;
return sReturn;
exception
when others then
if dbms_sql.is_open(cid_) then
dbms_sql.close_cursor(cid_);
end if;
return 'ERROR';
end GetSqlResult;