PL / SQL code:
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 code:
Private submmand1_click ()
ON Error Goto Cursorerr:
DIM CNN
Ask adodb.connection
DIM RST
As new adodb.recordset
DIM CMD
Ask adodb.command
CNN.Connectionstring = "provider = oraoledb.racle.1; password = Tiger; persist security info = true; user id = scott; data source = oraany; extended profment = plsqlrset = 1"
CNN.Open
WITH CMD
.ActiveConnection = CNN
.Commandtype = adcmdtext
.Commandtext = "{CALL Scott.pkg_test.get (?)}"
.Parameters.Append .createParameter ("Strbarcode", Advarchar, Adpaaminput, 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
