2024年2月20日发(作者：)

vb调用Oracle函数返回数据集的例子（转）

vb 调用 Oracle 函数返回数据集的例子,sql,sql教程,Oracle基础

PL/SQL 代码:

CREATE OR REPLACE PACKAGE "SCOTT"."PKG_TEST" AS

TYPE myrcType IS REF CURSOR;

FUNCTION get(strbarcode VARCHAR) RETURN myrcType;

END pkg_test;

CREATE OR REPLACE PACKAGE BODY "SCOTT"."PKG_TEST"

AS

FUNCTION get(strbarcode IN VARCHAR) RETURN myrcType

IS

rc myrcType;

BEGIN

OPEN rc FOR strbarcode;

RETURN rc;

END get;

END pkg_test;

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

VB 代码:

Private Sub Command1_Click()

On Error GoTo cursorErr:

Dim cnn As New tion

Dim rst As New set

Dim cmd As New d

tionString

"Provider=.1;Password=tiger;Persist

=

Security

Info=True;User

With cmd

ID=scott;Data Source=oraAny;Extended

Properties=PLSQLRSet=1"

.ActiveConnection = cnn

.CommandType = adCmdText

.CommandText = "{CALL _(?)}"

.

End With

Type = adOpenStatic

pe = adLockReadOnly

Set = cmd

MsgBox Count

Set rst = Nothing

Set cmd = Nothing

Exit Sub

cursorErr:

Set cmd = Nothing

Set rst1 = Nothing

MsgBox ption

End Sub

.CreateParameter("strBarCode",

adVarChar, adParamInput, 100, "SELECT * FROM TAB")