PLSQL dbms_output.put_line() 在接受用户输入时不起作用

Question

在我的 PL/SQL 代码中，我必须在控制台上打印一些行，然后我必须从用户那里做出选择，但在我的情况下，它永远不会在控制台上打印任何内容并直接等待用户输入。

这是我的代码：

declare
cust_id Customer.cust_id%type;
cust_name Customer.name%type;
cust_purchase Customer.total_purchase%type;
cust_category varchar2(30);
input int := 1;

cursor cursor_customer is select * from Customer;

begin

dbms_output.put_line('Which one you want to use?');
dbms_output.put_line('1. PROCEDURE');
dbms_output.put_line('2. FUNCTION');

input := &t;

open cursor_customer;
loop
fetch cursor_customer into cust_id, cust_name, cust_purchase;
    exit when cursor_customer%notfound;
    if (input = 1) then
        proc_grade(cust_id,cust_name,cust_purchase,cust_category);
    elsif (input = 2) then
        cust_category := func_grade(cust_id,cust_name,cust_purchase);
    end if;
    dbms_output.put_line('Category is added for the client id '|| cust_id || ' is ' || cust_category);

end loop;

close cursor_customer;

end;
/

在开始我写了三个 dbms_output.put_line() 语句，但是这些语句并没有直接执行它等待用户输入。

这是运行代码后的输出

输入 t 的值：

但是，当我删除接受输入“input := &t;”的语句时，所有输出语句都会起作用。

请谁能告诉我哪里错了。

Answer 1

在整个过程完成之前，您不会看到 DBMS_OUTPUT 的结果；它不像你想象的那样“互动”。

因此，请在调用 PL/SQL 过程之前询问使用他们想要做什么，并将选择作为参数传递。

---

acc.sql文件：

accept par_deptno number prompt "Enter department number: "

set serveroutput on
set ver off
declare
  l_cnt number;
begin
  select count(*)
    into l_cnt
    from emp 
    where deptno = &par_deptno;

  dbms_output.put_line('There are ' || l_cnt || ' employees in that department');
end;
/

执行：

SQL> @acc
Enter department number: 10
There are 3 employees in that department

PL/SQL procedure successfully completed.

SQL>