Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1281
  • Last Modified:

Option Strict On disallows operands of type Object for operator '<>'. Use the 'Is' operator to test for object identity.

<%@ Page Language="VB" Explicit="True" Strict-"True" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.SqlClient" %>
<script runat="server">
      Public Sub btnLogin_Click(sender As Object, e As EventArgs)
            If Not Page.IsPostBack Then
                  Exit Sub
            End If
            
          Dim con As SqlConnection
          Dim cmd As SqlCommand
          Dim rdr As SqlDataReader
          Dim str As String
        Dim booOk As Boolean = False

          con = New SqlConnection("Data Source=9.9.9.9;User ID=fffff;Password=fffff;Initial Catalog=ccccc")
            con.Open
            str = "Select * FROM tblUsers WHERE username = '" & txtUsername.Value & "' "
            
            cmd = New SqlCommand(str, con)
            
              rdr = cmd.ExecuteReader
              
              
                        If Not rdr.Read Then
                        lblErrMsg.Text = "Enter a valid User ID!"
                    ElseIf rdr.Item("Password") <> txtPassword.Value Then
                        lblErrMsg.Text = "Password is incorrect!"
                    Else
                             booOk = True
                    End If                 

                  rdr.Close
                cmd.Dispose
                con.Close


        If booOk Then
            FormsAuthentication.RedirectFromLoginPage(txtUsername.Value ,False)
        End If
    End Sub
</script>


<html>
<head>
    <link rel="stylesheet" type="text/css" href="KB/inc/Format.css">
      <title>IT Knowledge Base</title>
</head>
<body>
    <form method="post" runat="server">
        <h1 align="center">
              IT Knowledge Base
        </h1>
            <table class="normalbold" width="350" border="0" cellspacing="0" cellpadding="10" align="center" bgcolor="#cccccc">
                <tr align="left">
                    <td valign="top">
                        Username:
                    </td>
                    <td valign="top">
                          <input type="text" id="txtUsername" runat="server"></input>
                    </td>
                </tr>
                <tr align="left">
                    <td valign="top">
                        Password:
                    </td>
                    <td valign="top">
                          <input type="text" id="txtPassword" runat="server"></input>
                    </td>
                </tr>
                <tr>
                    <td colspan="3" align="center">
                        <asp:Label ID="lblErrMsg" Runat="Server" CssClass="err" Visible="True"/>
                            <br><br>
                        <input type="submit" id="btnLogin" value="Login" OnServerClick="btnLogin_Click" runat="server"></input>
                    </td>
                </tr>
            </table>
    </form>
</body>
</html>

==================================

When I run the webpage I get the following error:

BC32013: Option Strict On disallows operands of type Object for operator '<>'. Use the 'Is' operator to test for object identity.

It is referring to the statement that has 'ElseIf rdr.Item("Password") <> txtPassword.Value Then'

==================================

So I looked up the IsNot command and replaced the <> with it and got this error:

Option Strict On disallows implicit conversions from 'System.Object' to 'Boolean'.

==================================

What is my best bet to do?  rdr.Item and txtPassword will return a string and not a boolean wouldnt it?  But the result of the comparison would return a boolean?  Please help.  Thanks.

0
molard
Asked:
molard
  • 3
  • 3
1 Solution
 
Guy Hengel [angelIII / a3]Billing EngineerCommented:
what about this:

 ElseIf NOT( rdr.Item("Password") = txtPassword.Value) Then
0
 
molardAuthor Commented:
Thanks for the quick reply!

It gives me the following error:

Compilation Error
Description: An error occurred during the compilation of a resource required to service this request. Please review the following specific error details and modify your source code appropriately.

Compiler Error Message: BC32013: Option Strict On disallows operands of type Object for operator '='. Use the 'Is' operator to test for object identity.

Source Error:

 

Line 25:                         If Not rdr.Read Then
Line 26:                         lblErrMsg.Text = "Enter a valid User ID!"
Line 27:                     ElseIf NOT rdr.Item("Password") = txtPassword.Value) Then
Line 28:                         lblErrMsg.Text = "Password is incorrect!"
Line 29:                     Else
 
==================================

I know that I can turn Option Strict off and it will work fine.  I wanted to get it working with Option Strict since I already have my other pages working fine with it.

==================================

I tried to take the advice it gave me and replace the = with Is.  It wouldnt let me log in and told me the Password is incorrect which references to those same lines of code.  Do you know anything else I might could try?  Thanks again!
0
 
molardAuthor Commented:
I tried it exactly the way you posted which was:

ElseIf NOT( rdr.Item("Password") = txtPassword.Value) Then

and I also took out the ( ) on the outside and tried it.  It gave me the same error.
0
Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

 
Guy Hengel [angelIII / a3]Billing EngineerCommented:

ElseIf NOT( rdr.Item("Password").Value = txtPassword.Value) Then
0
 
Guy Hengel [angelIII / a3]Billing EngineerCommented:
resp use the toString():

ElseIf NOT( rdr.Item("Password").toString() = txtPassword.Value.toString()) Then
0
 
molardAuthor Commented:
The statement:

ElseIf NOT( rdr.Item("Password").toString() = txtPassword.Value.toString()) Then

worked great!  Thanks for your help!
0

Featured Post

How to Use the Help Bell

Need to boost the visibility of your question for solutions? Use the Experts Exchange Help Bell to confirm priority levels and contact subject-matter experts for question attention.  Check out this how-to article for more information.

  • 3
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now