hi,

Fist of all why are you using odbc, can't you use Oracle oledb provider.
This error might be bcoz you may have to pass some dummy value to the youroutvalue as it is of type inputoutput.

Prashant

hi prashant,
thank you very much. the entire program is now running successfully..

and passing that dummy value worked. it was silly enough for me to ignore that it was an IN OUT parameter.

thank you once again.

hope you would help me in future too.

thanks and regards,
kalyan sarkar

Hi Mr. Prasanth,

This is Balu. Very nice meeting you...

As per the below discussions you and Mr.Kalyan, you had suggested that "Oracle Function" has to change as "Oracle Procedure with OUT parameter".

Can't we call Oracle Function directly from VB without converting as procedure? I have this requirement in my project. Please do needful in this regards?

hi,
if u want to call a ORACLE FUNCTION IN VB USING ADO
follow this..

Dim CmdFun as NEW ADODB.COMMAND
Dim Param_Given_Day As ADODB.PARAMETER
Dim Param_Centre As ADODB.PARAMETER
Dim Param_Return_Value As ADODB.PARAMETER
Dim Conn As NEW ADODB.CONNECTION


Conn.Open <give the connection string>
With CmdFun
    .ActiveConnection = Conn
    .CommandType = adCmdStoredProc
    .CommandText = "ValidWorkingDay" 'Name of the ORACLE Function, in String
    .CommandTimeOut = 10
End With

Set Param_Given_Day = New ADODB.PARAMETER
Set Param_Centre = New ADODB.PARAMETER
Set Param_Return_Value = New ADODB.PARAMETER

With Param_Given_Day
    .Direction = adParamInput
    .Value = "give the input value for the parameter, here"
End With

With Param_Centre

CREATE OR REPLACE function
ValidWorkingDay(given_day date,centre varchar2)
return boolean

Regards,
Raghu

.....
Continuation from the above reply (sorry i accidentally pressed the submit button while posting the answer)....

With Param_Centre
     .Direction = adParamInput
    .Value = "give the input value for the parameter, here"
End With

With Param_Return_Value
    .Direction = adParamReturnValue
End With

'First append the return value parameter to the command object's parameters 'collection and then append the rest of the parameter objects in order

CmdFun.Parameters.Append Param_Return_Value
CmdFun.Parameters.Append Param_Given_Day
CmdFun.Parameters.Append Param_Centre

CmdFun.Execute 'Executing the function using the command object

'Getting the Return Value of the Function From the Parameter Object
MsgBox "Return value is : " & Param_Return_Value.value


Hope this would help u solve ur problem.. pls set the type and size property for all the parameter objects as required by the oracle function.

any queries mail or post

ALL THE BEST FRIEND



Regards,
Raghu