学习大数据DAY15 PLSQL基础语法4

工科小石头2024-07-15 16:34

目录

动态SQL

[execute immediate语句](#execute immediate语句)

带参数使用

作业

动态游标

动态游标类型声明

动态游标使用

强类型游标

作业2

遗忘点复习

动态SQL

plsql里面只能执行 select insert update delete ，想执行create怎么办？其他复杂功能？

使用动态sql，不能加分号，单引号实现转义功能''''

在Oracle数据库开发PL/SQL块中我们使用的SQL分为：静态SQL语句和动态SQL语句。所谓静态SQL指在PL/SQL块中使用的SQL语句在编译时是明确的，执行的是确定对象。而动态SQL是指在PL/SQL块编译时SQL语句是不确定的，如根据用户输入的参数的不同而执行不同的操作。编译程序对动态语句部分不进行处理，只是在程序运行时动态地创建语句、对语句进行语法分析并执行该语句。Oracle中动态SQL可以通过本地动态SQL来执行，也可以通过DBMS_SQL包来执行。本地动态SQL是使用EXECUTE IMMEDIATE语句来实现的。

execute immediate语句

execute immediate sql语句(字符串，也可以是字符串变量) [into(只有在执行查询时使用)变量,...] [using 参数,...];

--不能执行语句，原有能执行的语句也可以放在里面

declare

v_sql varchar2(1000);

begin

v_sql :=

'create table stest(sno varchar(20),sdate date)';

dbms_output.put_line(v_sql);

execute immediate v_sql;

end;

--增删改查也可以使用动态sql，查询需要使用into

declare

v_sql varchar2(200);

v emp%rowtype;

begin

v_sql := 'select * from emp where empno=7369';

execute immediate v_sql into v;

dbms_output.put_line(v.empno||v.ename);

end;

--带输入且判断的复杂动态sql

declare

v_sql varchar2(200);

v emp%rowtype;

eno varchar(4):='&请输入编号';

begin

v_sql := 'select * from emp ';

if eno is not null then

v_sql:=v_sql||' where empno='||eno;

else

v_sql:=v_sql||' where rownum=1';

end if;

execute immediate v_sql into v;

dbms_output.put_line(v.empno||v.ename);

end;

--输入课程编号,如果不输入则显示所有数据第一条，如果输入显示当前课程的第一条

select * from sc where cno='c002' and rownum=1

select * from sc where rownum=1

declare

dsql varchar2(1000);

sc1 sc%rowtype;

cnoin varchar2(10):='&请输入课程编号';

begin

dsql:='select * from sc where ';

if cnoin is null then

dsql:=dsql||'rownum=1';

else

dsql:=dsql||'cno='''||cnoin||''' and rownum=1';

end if;

dbms_output.put_line(dsql);

execute immediate dsql into sc1;

dbms_output.put_line(sc1.sno||' '||sc1.cno||' '||sc1.score);

end;

带参数使用

declare

-- 声名一个变量保存sql语句

v_sql varchar2(255);

-- 声名一个rowtype类型变量保存一条员工信息

v emp%rowtype;

-- 声名一个变量接收从键盘输入的员工编号

v_empno emp.empno%type:='&empno';

begin

v_sql:='select * from emp where empno=:1';

dbms_output.put_line(v_sql);

execute immediate v_sql into v using v_empno;

-- execute immediate v_sql into v using v_empno;

-- 打印变量v的值

dbms_output.put_line(v.empno||v.ename);

execute immediate v_sql into v using 7839;

-- execute immediate v_sql into v using v_empno;

-- 打印变量v的值

dbms_output.put_line(v.empno||v.ename);

end;

作业

sql 复制代码 
/*1、使用动态sql实现输入员工编号查询员工信息，如果不输入则显示所有员工的第一

条，显示员工姓名和工资*/

declare

dsql varchar2(1000):='select ename,sal from emp where empno=';

dsqldefault varchar2(1000):='select ename,sal from emp where rownum=1';

v_empno varchar2(10):='&输入员工编号';

type names is record(

ename emp.ename%type,

sal emp.sal%type

);

v names;

begin

  if v_empno is not null then

    execute immediate concat(dsql,v_empno) into v;

    else

      execute immediate dsqldefault into v;

      end if;

      dbms_output.put_line(v.ename||'  '||v.sal);  

  end;

/*2、搜索一个员工信息，输入工资和工作岗位，如果输入为空则显示不带条件的第一条；

如果不为空则显示带条件的第一条，显示员工姓名和工资

提示：

1000为测试的输入工资，SALESMAN为测试的输入工作岗位

select * from emp where sal>1000 and job = 'SALESMAN' and rownum=1

select * from emp where sal>1000 and rownum=1

select * from emp where job = 'SALESMAN' and rownum=1

select * from emp where rownum=1*/

declare

dsql varchar2(2000);

type names is record(

ename emp.ename%type,

sal emp.sal%type

);

v names;

v_sal varchar2(10):='&输入工资';

v_job varchar2(20):='&输入工作岗位';

begin

  if v_sal is  not null and v_job is  not null then

    dsql:='select ename,sal from emp where sal=''||v_sal||''and job='||v_job;

    elsif v_sal is not  null and v_job is null then

      dsql:='select ename,sal from emp where sal='||v_sal;

      elsif v_sal is null and v_job is not null then

        dsql:='select ename,sal from emp where job='||v_job;

        else dsql:='select ename,sal from emp where rownum=1';

        end if;

      execute immediate dsql into v;

      dbms_output.put_line(v.ename||'   '||v.sal); 

  end;

动态游标

在程序运行过程中，把一个游标变量在不同时刻关联不同的查询语句，也就是使用一个游标变量可以获取多个不同的结果集。通过把动态游标作为参数传递给另一个过程或函数使用，通过这种方式达到共享结果集的目的，把一个游标的内容（结果集）赋值给另外一个游标变量。

动态游标声明步骤：

●声明动态游标类型

●声明动态游标名称

动态游标类型声明

弱类型动态游标系统自带了一个直接使用即可 : sys_refcursor

强类型动态游标只能配合静态sql语句使用，无法和动态sql配合使用。

弱类型动态游标能够执行动态sql 以及配合绑定变量。

示例：

refcur_emp sys_refcursor;

动态游标使用

使用 open 打开动态游标并给其绑定结果集

open 动态游标名 for sql语句;

动态游标无法使用for循环打开。

--没有返回类型的弱类型，一般用sys_refcursor,可以省略步骤，为了返回类型铺垫

declare

cursor cur1 is select * from emp where empno=7499;

emp1 emp%rowtype;

emp2 emp%rowtype;

n1 number(4):=5;

type newcur is ref cursor;--弱类型游标类型

cur2 newcur;--游标变量

begin

open cur2 for select * from emp where empno=7499;

fetch cur2 into emp2;

dbms_output.put_line(emp2.ename);

close cur2;

dbms_output.put_line(n1);

n1:=6;

dbms_output.put_line(n1);

open cur1;

fetch cur1 into emp1;

dbms_output.put_line(emp1.ename);

close cur1;

end;

--弱类型动态游标

declare

emp2 emp%rowtype;

cur2 sys_refcursor;--游标变量

begin

open cur2 for select * from emp where empno=7499;

fetch cur2 into emp2;

dbms_output.put_line(emp2.ename);

close cur2;

end;

--动态游标可以随时换查询结果集

declare

emp2 emp%rowtype;

cur2 sys_refcursor;--游标变量

dept2 dept%rowtype;

begin

open cur2 for select * from emp where empno=7499;

fetch cur2 into emp2;

dbms_output.put_line(emp2.ename);

close cur2;

open cur2 for select * from dept where deptno=20;

fetch cur2 into dept2;

dbms_output.put_line(dept2.dname);

close cur2;

end;

--while循环

declare

emp2 emp%rowtype;

cur2 sys_refcursor;--游标变量

begin

open cur2 for select * from emp;

fetch cur2 into emp2;

while cur2%found

loop

dbms_output.put_line(emp2.ename);

fetch cur2 into emp2;

end loop;

close cur2;

end;

--动态sql弱类型动态游标,输入部门编号，不输入代表所有

declare

dsql varchar2(1000);

dno varchar2(10):='&请输入部门编号';

ename1 varchar2(10);

job1 varchar2(10);

cur1 sys_refcursor;

begin

dsql:='select ename,job from emp ';

if dno is not null then

dsql:=dsql||'where deptno='||dno;

end if;

dbms_output.put_line(dsql);

open cur1 for dsql;

fetch cur1 into ename1,job1;

while cur1%found

loop

dbms_output.put_line(ename1||job1);

fetch cur1 into ename1,job1;

end loop;

close cur1;

end;

--二重循环动态游标显示

declare

cur1 sys_refcursor;

cur2 sys_refcursor;

dept1 dept%rowtype;

emp1 emp%rowtype;

begin

open cur1 for select * from dept;

fetch cur1 into dept1;

while cur1%found

loop

dbms_output.put_line(dept1.deptno||dept1.dname);

open cur2 for select * from emp where deptno=dept1.deptno;

fetch cur2 into emp1;

while cur2%found

loop

dbms_output.put_line(' '||emp1.deptno||emp1.ename);

fetch cur2 into emp1;

end loop;

close cur2;

fetch cur1 into dept1;

end loop;

close cur1;

end;

强类型游标

declare

type names is record(

ename varchar2(10),

dname varchar2(10)

);

zs names;

type curtype is ref cursor return names;

cur1 curtype;

begin

open cur1 for select dname,ename from emp inner join dept on emp.deptno=dept.deptno;

fetch cur1 into zs;

while cur1%found

loop

dbms_output.put_line(zs.name1||zs.name2);

fetch cur1 into zs;

end loop;

close cur1;

end;

作业2

sql 复制代码 
--1、弱类型动态游标，显示所有员工名称，工作

declare

rlx sys_refcursor;

type names is record(

ename emp.ename%type,

job emp.job%type

);

ej names;

begin

  open rlx for select ename,job from emp;

  fetch rlx into ej;

  while rlx%found

    loop

      dbms_output.put_line(ej.ename||'  '||ej.job);

      fetch rlx into ej;

      end loop;

      close rlx;

  end;

/*2、根据输入的部门编号显示员工编号，工作，若没有输入部门编号则显示所有，使用动

态sql+弱类型动态游标实现*/

declare

dsql varchar2(2000);

rlx sys_refcursor;

v_deptno varchar2(3):='&输入部门编号显示员工编号和工作';

type names is record(

empno emp.empno%type,

job emp.job%type

); 

v_ej names;

begin

  if v_deptno is null then

    dsql:='select empno,job from emp';

    open rlx for dsql;

    fetch rlx into v_ej;

    while rlx%found

      loop

        dbms_output.put_line(v_ej.empno||'   '||v_ej.job);

        fetch rlx into v_ej;

        end loop;

        close rlx;

    else 

      dsql:='select empno,job from emp where deptno='||v_deptno;

      open rlx for dsql;

      fetch rlx into v_ej;

      while rlx%found

        loop

           dbms_output.put_line(v_ej.empno||'   '||v_ej.job);

           fetch rlx into v_ej;

          end loop;

         close rlx;

      end if;

  end;

/*3、根据输入显示学员姓名、课程编号及课程成绩，输入学号不输入课程号直接显示学员

姓名和所有课程编号和成绩，输入学号和课程号显示对应课程成绩，使用动态sql+弱类

型动态游标实现*/

declare

type names is record(

cno sc.cno%type,

score sc.score%type

);

sc2 names;

v_name student.sname%type;

v_score sc.score%type;

dsql varchar2(2000);

rlx sys_refcursor;

v_sno sc.sno%type:='&输入学号';

v_cno sc.cno%type:='&输入课程号';

begin

  if v_sno is not null and v_cno is null then

    select sname into v_name from student where sno=v_sno;

    dsql:='select cno,score from sc where sno='''||v_sno||'''';

    dbms_output.put_line(v_name);

    open rlx for dsql;

    fetch rlx into sc2;

    while rlx%found

      loop

        dbms_output.put_line(sc2.cno||'    '||sc2.score);

        fetch rlx into sc2;

        end loop;

    close rlx; 

    elsif v_sno is not null and v_cno is not null then

      select score into v_score from sc where sno=v_sno and cno=v_cno;

      dbms_output.put_line(v_score); 

    end if; 

  end;

--4、通过teacher表显示各个课程信息，二重循环弱类型游标,同上机练习7.2的效果图

declare

rlx sys_refcursor;

rlx2 sys_refcursor;

v_teacher teacher%rowtype;

v_course course%rowtype;

begin

  open rlx for select * from teacher;

  fetch rlx into v_teacher;

  while rlx%found

    loop

    dbms_output.put_line(v_teacher.tno||'---'||v_teacher.tname);

    fetch rlx into v_teacher;

    open rlx2 for select * from course where tno=v_teacher.tno;

    fetch rlx2 into v_course;

    while rlx2%found

      loop

        dbms_output.put_line('     '||v_course.cno||'-----'||v_course.cname||'-----'||v_course.tno); 

        fetch rlx2 into v_course;

        end loop;

    close rlx2;

    end loop;

  close rlx;

  end;

--5、使用强类型游标显示教师姓名及所教课程名称

declare

type names is record(

tname teacher.tname%type,

cname course.cname%type

);

t names;

type cur is ref cursor return names;

A cur;

begin

  open A for select tname,cname

  from teacher left join course on teacher.tno=course.tno;

  fetch A into t;

  while A%found

    loop

    dbms_output.put_line(t.tname||'-----'||t.cname); 

    fetch A into t;

    end loop;

  close A;

end;

遗忘点复习

number类型不能为空。

相关推荐
HinsCoder40 分钟前
【渗透测试】——Upload靶场实战（1-5关）
笔记·学习·安全·web安全·渗透测试·测试·upload靶场
听风若依43 分钟前
排序学习笔记
笔记·学习
Filotimo_1 小时前
【自然语言处理】实验三：新冠病毒的FAQ问答系统
人工智能·经验分享·笔记·python·学习·自然语言处理·pycharm
IM_DALLA1 小时前
【Verilog学习日常】—牛客网刷题—Verilog快速入门—VL21
学习·fpga开发
狐心kitsune1 小时前
erlang学习:Linux常用命令1
linux·学习·erlang
小游鱼KF1 小时前
Spring学习前置知识
java·学习·spring
不睡懒觉的橙1 小时前
【医疗大数据】医疗保健领域的大数据管理：采用挑战和影响
大数据·人工智能·信息可视化·人机交互·健康医疗
mez_Blog2 小时前
个人小结（2.0）
前端·javascript·vue.js·学习·typescript
Rookie也要加油2 小时前
WebRtc一对一视频通话_New_peer信令处理
笔记·学习·音视频·webrtc
NaZiMeKiY2 小时前
SQLServer数据分页
数据库·sql·sqlserver
热门推荐
01RAG 实践- Ollama+RagFlow 部署本地知识库02组基轨迹建模 GBTM的介绍与实现（Stata 或 R）032024年高教社杯数学建模国赛C题超详细解题思路分析04苍穹外卖面试总结05yolov8实战第五天——yolov8+ffmpg实时视频流检测并进行实时推流——（推流，保姆教学）06【2024数模国赛赛题思路公开】国赛B题思路丨附可运行代码丨无偿自提07Coze扣子平台完整体验和实践（附国内和国际版对比）08CCF-CSP认证考试 202406-3 文本分词 100分题解09【2024高教社杯全国大学生数学建模竞赛】B题 生产过程中的决策问题——解题思路 代码 论文10软件工程从理论到实践客观题汇总(头歌第一章至第八章)