create or replace procedure getemps( p_cursor in out types.cursorType ) as begin open p_cursor for select id, name from TABLE1; end;
功能描述:用指定分隔符切割输入的字符串,返回一维数组,每个数组元素为一个子串。源代码:CREATE OR REPLACE TYPE ty_str_split IS TABLE OF VARCHAR2 (4000);CREATE OR REPLACE FUNCTION fn_split (p_str IN VARCHAR2, p_delimiter IN VARCHAR2) RETURN ty_str_split IS j INT := 0; i INT := 1; len INT := 0; len1 INT := 0; str VARCHAR2 (4000); str_split ty_str_split := ty_str_split (); BEGIN len := LENGTH (p_str); len1 := LENGTH (p_delimiter); WHILE j < len LOOP j := INSTR (p_str, p_delimiter, i); IF j = 0 THEN j := len; str := SUBSTR (p_str, i); str_split.EXTEND; str_split (str_split.COUNT) := str; IF i >= len THEN EXIT; END IF; ELSE str := SUBSTR (p_str, i, j - i); i := j + len1; str_split.EXTEND; str_split (str_split.COUNT) := str; END IF; END LOOP; RETURN str_split; END fn_split; /测试:DECLARE CURSOR c IS SELECT * FROM TABLE (CAST (fn_split ('1;;12;;123;;1234;;12345', ';;') AS ty_str_split ) ); r c%ROWTYPE; BEGIN OPEN c; LOOP FETCH c INTO r; EXIT WHEN c%NOTFOUND; DBMS_OUTPUT.put_line (r.column_value); END LOOP; CLOSE c; END; /
begin
open p_cursor for select id, name from TABLE1;
end;
RETURN ty_str_split
IS
j INT := 0;
i INT := 1;
len INT := 0;
len1 INT := 0;
str VARCHAR2 (4000);
str_split ty_str_split := ty_str_split ();
BEGIN
len := LENGTH (p_str);
len1 := LENGTH (p_delimiter); WHILE j < len
LOOP
j := INSTR (p_str, p_delimiter, i); IF j = 0
THEN
j := len;
str := SUBSTR (p_str, i);
str_split.EXTEND;
str_split (str_split.COUNT) := str; IF i >= len
THEN
EXIT;
END IF;
ELSE
str := SUBSTR (p_str, i, j - i);
i := j + len1;
str_split.EXTEND;
str_split (str_split.COUNT) := str;
END IF;
END LOOP; RETURN str_split;
END fn_split;
/测试:DECLARE
CURSOR c
IS
SELECT *
FROM TABLE (CAST (fn_split ('1;;12;;123;;1234;;12345', ';;') AS ty_str_split
)
); r c%ROWTYPE;
BEGIN
OPEN c; LOOP
FETCH c INTO r; EXIT WHEN c%NOTFOUND;
DBMS_OUTPUT.put_line (r.column_value);
END LOOP; CLOSE c;
END;
/
结果:
1
12
123
1234
12345
OracleParameter outResult = new OracleParameter("prm_OutResult", OracleDbType.RefCursor, ParameterDirection.InputOutput);//定义一个执行的SQL
command.CommandType = CommandType.Text;
command.CommandText = "BEGIN TestProcedure(:prm_OutResult); END;";DataTable outTable = new DataTable();//调用PL/SQL
command.ExecuteNonQuery();//OUT参数取得
OracleRefCursor refCursor = (OracleRefCursor)outResult.Value;//将参数读进一个DataTable
OracleDataAdapter adapter = new OracleDataAdapter(command);
adapter.Fill(outTable , refCursor);得到的就是outTable 。提醒一点,返回游标的事务和将游标数据读进DataTable的事务应该在一个事务里面。