我要执行功能，但失败了你能帮助我吗？

如何解决我要执行功能，但失败了你能帮助我吗？

我有一个功能：

CREATE OR REPLACE FUNCTION GET_NEXT_SEQ (string code1) RETURN NUMBER 
BEGIN
    DECLARE seq_date DATE ;
    DECLARE seq_no number(8,0) ;
    DECLARE next_seq number(8,0);

    seq_date = SELECT SEQ_DATE FROM PARAM_SEQ ps WHERE SEQ_CODE = code1;
    seq_no = SELECT SEQ_NO FROM PARAM_SEQ ps WHERE SEQ_CODE = code1;

    IF seq_date = TO_DATE(sysdate,'YYYY-MM-DD HH24:MI:SS')
        BEGIN
            next_seq := seq_no + 1;
        END

        IF seq_date <> TO_DATE(sysdate,'YYYY-MM-DD HH24:MI:SS')
            BEGIN 
                next_seq := 1;
            END

            UPDATE PARAM_SEQ
            SET SEQ_DATE = TO_DATE(sysdate,'YYYY-MM-DD HH24:MI:SS'),SEQ_NO = next_seq
            WHERE SEQ_CODE = code1;

            RETURN next_seq;
END

但是我不能执行该功能。我这样称呼它：

BEGIN  
    DECLARE c NUMBER(8,0);  
    c := GET_NEXT_SEQ ('SI_TELEX_NO');  
    dbms_output.put_line('SI_TELEX_NO: ' || c);  
END;

解决方法

您的函数包含很多错误：

• 您不能在对象创建中使用声明。声明适用于匿名阻止。
• 您不需要格式化sysdate。已经是约会了。但是，由于日期存储为数据包，因此您可能应该重新考虑使用to_char比较字符串。尚不清楚您要比较什么。
• 如果要将它们用作select语句的一部分，则不能在DML内部函数中执行。
• 我不知道您是否只想在seq_date与sysdate不同时更新
• string在Oracle中通常不用作输入参数的数据类型。

无论如何，一个例子可能是

CREATE OR REPLACE FUNCTION GET_NEXT_SEQ (code1 in varchar2) RETURN NUMBER 
is
seq_date date ; 
seq_no   number(8,0) ; 
next_seq number(8,0);
begin
    SELECT SEQ_DATE,SEQ_NO into seq_date,seq_no FROM PARAM_SEQ ps WHERE SEQ_CODE = code1; 
IF seq_date = sysdate 
then 
    next_seq := seq_no + 1; 
elsif seq_date <> sysdate
then 
    next_seq := 1; 
    UPDATE PARAM_SEQ SET SEQ_DATE = sysdate,SEQ_NO = next_seq WHERE SEQ_CODE = code1;
end if;
RETURN next_seq; 
END;
/