create or replace procedure p_GetItemID( strInsertSQL varchar2, seqName varchar2, ID out varchar2 ) is strSql varchar(200); begin execute immediate strInsertSQL;--執行插入語句 strSql:='select '||seqName||'.currval from dual';--獲取id的sql語句 execute immediate strSql into ID;--執行獲取id的sql語句 EXCEPTION WHEN OTHERS THEN DBMS_output.PUT_LINE(SQLERRM); end p_GetItemID;