Help, ADO & Oracle Stored Procedure

From: cwdaddy <chanwool_at_netsgo.com>
Date: Wed, 02 Dec 1998 01:42:02 GMT
Message-ID: <366a9aa3.13103822@news.nuri.net>

Now I am trying to get the message from the oracle procedure as follows using ADO in VB6.0

---

create or replace procedure PTAIN002

(v_partcode in varchar2,
 v_engno in varchar2,
 v_message out varchar2)

is

v_groupid number(2);
v_grouptot number(3);
v_grouppas number(3);

begin

UPDATE TTAMS301
SET PASSAGE = 1
WHERE PARTCODE = v_partcode
AND ENGNO = v_engno;

COMMIT; SELECT GROUPID INTO v_groupid
FROM TTAMS301
WHERE PARTCODE = v_partcode
AND ENGNO = v_engno;

SELECT COUNT(*) INTO v_grouptot FROM TTAMS301 WHERE GROUPID = v_groupid;

SELECT COUNT(*) INTO v_grouppas FROM TTAMS301 WHERE GROUPID = v_groupid
AND PASSAGE = 1; IF v_grouptot = v_grouppas then

	DELETE TTAMS301
	WHERE GROUPID = v_groupid;

	UPDATE TTAMS301
	SET GROUPID = GROUPID - 1;

END IF; COMMIT; EXCEPTION
WHEN NO_DATA_FOUND THEN
ROLLBACK;
v_message := 'T/A NO "' || v_partcode || v_engno || '" COULD NOT BE FOUND';
WHEN OTHERS THEN
v_message := 'OTHER ERROR OCCURRED.';

end PTAIN002;

---

I had tried several ways to get this message. but I couldn't find out the correct way.

How can i get the message from oracle procedure using ADO?

Looking forward to your answer. Received on Tue Dec 01 1998 - 19:42:02 CST