Hi
I have a appliction which needs to call a funtion which is written in oracle. I can call a function from ado, but if the function resides in a oracle package, how do we refer to that function. do we have to refer the package name.function. here is the code which i wrote to call a function
Private Sub Command1_Click()
Dim st1 As Integer
Dim st2 As Integer
Dim str3 As Integer
Dim cn As ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
Dim param1 As ADODB.Parameter
Dim param2 As ADODB.Parameter
Dim param3 As ADODB.Parameter
Dim fldloop As ADODB.Field
If IsNumeric(Text1.Text) = True Then
str1 = Text1.Text
Else
MsgBox "Enter NUMBER in First Text Box"
End
End If
If IsNumeric(Text2.Text) = True Then
str2 = Text2.Text
Else
MsgBox "Enter NUMBER in First Text Box"
End
End If
' Connect using the SQLOLEDB provider.
Set cn = New ADODB.Connection
provStr = "Data Source=ots_meas;Database=zvprd0;user id=promis;pwd=promisdev;Trusted_Connection=yes"
cn.Open provStr, "promis", "promisdev"
Set cmd.ActiveConnection = cn
cmd.CommandText = "select plus(" & str1 & "," & str2 & ") from dual"
Debug.Print cmd.CommandText
cmd.CommandType = adCmdText
Set rs = cmd.Execute()
If rs.State = adStateClosed Then
MsgBox "RECORD SET CLOSED"
End
End If
Text3.Text = rs.Fields(0)
Set cn = Nothing
Set cmd = Nothing
Set rs = Nothing
Set param1 = Nothing
Set param2 = Nothing
Set param3 = Nothing
Set fldloop = Nothing
end sub
