当我选择 [关闭] 时，我在正文包 pl/sql 中遇到问题

Posted 2023-03-27

【中文标题】当我选择 [关闭] 时，我在正文包 pl/sql 中遇到问题

【英文标题】：i have a issue in body package pl/sql when I select [closed]

【发布时间】：2019-08-15 22:01:48

【问题描述】：

我目前有一个存储在包中的过程。我想从客户端表中获取所有数据，但出现错误。问题出在过程存储的 p_listar_cliente 中。

代码是：

创建表并插入

create table cliente (id NUMBER, name VARCHAR(50), address VARCHAR(50), salary NUMBER);

INSERT INTO cliente VALUES (1, 'camilo chaparro', 'popayan', 563321);
INSERT INTO cliente VALUES (2, 'ernesto lopez', 'ibague', 768954);
INSERT INTO cliente VALUES (3, 'camila españa', 'medellin', 113456);
INSERT INTO cliente VALUES (4, 'john jimenez', 'pasta', 789456);
INSERT INTO cliente VALUES (5, 'silvio jimenez', 'cali', 456123);

创建包：

CREATE OR REPLACE PACKAGE paquete_cliente_listar IS
--add clientes
  PROCEDURE p_agregar_clientes (
                                    c_id IN cliente.id%TYPE,
                                    c_name IN cliente.name%TYPE,
                                    c_address IN cliente.address%TYPE,
                                    c_salary IN cliente.salary%TYPE
                                    );

--delete clientes
  PROCEDURE p_quitar_clientes (c_id IN cliente.id%TYPE);

--Lists all customers 
   PROCEDURE p_listar_cliente;

--listar todos los clientes
END paquete_cliente_listar;

车身包装：

CREATE OR REPLACE PACKAGE BODY paquete_cliente_listar AS 
--agregar clientes
  PROCEDURE p_agregar_clientes (
                                    c_id  cliente.id%TYPE,
                                    c_name  cliente.name%TYPE,
                                    c_address  cliente.address%TYPE,
                                    c_salary cliente.salary%TYPE
                                    ) IS
    BEGIN 

        INSERT INTO cliente (id, name, address, salary) VALUES (c_id, c_name, c_address, c_salary);

    END p_agregar_clientes;

--quitar clientes
  PROCEDURE p_quitar_clientes (c_id IN cliente.id%TYPE) IS

  BEGIN 

    DELETE FROM cliente WHERE id = c_id;


  END p_quitar_clientes;

--listar todos los clientes

 PROCEDURE p_listar_cliente AS
    BEGIN

    clientes_cursor cliente%rowtype;

     CURSOR clientes_cursor IS 
        SELECT id, name, address, salary FROM cliente;




    OPEN clientes_cursor;
    LOOP
      FETCH clientes_cursor INTO clientes_cursor;
      EXIT WHEN clientes_cursor%notfound;
      DBMS_OUTPUT.put_line(clientes_cursor.id || ' ' || clientes.name);
     END LOOP;

 END p_listar_cliente;


END paquete_cliente_listar;

我有这个问题：

错误：包体 PAQUETE_CLIENTE_LISTAR Line/Col：30/21 PLS-00103：在预期以下情况之一时遇到符号“CLIENTE”：

:= 。 (@%; 符号“:=”被替换为“CLIENTE”以继续。

行/列：32/13 PLS-00103：在预期以下情况之一时遇到符号“CLIENTES_CURSOR”：

:= 。 (@%;

【问题讨论】：

PLS-00103 是一个语法错误。语法错误通常很容易通过将我们的代码与the examples in the PL/SQL Documentation 进行比较来解决。

【参考方案1】：

第一个问题是变量必须在BEGIN之前声明。但与其试图弄清楚变量是如何工作的，不如使用游标 for 循环，你的代码会更简单、更快，如下所示：

...
 PROCEDURE p_listar_cliente AS

 BEGIN

    FOR clientes IN
    (
      SELECT id, name, address, salary FROM cliente
    ) LOOP
      DBMS_OUTPUT.put_line(clientes.id || ' ' || clientes.name);
    END LOOP;

 END p_listar_cliente;
...

【参考方案2】：

变量声明存在问题。必须在 BEGIN 之前。

PROCEDURE p_listar_cliente AS
clientes_cursor cliente%rowtype; -- moved it before BEGIN
 CURSOR clientes_cursor IS 
    SELECT id, name, address, salary FROM cliente;   -- moved it before BEGIN 

BEGIN
OPEN clientes_cursor;
LOOP
  FETCH clientes_cursor INTO clientes_cursor;
  EXIT WHEN clientes_cursor%notfound;
  DBMS_OUTPUT.put_line(clientes_cursor.id || ' ' || clientes.name);
 END LOOP;

 END p_listar_cliente;

使用后关闭光标也是一种很好的做法。

干杯！！