Oracle Function with IN type as parameter mode.
========================================
- create or replace function mydatefun(dt date) return varchar2
-
as
-
mdate varchar2(50);
-
begin
-
select to_char(dt,'ddspth month year') into mdate from dual;
-
return mdate;
-
end;
To call the above Oracle Function from VB.
================================
-
'general declaration
-
Dim CON As New ADODB.Connection
-
Dim PR As New ADODB.Parameter
-
Dim PR1 As New ADODB.Parameter
-
-
Private Sub Command1_Click()
-
CON.Open "Provider=MSDAORA.1;Password=DEBASIS;User ID=DEBASIS;Data Source=OM;Persist Security Info=True"
-
Dim CMD As New ADODB.Command
-
Dim RS As ADODB.Recordset
-
CMD.ActiveConnection = CON
-
CMD.CommandType = adCmdText
-
'DT---This is the datepicker control
-
CMD.CommandText = "select mydatefun(to_date('" & DT.Value & "','mm/dd/yyyy')) from dual"
-
Set RS = CMD.Execute
-
If RS.EOF = False Then
-
If Not IsNull(RS(0)) Then
-
Text2.Text = RS(0)
-
Else
-
Text2.Text = "Invalid date"
-
End If
-
End If
-
CMD.Cancel
-
CON.Close
-
End Sub
