Hi,
Please can tell me, How do I a call an Oracle Function from a Visual Basic program using oraOLEDB.Oracle Provider.
FUNCTION test(
User_Id IN NUMBER DEFAULT NULL,
name IN VARCHAR2 DEFAULT NULL,
RC1 IN OUT Omwb_emulation.globalPkg.RCT1)
RETURN INTEGER
AS
User_Id_ NUMBER(10,0) := User_Id;
name_ VARCHAR2(64) := name;
StoO_selcnt INTEGER;
StoO_error INTEGER;
StoO_rowcnt INTEGER;
StoO_crowcnt INTEGER := 0;
StoO_fetchstatus INTEGER := 0;
StoO_errmsg VARCHAR2(255);
StoO_sqlstatus INTEGER;
CurPrivs NUMBER(10,0);
obj_id NUMBER(10,0);
tempVar1 NUMBER :=1;
BEGIN
...
END test;
I tried
Public Function finddocbyname(ByRef rst As ADODB.Recordset, ByVal Name) As Long
Dim par As ADODB.Parameter
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
cmd.ActiveConnection = db
cmd.CommandText = "sa.find_package.test "
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("User_Id", adInteger, adParamInput, 4, 5)
'cmd.Parameters.Append par
cmd.Parameters.Append cmd.CreateParameter("Name", adVarChar, adParamInput, 64, Name)
'cmd.Parameters.Append par
'cmd.CommandText = "{call sa.find_package.spcxdb_finddocbyname (?, ?)}"
Set rst = cmd.Execute
End Function
but
I tried the code, but I get error
PLS-00221:test:StoredFunctionNAme is not a procedure or is
undefined.
Please help me.