5.48.txt

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

CREATE OR REPLACE PROCEDURE grant_sys_priv(priv VARCHAR2,username VARCHAR2)
IS sql_stat VARCHAR2(100);
BEGIN
  sql_stat:=' grant '||priv||' to '||username;
EXECUTE IMMEDIATE sql_stat;
END;