vb 调用oracle函数返回值,vb 调用 Oracle 函数返回数据集的例子-数据库专栏,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 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(“strbarcode”, 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 sub

cursorerr:

set cmd = nothing

set rst1 = nothing

msgbox err.description

end sub