Re: Help! VB5.0, RDO, Oracle, Stored Procedure!

From: mark tomlinson <marktoml_at_gdi.net>
Date: Tue, 26 May 1998 16:25:08 GMT
Message-ID: <356beca9.418841211@newshost.us.oracle.com>

Private Sub Command1_Click()
' NOTE: Oracle 7.2 cannot return a result set from a stored procedure.

' create procedure test (c1 in out varchar)
' as
' begin
' c1 := 'World';
' end;

Dim RdoEnvironment As RdoEnvironment
Dim RdoDatabase As rdoConnection
Dim RdoRecordset As rdoResultset
Dim RdoQrydef As RdoQuery

Set RdoEnvironment = rdoEnvironments(0) Set RdoDatabase = RdoEnvironment.OpenConnection("", rdDriverNoPrompt, False, _
"DSN=ORA32;UID=SCOTT;PWD=TIGER;") Set RdoQrydef = RdoDatabase.CreateQuery("q1", "{call test( ? )}")

RdoQrydef(0).Direction = rdParamInputOutput
RdoQrydef(0).Type = rdTypeCHAR
RdoQrydef(0).Value = "Hello"

Set RdoRecordset = RdoQrydef.OpenResultset(rdOpenForwardOnly, rdConcurReadOnly)

MsgBox RdoQrydef(0)

End Sub Received on Tue May 26 1998 - 11:25:08 CDT