HELP!!!!!! creating an RDOresultset in VB using ORACLE stored procedures

From: Dan <blkmiata_at_ix.netcom.com>
Date: 1998/03/14
Message-ID: <350a173d.27847853@nntp.ix.netcom.com>#1/1

Does anyone know how to create an Oracle stored procedure that I can call in VB? I get the error message "Cursor not open or cursor closed" from VB.

Here is my stored procedure:

create or replace procedure sp_test
as
cursor c1
is
select last_name from s_emp;
begin
null;
end;

---

Here is my VB code:

Private Sub Command1_Click()   

   Dim en as rdoEnvironment
   Dim cn as rdoConnection
   Dim sConn As String
   Dim rs As rdoResultset
   Dim sSQL As String
   Dim i As Integer    

   Screen.MousePointer = vbHourglass    

   sConn = "UID=dan;PWD=welcome;driver={Microsoft ODBC Driver " & _

                "for Oracle};CONNECTSTRING=ORACLE;"

   sSQL = "{call sp_test}"       

   Set en = rdoEnvironments(0)
   Set cn = en.OpenConnection("", rdDriverNoPrompt, False, sConn)         

   Set rs = cn.OpenResultset(sSQL, rdOpenStatic)

  for i = 1 to rs.Rowcount

   	Debug.Print (rs!last_name)
	rs.MoveNext

  next i

   rs.Close
   cn.close
   en.close

   Set rs = Nothing
   Set cn=nothing
   Set en=nothing

End Sub Received on Sat Mar 14 1998 - 00:00:00 CST