Using Oracle package.

Question

Hi all,
I have a package in my oracle 10g release 2 database. I have a function within the package. My question is, how do I retrieve the return value of the function. I am new to VB.NET having moved from Oracle Forms to VB.NET
Thanks in advance
Michael

Answer 1

Sorry Guys I did not include the code in this thread.
This is the function I am trying to run.
CREATE OR REPLACE PACKAGE BODY Weblogica_Systems
FUNCTION User_Exist(varUSERNAME IN VARCHAR2, varPASSWORD IN VARCHAR2)
     RETURN INTEGER
     AS
     myUSERNAME VARCHAR2(8);
     myPASSWORD VARCHAR2(6);
     myString1 VARCHAR2(40) := 'This User does not exist';
User_Flag NUMBER;
BEGIN
     SELECT USERNAME, PASSWORD
     INTO myUSERNAME, myPASSWORD
     FROM USERS
     WHERE USERNAME = varUSERNAME
     AND PASSWORD = varPASSWORD;
     IF varUSERNAME != myUSERNAME AND varPASSWORD != myPASSWORD THEN
     User_Flag := 2;
     ELSE
     User_Flag := 1;
     END IF;
     RETURN User_Flag;
     EXCEPTION WHEN NO_DATA_FOUND THEN
     dbms_output.put_line('User Does Not Exist');
     WHEN OTHERS THEN
     RAISE_APPLICATION_ERROR(-20001, 'An error was encountered - '||SQLCODE||' - ERROR - '||SQLERRM);
END User_Exist;
This is the VB.NET code I am using in calling the function
Dim oraConnect As New OracleConnection("Data Source=DEVELOPM; User id=VS_DEVELOPER; Password=f00tball;")
Dim myCMD As New OracleCommand("Weblogica_Systems" & ".User_Exist", oraConnect)
Dim Val As Integer
     Try
Admin.stbMain.Text = "Connecting...."
oraConnect.Open()
Admin.stbMain.Text = "Ready"
myCMD.Connection = oraConnect
myCMD.CommandType = CommandType.StoredProcedure
myCMD.CommandText = "weblogica_systems.User_exist"
myCMD.Parameters.Add(New OracleParameter("varUSERNAME", OracleDbType.Varchar2, 2000, ParameterDirection.Input)).Value = "MUMOETUK" 'txtUsername.Text
myCMD.Parameters.Add(New OracleParameter("varPASSWORD", OracleDbType.Varchar2, 2000, ParameterDirection.Input)).Value = "TESTME" 'txtPassword.Text
myCMD.Parameters.Add(New OracleParameter("RetVal", OracleDbType.Int32, 20, ParameterDirection.ReturnValue))
myCMD.ExecuteNonQuery()
Val = myCMD.Parameters("RetVal").Value
     Catch oraErr As OracleException
MessageBox.Show(oraErr.Message)
Catch ExceptionErr As Exception
MessageBox.Show(ExceptionErr.Message, "Weblogica Data Systems [Login Error] ")
End Try
I am getting an error when I run this code. ORA-06503: PL/SQL Function return without value. I know the function is returning a value because I have tested in PL/SQL and it worked. Can anybody please help.