How to call oracle procedure from vb

Question

i created a procedure in oracle8.1.7 to return on value,look the following script:
Procedure P_COUNT (r out number)
IS
BEGIN
select count(*) into r from demo;
END;
but i can get the value from VB,i display some errors:
ORA-06502 PL/SQL: numeric or value errorstring
ORA-06512 at stringline string
what can i do now?
null

Answer 1

Hei Zhang,
Thank You. You can return Cursor in many ways. You can write either a function to return cursor (return type is %ROWTYPE) or a package. Writing a Package seems laborious but I like it as it has lot of flexibility.
I will give you the example for the second type:
-- 1) Create a Package first:
CREATE OR REPLACE PACKAGE pk_MyPackage AS Type RT1 IS RECORD (
sp_ename emp.ename%TYPE,
sp_job emp.job%TYPE,
sp_mgr emp.mgr%TYPE
TYPE RCT1 IS REF CURSOR RETURN RT1;
END;
sho err
-- 2) Create a Procedure:
CREATE OR REPLACE PROCEDURE sp_MyProcedure (
in_empno emp.empno%TYPE,
RC1 IN OUT pk_MyPackage.RCT1
) AS
BEGIN
OPEN RC1 FOR
SELECT ename,
job,
mgr
FROM emp
WHERE empno = in_empno;
RETURN;
END;
sho err
--Testing
SQL> var cr refcursor
SQL> exec sp_MyProcedure (7934, :cr)
PL/SQL procedure successfully completed.
SQL> print cr
ENAME JOB MGR
MILLER CLERK 7782
Hope this is clear and helps you to complete your task.
Cheers!
r@m@