求助：编写PL/SQL程序块查询含SE员工的部门名称

这就帮你搞定这个PL/SQL程序块，完全贴合你的需求。我会提供两种实用的实现方式，附带关键细节说明：

方式一：使用游标逐行处理 #

这种方式逻辑清晰易懂，适合需要逐行处理部门数据的场景：

DECLARE
    -- 定义游标，关联部门和员工表，筛选有SE职位员工的部门（去重避免重复打印）
    CURSOR c_dept_with_se IS
        SELECT DISTINCT d.Dept_Name
        FROM Department d
        JOIN Employee e ON d.Dept_Id = e.D_ID
        WHERE e.Designation = 'SE';
    v_dept_name Department.Dept_Name%TYPE; -- 存储部门名称的变量
    v_found BOOLEAN := FALSE; -- 标记是否找到符合条件的记录
BEGIN
    -- 遍历游标，打印每个符合条件的部门名称
    FOR rec IN c_dept_with_se LOOP
        v_found := TRUE;
        DBMS_OUTPUT.PUT_LINE('部门名称: ' || rec.Dept_Name);
    END LOOP;
    
    -- 若未找到任何记录，打印提示信息
    IF NOT v_found THEN
        DBMS_OUTPUT.PUT_LINE('No record found');
    END IF;
EXCEPTION
    -- 捕获并打印异常信息，方便排查问题
    WHEN OTHERS THEN
        DBMS_OUTPUT.PUT_LINE('发生错误: ' || SQLERRM);
END;
/

方式二：使用BULK COLLECT批量获取数据 #

如果数据量较大，这种方式效率更高，一次性把所有符合条件的部门名称存入集合：

DECLARE
    -- 定义存储部门名称的集合类型
    TYPE dept_name_list IS TABLE OF Department.Dept_Name%TYPE;
    v_dept_names dept_name_list; -- 存储结果的集合变量
BEGIN
    -- 批量获取所有符合条件的部门名称
    SELECT DISTINCT d.Dept_Name
    BULK COLLECT INTO v_dept_names
    FROM Department d
    JOIN Employee e ON d.Dept_Id = e.D_ID
    WHERE e.Designation = 'SE';
    
    -- 判断集合是否为空，输出对应信息
    IF v_dept_names.COUNT = 0 THEN
        DBMS_OUTPUT.PUT_LINE('No record found');
    ELSE
        -- 遍历集合打印每个部门名称
        FOR i IN 1..v_dept_names.COUNT LOOP
            DBMS_OUTPUT.PUT_LINE('部门名称: ' || v_dept_names(i));
        END LOOP;
    END IF;
EXCEPTION
    WHEN OTHERS THEN
        DBMS_OUTPUT.PUT_LINE('发生错误: ' || SQLERRM);
END;
/

关键注意事项 #

• 开启输出功能：在SQL*Plus或类似工具中，需要先执行 SET SERVEROUTPUT ON 才能看到DBMS_OUTPUT的打印结果；如果用PL/SQL Developer等可视化工具，记得启用输出面板。
• 大小写敏感：Oracle默认对字符串大小写敏感，所以条件中的'SE'要和数据库里Designation字段存储的内容大小写完全一致（比如如果存的是'se'，就要改成小写）。
• 去重处理：用DISTINCT确保同一个部门不会被重复打印（毕竟一个部门可能有多个SE员工）。

内容的提问来源于stack exchange，提问作者Chris