The following is thanks to marktoml@hotmail.com (mark tomlinson)..
If you use ODBC here is a working example, but it requires the use of the 8.0.5.2.0 or later Oracle ODBC driver, and an 8.0.5 server.
''''
'''' 1) Create a form with 1 Text control (Text1) and 1 List Control (List1) and '''' 1 Button (btnExecute). '''' 2) The only code that you need is a Click method on your button. Here is the Code. '''' '''' Private Sub btnExecute_Click() ''''PL/SQL Code ''''=========== '''' ''''CREATE OR REPLACE package reftest as '''' cursor c1 is select ename from emp; '''' type empCur is ref cursor return c1%ROWTYPE; '''' Procedure GetEmpData(en in varchar2,EmpCursor in out empCur); ''''END; '''' '''' ''''CREATE OR REPLACE package body reftest as '''' Procedure GetEmpData ''''(en in varchar2,EmpCursor in out empCur) is ''''begin '''' open EmpCursor for select ename from emp where ename LIKE en; ''''end; ''''end; '''' Dim cn As New rdoConnection Dim qd As rdoQuery Dim rs As rdoResultset Dim cl As rdoColumn Static Number As Integer
List1.Clear
Number = 0 cn.Connect = "uid=scott; pwd=tiger; DSN=MSLANGORL;" ''''enable the MS Cursor library cn.CursorDriver = rdUseOdbc ''''Make the connection cn.EstablishConnection rdNoDriverPrompt
For Each cl In rs.rdoColumns If IsNull(cl.Value) Then List1.AddItem "(null)" '''' Debug.Print " "; cl.Name; "NULL"; Error trap for null fields Else List1.AddItem cl.Value '''' Debug.Print " "; cl.Name; " "; cl.Value; End If Next Debug.Print rs.MoveNext Loop Loop While rs.MoreResults cn.Close
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
