游标的一个示例，如果
创建或替换程序peace_if
是
光标var_c是SELECT * FROM级；
开始
在var_c回路温度
如果temp.course_name = 'os'then
dbms_output.put_line（'stu_name =| |温度。stu_name）；
elsif temp.course_name = 'db'then
dbms_output.put_line（'db）；
其他的
dbms_output.put_line（'feng拉风拉）；
最后如果；
结束循环；
结束；
----游标的例子，案例1
创建或替换程序peace_case1
是
光标var_c是SELECT * FROM test_case；
开始
在var_c回路温度
案例temp.vol
当1
dbms_output.put_line（'haha1）；
当2
dbms_output.put_line（'haha2）；
当3
dbms_output.put_line（'haha3）；
当4
dbms_output.put_line（'haha4）；
其他的
dbms_output.put_line（'qita）；
案例；
结束循环；
结束；
----游标的例子，案例2
创建或替换程序peace_case2
是
光标var_c是SELECT * FROM test_case；
开始
在var_c回路温度
案例
当温度= 1时
dbms_output.put_line（'haha1）；
当温度= 2时
dbms_output.put_line（'haha2）；
当温度= 3时
dbms_output.put_line（'haha3）；
当温度= 4时
dbms_output.put_line（'haha4）；
其他的
dbms_output.put_line（'qita）；
案例；
结束循环；
结束；
——for循环的一个示例
创建或替换程序peace_for
是
语数：= 0；
临时VARCHAR2（500）；
开始
对于我在1….. 9圈
温度=；
J在1…我
环
语：= i * j；
温度：=温度| | to_char（我）| | * | | to_char（J）| | ' = ' | | to_char（语）| |；
结束循环；
dbms_output.put_line（临时）；
结束循环；
结束；
——循环循环的一个例子
创建或替换程序peace_loop
是
语数：= 0；
临时编号：= 0；
开始
环
退出时温度> = 10；
语：=语+温度；
温度=温度+ 1；
结束循环；
dbms_output.put_line（语）；
结束；
——游标和循环循环的示例
创建或替换程序loop_cur
是
stu_name VARCHAR2（100）；
course_name VARCHAR2（100）；
光标var_cur是SELECT * FROM级；
开始
打开var_cur；
环
取var_cur为stu_name，course_name；
退出时未var_cur %；
dbms_output.put_line（stu_name | | course_name）；
结束循环；
近var_cur；
结束；
——一个异常处理示例
创建或替换程序peace_exp（1在VARCHAR2）
是
c_n VARCHAR2（100）；
开始
选择course_name为c_n级stu_name =在哪里；
dbms_output.put_line（c_n）；
例外
当no_data_found
然后
dbms_output.put_line（'try）；
当too_many_rows
然后
dbms_output.put_line（还要）；
结束；
——例外处理2的示例
创建或替换程序peace_insert（c_n在VARCHAR2）
是
错误异常；
开始
如果c_n =好
然后
插入过程（course_name）值（c_n）；
elsif c_n = 'ng'then
插入过程（course_name）值（c_n）；
提高误差；
其他的
dbms_output.put_line（'c_n'c_n | |）；
最后如果；
承诺；
例外
当出现错误
回降;
dbms_output.put_line（'erro）；
结束；
----包的示例定义包
创建包peace_pkg
作为
功能测试（1在VARCHAR2）
返回数；
程序test2（2在VARCHAR2）；
最后peace_pkg；
——包定义包的示例
创建包体peace_pkg
作为
功能测试（1在VARCHAR2）
返回数
作为
温度数；
开始
温度＝0；
回复；
结束；
程序test2（2在VARCHAR2）
是
开始
dbms_output.put_line（2）；
结束；
最后peace_pkg；
