学步园

--Author:Zhang
--Create Date:2011-12-06
--Description:判断一个字符串是否为数字
CREATE OR REPLACE FUNCTION ISNUMERIC(MyStr VARCHAR2) RETURN NUMBER
IS
  STR VARCHAR2(400);
  V_NUM NUMBER;
BEGIN
     V_NUM:=0;
     STR:=TRIM(MyStr);
     IF TRIM(STR) IS NULL THEN
        GOTO NON_NUMBER;
     END IF;
       BEGIN
            V_NUM:=TO_NUMBER(STR);

            EXCEPTION
            WHEN INVALID_NUMBER THEN
                 NULL;
            WHEN OTHERS THEN
                 NULL;
       END;
       <<NON_NUMBER>>
     RETURN V_NUM;
END;

Oracle 9i 树形结构查询

create or replace function GET_TREE_FULL_NAME(PARAM INT) return varchar2 is
  my_reulst varchar2(100);
  str       varchar2(100);
  cursor mycur is
    select TNAME
      from NK_SYS_TREEBOOK
     start with tid = PARAM
    connect by prior tpid = tid
     order by tid asc;
begin
  open mycur;
  fetch mycur
    into str;
  while mycur%found loop
    dbms_output.put_line(str);
    my_reulst := my_reulst || ',' || str;
    fetch mycur
      into str;
  end loop;
  close mycur;
  return(substr(my_reulst, 2, length(my_reulst)));
end GET_TREE_FULL_NAME;