六狼论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

新浪微博账号登陆

只需一步,快速开始

搜索
查看: 46|回复: 0

oracle存储过程

[复制链接]

升级  20%

2

主题

2

主题

2

主题

童生

Rank: 1

积分
10
 楼主| 发表于 2013-1-27 04:51:32 | 显示全部楼层 |阅读模式
create or replace procedure pro_test(c1 in t_co_consignment.id%type)AS var1 number:=5;   var2 number;   var3 boolean;     cursor cur(tnt_like varchar2) is select c.id from t_co_consignment c where     c.tnt_barcode like tnt_like||'%';--||连接运算符 begin       --for cur_result in cur('080407001000') loop            open cur('080407001000');      LOOP      FETCH cur INTO var2;      EXIT WHEN cur%NOTFOUND;      begin           dbms_output.put_line(var2);      end;     end loop;     close cur;    -- dbms_output.put_line(SQL%rowcount);      --  IF c1 != -1 THEN  --     BEGIN   --       dbms_output.put_line(c1);     --    END;   --  END IF;         WHILE var1 !=to_number(-1) LOOP      BEGIN          dbms_output.put_line(var1);            var1:=var1-1;      END;    END LOOP;        var3:=check_odd_number(c1);    if var3 then    dbms_output.put_line('true');     else    dbms_output.put_line('false');     end if;    EXCEPTION     WHEN no_data_found THEN    dbms_output.put_line('no date found');    WHEN others THEN    rollback;    dbms_output.put_line('some unexcept exception occur');    return;end pro_test;

sql台输入set serveroutput on 则输出put_line;

create or replace function check_Odd_Number(var1 number)return boolean isv_return boolean;begin    if mod(var1,2)=1 then      v_return:= true;    else      v_return:= false;    end if;    dbms_output.put_line('function end');    return v_return;end check_Odd_Number;
您需要登录后才可以回帖 登录 | 立即注册 新浪微博账号登陆

本版积分规则

快速回复 返回顶部 返回列表