将 SQL 选择查询转换为 PL/SQL 匿名块 (ORACLE)答案

【问题标题】：Converting SQL Select Query to PL/SQL Anonymous Block (ORACLE)将 SQL 选择查询转换为 PL/SQL 匿名块 (ORACLE)
【发布时间】：2018-07-19 03:49:07
【问题描述】：

我编写了一个标准的 SQL 选择查询来选择销售额最大的邮政编码。我现在需要将它转换为匿名 PL/SQL 块，但是我仍然对 PL/SQL 非常“绿色”，并且对于如何实现这一点真的没有太多想法。此外，我需要将 LIMIT 合并到 PL/SQL 匿名块中，以便在出现平局时仅显示最低数字邮政编码。

这里有一些数据表：

CREATE TABLE CUSTOMERS
(customerID     INT     PRIMARY KEY,
customerZip     VARCHAR(15) NOT NULL); 

CREATE TABLE SALES
(saleID         INT     PRIMARY KEY,
customerID      INT,
CONSTRAINT SALES_FK1 FOREIGN KEY (customerID) REFERENCES CUSTOMERS(customerID));

INSERT INTO CUSTOMERS (customerID, customerZIP) VALUES (1, '20636');
INSERT INTO CUSTOMERS (customerID, customerZIP) VALUES (2, '20619');
INSERT INTO CUSTOMERS (customerID, customerZIP) VALUES (3, '20670');
INSERT INTO CUSTOMERS (customerID, customerZIP) VALUES (4, '20670');
INSERT INTO CUSTOMERS (customerID, customerZIP) VALUES (5, '20636');

INSERT INTO SALES (saleID, customerID) VALUES (1, 1);
INSERT INTO SALES (saleID, customerID) VALUES (2, 2);
INSERT INTO SALES (saleID, customerID) VALUES (3, 3);
INSERT INTO SALES (saleID, customerID) VALUES (4, 4);
INSERT INTO SALES (saleID, customerID) VALUES (5, 5);

这是我写的 SQL 查询：

SELECT C.customerZip, COUNT (*) AS "MOST_SALES_byZIP"
FROM SALES S
    INNER JOIN CUSTOMERS C
        ON S.customerID = C.customerID
GROUP BY C.customerZip
HAVING COUNT (*) >= ALL
    (SELECT COUNT(*)
        FROM SALES S
            INNER JOIN CUSTOMERS C
                    ON S.customerID = C.customerID
        GROUP BY C.customerZip)
        ORDER BY C.customerZip;

基本上，我首先需要知道如何将其“转换”为 PL/SQL 匿名块。然后，我需要知道如何将结果限制为仅显示最低数字邮政编码（如果两个或更多之间存在平局）。

如果有帮助，我在这里构建了一个 SQL 小提琴模式：http://sqlfiddle.com/#!4/ca18bf/2

谢谢！

【问题讨论】：

你想让 PL/SQL 块做什么？
与我编写的标准 SQL 查询基本相同，但增加了在出现平局时将结果限制为最低数字邮政编码的功能。我知道上面的查询可以正常工作，但有人要求我通过 PL/SQL 完成此操作，但我真的不知道如何。
所以你希望它返回一个引用光标吗？也不会有任何平局，因为您已经按邮政编码分组。您可以使用fetch first n 子句限制整个结果集。
这是我迷路的地方，因为我还不太了解 PL/SQL 的语法。就目前而言，与标准 SQL 语句有一个联系（请参阅 SQL fiddle 链接以获取示例）。您能否提供一个示例来说明您将如何完成此操作，以便我了解您的想法？对不起我的无知...
要求通过 PL/SQL 完成？谁让你通过 PL/SQL 来做的，为什么？这在普通 SQL 中很容易，如果您需要 PL/SQL 中的结果，它仍然应该使用最有效的 SQL 查询来获取值并将其传递给 PL/SQL；在 PS/SQL 中执行正确属于 SQL 的任务的那些部分是错误的、错误的、错误的。

标签： oracle plsql

【解决方案1】：

80% 的优秀 PL/SQL 编程是优秀的 SQL 编码。

在您的问题中：首先，在 SQL 中，要从与大多数销售相关的邮政编码中选择最低数字邮政编码，您可以按照您已经做过的方式进行连接，然后按邮政编码聚合 - 然后使用聚合 LAST功能。像这样：

select   min(customerzip) keep (dense_rank last order by count(*)) as selected_zip
from     sales inner join customers using (customerid)
group by customerzip
;

SELECTED_ZIP  
---------------
20636

现在很容易在匿名块中使用它（如果你必须 - 无论出于何种原因）。 SET SERVEROUTPUT ON 不是 PL/SQL 代码的一部分；它是对接口程序的命令，指示它在屏幕上显示输出缓冲区的内容。

set serveroutput on

declare
  selected_zip integer;
begin
  select   min(customerzip) keep (dense_rank last order by count(*))
    INTO   selected_zip                              -- this is the PL/SQL part!
  from     sales inner join customers using (customerid)
  group by customerzip
  ;
  dbms_output.put_line('Selected zip is: ' || selected_zip);
end;
/

PL/SQL procedure successfully completed.

Selected zip is: 20636

【讨论】：

谢谢。我会根据您的反馈来完成我所追求的。我非常感谢这里的建议 - 并且非常感谢您的具体帮助。我知道您一直在指导我的许多帖子，提供周到和有用的反馈...感谢 Stack Overflow！

【解决方案2】：

如果目标是返回结果集，那么执行此操作的 PL/SQL 块将是

-- [Declare the host ref cursor according to the calling tool/language]
-- e.g. in SQL*Plus
var resultset refcursor

begin
    open :resultset for
        select c.customerzip, count(*) as most_sales_byzip
        from   sales s
               join customers c on s.customerid = c.customerid
        group  by c.customerzip
        having count(*) >= all
               ( select count(*) from sales s
                        join customers c on s.customerid = c.customerid
                 group by c.customerzip )
        order by c.customerzip;
end;

从 Oracle 12.1 开始，您可以使用implicit result sets：

declare
    rc sys_refcursor;
begin
    open rc for
        open :resultset for
            select c.customerzip, count(*) as most_sales_byzip
            from   sales s
                   join customers c on s.customerid = c.customerid
            group  by c.customerzip
            having count(*) >= all
                   ( select count(*) from sales s
                            join customers c on s.customerid = c.customerid
                     group by c.customerzip )
            order by c.customerzip;

    dbms_sql.return_result(rc);
end;

但是我们已经有 SQL 来执行此操作，所以这似乎有点毫无意义。

【讨论】：

谢谢！我会试一试。非常有帮助 - 希望我能把这个 PL/SQL 搞定。当我被要求做一些不合逻辑的事情时，它会变得困难 10 倍，但在这种情况下，不幸的是我别无选择。
想一想，这些课程问题往往喜欢他们的循环和dbms_output.put_lines。也许他们正在寻找的是for r in (select...) loop dbms_output.put_line(r.customerzip); end loop;

【解决方案3】：

这是一个选项。创建一个函数，因为匿名块只能打印到 STDOUT，它不能将某些内容返回到变量中

having 子句被删除并简单地按 count,zip 排序，这样 top count 获胜，然后 top count + top zip 基于顺序。在fetch first 1 rows ONLY 中添加，仅获取 1 行，然后从函数中返回。

SQL> CREATE OR REPLACE FUNCTION getlowest RETURN NUMBER AS
        l_ret   NUMBER;
    BEGIN
        FOR r IN (
            SELECT
                c.customerzip,
                COUNT(*) AS "MOST_SALES_byZIP"
            FROM
                sales s
               INNER JOIN customers c ON s.customerid = c.customerid
           GROUP BY
               c.customerzip
           order by
               COUNT(*), c.customerzip
           fetch first 1 rows ONLY
       ) LOOP
           l_ret := r.customerzip;
       END LOOP;

       RETURN l_ret;
   END;
   /
SQL> show errors;
SQL> 
SQL> select getlowest from dual
  2  /
20619
SQL>

【讨论】：