Risolto errore NullReferenceException

tremors2it

Utente junior
9 Gennaio 2021
37
6
2019
7
buon giorno nel progetto login in SQL che sto realizzando quando lo avvio e metto le credenziali mi da come da titolo errore ma non riesco a capire su dove intervenire oddio VS mi dice l'errore ma non riesco a capirlo...

Visual Basic:
Public Class Login
    Public Property ExecuteSQL As Object

    Private Sub Login_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        utenteTextBox.Select()
    End Sub

    Private Sub annullaButton_Click(sender As Object, e As EventArgs) Handles annullaButton.Click
        Me.Close()
    End Sub

    Private Sub registrazioneLinkLabel_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles registrazioneLinkLabel.LinkClicked
        Registrazione.ShowDialog()
    End Sub

    Private Sub passwordCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles passwordCheckBox.CheckedChanged

        With passwordCheckBox

            If .Checked Then
                passwordTextBox.UseSystemPasswordChar = False
            Else
                passwordTextBox.UseSystemPasswordChar = True
            End If
        End With
    End Sub

    Private Sub loginButton_Click(sender As Object, e As EventArgs) Handles loginButton.Click

        If Not String.IsNullOrEmpty(utenteTextBox.Text) And
                Not String.IsNullOrEmpty(passwordTextBox.Text) Then
            Dim SQL As String = String.Empty
            SQL &= "SELECT ID FROM UserLogin"
            SQL &= "WHERE Username = '" & utenteTextBox.Text & "'"
            SQL &= "AND Password = '" & passwordTextBox.Text & "'"

            Dim UserData As DataTable = ExcuteSQL(SQL)

            If UserData.Rows.Count > 0 Then <--- QUA MI DA L'ERRORE

                MsgBox("Utente o Password errati", MsgBoxStyle.Critical, "Esempio LoginSQL")
                utenteTextBox.Focus()
                utenteTextBox.SelectAll()
            Else
                utenteTextBox.Clear()
                passwordTextBox.Clear()
                passwordCheckBox.Checked = False

                Me.Hide()

                Dim Princi As New Principale
                Princi.ShowDialog()
                Princi = Nothing
                Me.Show()
                Me.utenteTextBox.Select()

            End If

            MsgBox("Inserire Utente o Password.", MsgBoxStyle.Critical, "Esempio LoginSQL")
            utenteTextBox.Select()
        End If
    End Sub
End Class
a voi più esperti mi potete dire dove intervenire? GRAZIE
 

Sostieni ForumExcel

Aiutaci a sostenere le spese e a mantenere online la community attraverso una libera donazione!