Cannot execute stored function.

Question

Hi Guys,
Please can someone tell me why a Package function when executed in SQL Developer returns the right value but, when called from VS 2008, it returns nothing. The function returns a VARCHAR2 and I can execute this procedure from SQL Developer without any problem. but when I call it from within my application, it returns nothing and no error is generated. Please what am I doing wrong?
FUNCTION VALIDATE_USERS( myUserName IN MHMS_USER.USERNAME%TYPE, myPassword IN MHMS_USER.PASSWORD%TYPE) RETURN VARCHAR2 AS
varUsername MHMS_USER.USERNAME%TYPE;
varPassword MHMS_USER.PASSWORD%TYPE;
varAccountStatus MHMS_USER.STATUS%TYPE;
varResult VARCHAR2(30);
BEGIN
SELECT MU.USERNAME, MU.PASSWORD, MU.STATUS
INTO varUsername, varPassword, varAccountStatus
FROM MHMS_USER MU
WHERE MU.USERNAME = myUsername;
IF varUsername = myUsername AND varPassword = myPassword AND varAccountStatus = 'LOCK' THEN
varResult := 'LOCK';
RETURN varResult;
ELSIF varUsername = myUsername AND varPassword = myPassword AND varAccountStatus = 'UNLOCK' THEN
varResult := 'VALID';
RETURN varResult;
ELSIF varUsername <> myUsername OR varPassword <> myPassword AND varAccountStatus = 'UNLOCK' THEN
varResult := 'INCORRECT LOGIN';
RETURN varResult;
END IF;
EXCEPTION WHEN NO_DATA_FOUND THEN
varResult := 'INVALID';
RETURN varResult;
END VALIDATE_USERS;
Dim iv As OracleParameter
Dim cmd As New OracleCommand("Validate_Users", cn)
Dim AccountStatus As String
cn.Open()
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.Add(New OracleParameter("varUsername", OracleDbType.Varchar2, 10, ParameterDirection.Input)).Value = txtUsername.Text
cmd.Parameters.Add(New OracleParameter("varPassword", OracleDbType.Varchar2, 20, ParameterDirection.Input)).Value = txtPassword.Text
cmd.ExecuteNonQuery()
iv = cmd.Parameters.Add(New OracleParameter("RetVal", OracleDbType.Varchar2, 20, ParameterDirection.ReturnValue))
AccountStatus = (cmd.Parameters("RetVal").Value.ToString())

Answer 1

Hi,
You need to add the return value first, and before you execute. Try this ..
iv = cmd.Parameters.Add(New OracleParameter("RetVal", OracleDbType.Varchar2, 20, ParameterDirection.ReturnValue))
cmd.Parameters.Add(New OracleParameter("varUsername", OracleDbType.Varchar2, 10, ParameterDirection.Input)).Value = txtUsername.Text
cmd.Parameters.Add(New OracleParameter("varPassword", OracleDbType.Varchar2, 20, ParameterDirection.Input)).Value = txtPassword.Text
cmd.ExecuteNonQuery()Hope it helps,
Greg