PLS-00103：尝试使用序列递增值时遇到符号 DECLARE/EOF

如何解决PLS-00103：尝试使用序列递增值时遇到符号 DECLARE/EOF

我正在开发一个过程，该过程将声明一个变量，从一个递增的过程中获取值，然后将该值与其他参数一起插入到表中。我以为我已经解决了所有问题，但后来我遇到了 pls-00103：遇到符号“DECLARE”和遇到符号“文件结尾”。我觉得我很接近，所以任何帮助将不胜感激！谢谢！

create or replace procedure Order_Create(date_order string,cust_id char,total float,employ_id number)
is
DECLARE NewKey;
BEGIN
NewKey := order_auto_inc.nextval;
UPDATE Progressive_Keys set Order_Limit = NewKey;
insert into ORDERS VALUES (Progressive_Keys.Order_Limit,to_date(date_order,'yyyy-mm-dd'),cust_id,total,employ_id);
commit;
END;

解决方法

删除存储过程中不需要的 declare（如 documented in the manual）。

变量 declaration 需要一种数据类型。

因为参数 order_date 应该是一个日期，所以应该用那个类型声明。

您无法在使用表 order_limit 的语句之外访问列 progressive_keys，因此您还需要在插入语句中使用该变量。

始终在 INSERT 语句中列出目标列也是一种很好的编码习惯（请注意，我刚刚为 orders 表发明了一些列名，您必须调整它们以反映表中的真实名称）

create or replace procedure Order_Create(date_order date,cust_id varchar,total float,employ_id number)
is
  NewKey number;
BEGIN
  NewKey := order_auto_inc.nextval;
  UPDATE Progressive_Keys set Order_Limit = NewKey;
  insert into ORDERS (some_key,order_date,customer_id,total,employee_id)
  VALUES (newkey,date_order,cust_id,employ_id);
  commit;
END;

UPDATE 看起来有点奇怪，因为它会更新 thable progressive_keys 中的所有行，而不仅仅是一行。