ORACLE 用sys.dbms_sql执行SQL例-CSDN博客

本文链接：https://blog.csdn.net/delphi1234/article/details/74008867

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

下面实例用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;