1

经过长时间的研究，我决定我不知道是什么导致了以下问题！我想创建一个存储过程，如果满足语句，它将增加列的值。我可以将该过程作为匿名块运行，但我不能将它作为存储过程运行！

这是存储过程代码：

1 create or replace
2 Procedure RaiseSalary
3 Is
4 Salary number;
5 Cursor RaiseCursor
6 Is
7 Select Salary_A From Person Where Salary_A<400 for update of Salary_A;
8 Begin 
9 Open RaiseCursor;
10    Loop
11 Fetch RaiseCursor Into Salary;
12    Exit When RaiseCursor%Notfound;
13 Update Person Set Salary_A=(Salary + 200) Where Current Of RaiseCursor;
14    End Loop;
15 Close RaiseCursor;
16 Commit;
17 End;

我在第 3 行收到一个错误，上面写着“在预期以下情况之一时遇到符号“SALARY”：....”，我在第 5 行的 Cursor 单词的“s”字母处遇到同样的错误，但此时它说“;” 而不是“工资”。编译器日志显示“权限不足”，但我找不到对此的合理解释。我试图将代码作为匿名块运行，如下所示：

 Declare
 Salary number;
 Cursor RaiseCursor
 Is
  Select Salary_A From Person Where Salary_A<400 for update of Salary_A;
  Begin
  Open RaiseCursor;
    Loop
  Fetch RaiseCursorInto Salary ;
    Exit When RaiseCursor%Notfound;
  Update Person Set Salary_A =(Salary + 200) Where Current Of RaiseCursor;
    End Loop;
  Close RaiseCursor;
  Commit;
  End;
  .
  run;

而且效果很好！！！我确信我有编写存储过程的权限，因为我已经成功创建了一些！
我做错了什么吗？我无法弄清楚导致问题的原因，如果您有任何建议，我将不胜感激:)

编辑：由于某种原因，我的程序出错了架构，这就是我遇到这个问题的原因！我只删除了程序并再次创建它并修复了！！！！无论如何感谢您的时间！

4

1 回答 1

6

让我指出，如果你这样做会更有效率：

UPDATE Person Set Salary_A=(Salary_A + 200)
 Where Salary_A<400

没有光标，没有循环。也会简单很多。

于 2012-04-07T14:13:42.933 回答