VB 调用 Oracle 函数返回数据集的例子

VB 调用 Oracle 函数返回数据集的例子.

---------------------------------------------------------------------------------------

PL/SQL 代码:

CREATE OR REPLACE PACKAGE "PKG_TEST" AS

   TYPE myrcType IS REF CURSOR;

   FUNCTION get(strbarcode VARCHAR) RETURN myrcType;

END pkg_test;

CREATE OR REPLACE PACKAGE BODY "PKG_TEST" AS

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"

  .Parameters.Append .CreateParameter("strBarCode", adVarChar, adParamInput, 100,

"SELECT * FROM TAB")

  End With

 

  rst.CursorType = adOpenStatic

  rst.LockType = adLockReadOnly

  Set rst.Source = cmd

  rst.Open

 