关于Oracle的存储过程问题?

Question

vb例子：
PL/SQL 代码:
CREATE OR REPLACE PACKAGE "PKG_TEST" AS
       TYPE myrcType IS REF CURSOR;
       FUNCTION get(strSQL VARCHAR) RETURN myrcType;
END pkg_test;CREATE OR REPLACE PACKAGE BODY "PKG_TEST" AS
    FUNCTION get(strSQL IN VARCHAR) RETURN myrcType IS
      rc myrcType;
    BEGIN
      OPEN rc FOR strSQL;
      RETURN rc;
    END get;
END pkg_test;VB 代码:
Private Sub Command1_Click()
On Error GoTo cursorErr:
    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim cmd As New ADODB.Command
    
    cnn.ConnectionString = "Provider=OraOLEDB.Oracle.1;Password=tiger;Persist Security Info=True;User ID=scott;Data Source=oraAny;Extended Properties=PLSQLRSet=1"
    cnn.Open
    
    With cmd
        .ActiveConnection = cnn
        .CommandType = adCmdText
        .CommandText = "{CALL scott.pkg_test.get(?)}"
        .Parameters.Append .CreateParameter("strSQL", adVarChar, adParamInput, 100, "SELECT * FROM TAB")
    End With
    
    rst.CursorType = adOpenStatic
    rst.LockType = adLockReadOnly
    Set rst.Source = cmd
    rst.Open
    
    MsgBox rst.RecordCount    Set rst = Nothing
    Set cmd = Nothing
    Exit SubcursorErr:
    Set cmd = Nothing
    Set rst1 = Nothing
    MsgBox Err.Description
End Sub

Answer 1

Delphi 例子:
做了一个 delphi 调用 Oracle 存储过程并返回数据集的例子.
一、先在 Oracle 建好
     CREATE OR REPLACE PACKAGE pkg_test
     AS
        TYPE myrctype IS REF CURSOR;
        PROCEDURE get(i_test INTEGER,p_rc OUT myrctype);
     END pkg_test;
    
    CREATE OR REPLACE PACKAGE BODY pkg_test
    AS
       PROCEDURE get(i_test INTEGER,p_rc OUT myrctype) IS
       BEGIN
         IF i_test = 0 THEN
            OPEN p_rc FOR SELECT SYSDATE FROM dual;
         ELSE
            OPEN p_rc FOR SELECT * FROM tab;
         END IF;
       END get;
    END pkg_test;二、用 delphi 调用
   建一个窗体,拖动控件 AdoConnection1 , ADOStoredProc1 和 Button1.
  procedure TForm1.Button1Click(Sender: TObject);
  begin
    try
      with ADOConnection1 do
      begin
        ConnectionString:=
             'Provider=OraOLEDB.Oracle.1;'
           + 'Password=密码;'
           + 'Persist Security Info=True;'
           + 'User ID=用户名;'
           + 'Data Source=数据库名;'
           + 'Extended Properties="PLSQLRSet=1;"';
        Open;
      end;
    except
      showMessage('连接不成功');
      exit;
    end;    try
      with ADOStoredProc1 do
      begin
        Connection := ADOConnection1;
        Parameters.Clear;
        ProcedureName:= 'pkg_test.get';
        Parameters.CreateParameter('p1',ftInteger,pdInput,10,1);
        Open;
      end;
    except
      showMessage('无法执行过程.');
    end;
  end;

Answer 2

首先很感谢chanet.我说的返回记录集不能使用别的编程语言.就在PL/SQL 中用.