vb 調(diào)用 Oracle 函數(shù)返回數(shù)據(jù)集的例子

2024-07-21 02:24:55

字體：大中小

供稿：網(wǎng)友

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

上一篇：一個將15的身份證號升為18位的函數(shù)(VB)

下一篇：VB與ORACLE數(shù)據(jù)庫中的日期轉(zhuǎn)換