hi prashant,
i am posting the procedure and the
VB code for your convenience
PROCEDURE........
CREATE OR REPLACE procedure prc_validworkingday(pDate in date,pCentre in varchar2, pValid in out varchar2)
as
pTmp boolean := false;
begin
pTmp:=validworkingday(pDate,pCentre);
if pTmp then
pValid:='True';
else
pValid:='false';
end if;
end;
/
validworkingday is the earlier function i was talking about.
VB CODE.......
Private Sub ValidWorkingDay() 'As String '(given_day As Date, centre As String)
'Dim sSql As String
'Dim sConn As String
Dim ValidWorkingDay As Boolean
Dim objConn As New ADODB.Connection
Dim objCmd As New ADODB.Command
Dim objRs As New ADODB.Recordset
'Set objConn = GetNewConnection
objConn.Open ("DSN=*****;UID=******;PWD=******;")
objCmd.CommandText = "prc_ValidWorkingDay"
objCmd.CommandType = adCmdStoredProc
objCmd.ActiveConnection = objConn
'MsgBox Date
Set objParm1 = objCmd.CreateParameter("given_day", adDate, adParamInput, , Date)
objCmd.Parameters.Append objParm1
Set objParm2 = objCmd.CreateParameter("centre", adBSTR, adParamInput, , "CAL")
objCmd.Parameters.Append objParm2
Set objParm3 = objCmd.CreateParameter("youroutvalue", adBSTR, adParamInputOutput)
objCmd.Parameters.Append objParm3
'Set objRs = objCmd.Execute
objCmd.Execute '**** i am getting the error here
objConn.Close
Set objConn = Nothing
Set objCmd = Nothing
End Sub
what do i do now?
thanks and regards,
kalyan sarkar