Visual Basic

<pre>package cms is
    -- 1 => OK, 0 => ERROR
  

    function validateUser(  username    in  cms_user.cu_username%TYPE,
                            passwd      in  varchar2,
                            errmsg      out varchar2 )
                    return number;


END;

<pre>Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        
        conn.Open()

   
        Dim oracmd As New OracleCommand
        oracmd.Connection = conn
        oracmd.CommandText = "cms.validateUser( username, passwd, msg )"
        oracmd.CommandType = CommandType.StoredProcedure
        oracmd.Parameters.Add(New OracleParameter("username", OracleType.VarChar)).Value = TxtUsername.Text.Trim
        oracmd.Parameters.Add(New OracleParameter("passwd", OracleType.VarChar)).Value = TxtPassword.Text.Trim
        '  oracmd.Parameters.Add(New OracleParameter("msg", OracleType.VarChar)).Value = Label1.Text.Trim
      

        oracmd.Parameters.Add("msg", OracleType.VarChar).Value = Label1.Text
       

        oracmd.Parameters("msg").Direction = ParameterDirection.Output
        oracmd.ExecuteNonQuery()
        conn.Close()

   

    End Sub

ORA-06550: line 1, column 7:
PLS-00801: internal error [22503]
ORA-06550: line 1, column 7:
PL/SQL: Statement ignored