编写PL/SQL程序 定义变量“v_sname”，并把“刘晨”赋值给“v_sname”，根据变量“v_sname”查询并输出刘晨的选修的课程的课程及考试成绩。 附带运行截图

DECLARE
v_sname VARCHAR2(20) := '刘晨';
BEGIN
SELECT c.cname, s.score
INTO v_cname, v_score
FROM student s, course c, sc
WHERE s.sname = v_sname
AND s.sno = sc.sno
AND c.cno = sc.cno;

DBMS_OUTPUT.PUT_LINE(v_sname || '选修的课程及考试成绩为：' || v_cname || ', ' || v_score);
END;
/

![image](https://user-images.githubusercontent.com/74905081/115883609-3f3c3d80-a482-11eb-951e-2b2b9e9c8f8e.png)

相关问题

编写PL/SQL程序 定义变量“v_sname”，并把“刘晨”赋值给“v_sname”，根据变量“v_sname”查询并输出刘晨的选修的课程的课程及考试成绩。

DECLARE
v_sname VARCHAR2(20) := '刘晨';
v_course VARCHAR2(20);
v_grade NUMBER(3);
BEGIN
SELECT course, grade INTO v_course, v_grade
FROM student_course
WHERE sname = v_sname;
DBMS_OUTPUT.PUT_LINE(v_sname || '选修了' || v_course || '，考试成绩为' || v_grade);
END;
/

给下面的代码纠错：create procedure p_grade_level(in v_sname varchar(20)) begin declare v_sno,v_cno varchar(20); declare v_grade int; declare v_level varchar(10); declare flag int default 1; declare c1 cursor for select sc.sno,cno,grade,level from student,sc where student.sno=sc.sno and sname=v_sname; declare continue handler for not found set flag=0; open c1; while flag do fetch c1 into v_sno,v_cno,v_grade,v_level; if isnull(v_level) then if v_grade>=85 and v_grade<=100 then set v_level="A"; elseif v_grade>=75 and v_grade<=84 then set v_level="B"; elseif v_grade>=65 and v_grade<=74 then set v_level="C"; elseif v_grade>=60 and v_grade<=64 then set v_level="D"; else set v_level="E"; end if; update sc set level=v_level where sname=v_sname; end if; end while; close c1; end;

下面是已纠错的代码：

create procedure p_grade_level(in v_sname varchar(20)) 
begin      
    declare v_sno,v_cno varchar(20);       
    declare v_grade int;    
    declare v_level varchar(10);    
    declare flag int default 1;    
    declare c1 cursor for select sc.sno,cno,grade,level from student,sc     
        where student.sno=sc.sno and sname=v_sname;    
    declare continue handler for not found set flag=0;    
    open c1;    
    while flag do          
        fetch c1 into v_sno,v_cno,v_grade,v_level;      
        if isnull(v_level) then         
            if v_grade>=85 and v_grade<=100 then 
                set v_level="A";
            elseif v_grade>=75 and v_grade<=84 then 
                set v_level="B";
            elseif v_grade>=65 and v_grade<=74 then 
                set v_level="C";
            elseif v_grade>=60 and v_grade<=64 then 
                set v_level="D";
            else 
                set v_level="E";
            end if;      
            update sc set level=v_level where sno=v_sno and cno=v_cno;      
        end if;       
    end while;    
    close c1; 
end;

已纠错的代码中主要做了以下修改：

1. 在 `declare v_sno,v_cno varchar(20);` 中添加了 `v_cno` 的声明，因为之后在 `fetch` 语句中会用到。

2. 在 `update` 语句中，将 `where sname=v_sname` 改为 `where sno=v_sno and cno=v_cno`，因为更新的是 `sc` 表中的数据，应该根据 `sno` 和 `cno` 来确定记录。

3. 添加了 `end if;` 来结束 `if` 语句。

4. 将 `update` 语句放在 `if` 语句内部，以确保只有当 `level` 字段为空时才会更新。