ITPub博客

首页 > Linux操作系统 > Linux操作系统 > Ref Cursor用法

Ref Cursor用法

原创 Linux操作系统 作者:Farmor 时间:2011-04-18 15:35:59 0 删除 编辑

DECLARE
  TYPE cursor_ref_type IS REF CURSOR;
  l_pscur cursor_ref_type;

  l_sql           VARCHAR2(2000);
  p_data_level_id NUMBER DEFAULT 17703;
  l_ext1          NUMBER;
BEGIN
  IF (p_data_level_id = 17701)
  THEN
    l_sql := 'SELECT 1 FROM dual';
 
  ELSIF (p_data_level_id = 17703)
  THEN
    l_sql := 'SELECT 2 FROM dual';
  END IF;

  OPEN l_pscur FOR l_sql;
  FETCH l_pscur
    INTO l_ext1;
  CLOSE l_pscur;

  IF (l_ext1 IS NOT NULL)
  THEN
    dbms_output.put_line(l_ext1);
  END IF;
END;

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/25684327/viewspace-692767/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2011-04-13

  • 博文量
    22
  • 访问量
    28368