三层结构的ClientDataSet组件是否可以调用ORACLE的存储过程!!
SQL> CREATE OR REPLACE PACKAGE pkg_test
2 AS
3 TYPE myrctype IS REF CURSOR;
4
5 PROCEDURE get (p_id NUMBER, p_rc OUT myrctype);
6 END pkg_test;
7 /
程序包已创建。
SQL>
SQL> CREATE OR REPLACE PACKAGE BODY pkg_test
2 AS
3 PROCEDURE get (p_id NUMBER, p_rc OUT myrctype)
4 IS
5 sqlstr VARCHAR2 (500);
6 BEGIN
7 IF p_id = 0 THEN
8 OPEN p_rc FOR
9 SELECT ID, NAME, sex, address, postcode, birthday
10 FROM student;
11 ELSE
12 sqlstr :=
13 'select id,name,sex,address,postcode,birthday
14 from student where id=:w_id';
15 OPEN p_rc FOR sqlstr USING p_id;
16 END IF;
17 END get;
18 END pkg_test;
19 /