having problem with my login form with data log it keeps stucking need help please thank you
What I have tried:
Private Sub loginbtn_Click(sender As System.Object, e As System.EventArgs) Handles loginbtn.Click
sqlconn = New MySqlConnection
sqlconn.ConnectionString = "server=localhost;user id=root;password=;database=issa"
Dim reread As MySqlDataReader
Try
sqlconn.Open()
Dim query As String
query = "SELECT * from usersetup where Username='" & usernametxtbx.Text & "'and Password = '" & passtxbx.Text & "'"
commando = New MySqlCommand(query, sqlconn)
reread = commando.ExecuteReader
Dim coount As Integer = 0
While reread.Read
coount = coount + 1
End While
strSQL = "Insert into datalogin (Username, Date, Time) values ('" & usernametxtbx.Text & "','" & date1.Text & "', '" & time1.Text & "')"
Dim dd As New MySqlDataAdapter(strSQL, CONNECTION)
dd.Fill(dss)
usernametxtbx.Text = ""
passtxbx.Text = ""
If coount = 1 Then
If (reread.Item("Restriction").ToString()) = "Admin" Then
MessageBox.Show(" Login Successfull as ADMIN. . . ")
officialpage.Show()
Me.Hide()
Else
MessageBox.Show(" Login Successfull as GUEST. . . ")
guestpublic.Show()
Me.Hide()
End If
ElseIf coount = 1 Then
MessageBox.Show("Record Duplicated...")
Else
MessageBox.Show("Log in failed... Either Username or Password is not correct...")
End If
sqlconn.Close()
Catch ex As Exception
End Try
End Sub