Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database1.mdf;Integrated Security=True;User Instance=True")
Dim cmd As SqlCommand = New SqlCommand("SELECT * FROM Staff WHERE username = '" & UsernameTextBox.Text & "' AND password = " & PasswordTextBox.Text, con)
con.Open()
Dim sdr As SqlDataReader = cmd.ExecuteReader()
If (sdr.Read() = True) Then
MessageBox.Show("The user is valid!")
Me.Hide()
Form17.ShowDialog()
con.Close()
Else
MessageBox.Show("Invalid username or password!")
End If
End Sub
comment
'where i do wrong,please help,your kind help much more appreciated.
Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database1.mdf;Integrated Security=True;User Instance=True")
Dim cmd As SqlCommand = New SqlCommand("SELECT * FROM Staff WHERE username = '" & UsernameTextBox.Text & "' AND password = " & PasswordTextBox.Text, con)
con.Open()
Dim sdr As SqlDataReader = cmd.ExecuteReader()
If (sdr.Read() = True) Then
MessageBox.Show("The user is valid!")
Me.Hide()
Form17.ShowDialog()
con.Close()
Else
MessageBox.Show("Invalid username or password!")
End If
End Sub
comment
'where i do wrong,please help,your kind help much more appreciated.