5.31.txt

来自「delphi renyuanguanlixinxioxitong」· 文本 代码 · 共 20 行

CREATE OR REPLACE FUNCTION get_user RETURN VARCHAR2 IS
  v_user VARCHAR2(100);
BEGIN
  SELECT username INTO v_user FROM user_users;
  RETURN(v_user);
END get_user;
/
prompt 使用变量接收函数返回值
var v1 varchar2(100)
exec :v1:=get_user
print v1

prompt 在SQL语句中直接调用函数
select get_user from dual;

prompt 使用包DBMS_OUTPUT调用函数
set serveroutput on
exec DBMS_OUTPUT.put_line('当前数据库用户：'||get_user)