Hi i have a problem with this code i use it on form_load works ok if internet connection but if no internet connection my program crash can you please help me fix it?
sign_in.TextBoxPassword.UseSystemPasswordChar = True
sign_in.TextBoxUsername.Text = My.Settings.username
sign_in.TextBoxPassword.Text = My.Settings.password
sign_in.CheckBox1.Checked = My.Settings.checkbox1
' before the user can login we need to check if the textboxes are empty
' if they contains the default values( username & password )
' check if this user exist in the database
Dim conn As New MY_CONNECTION()
Dim adapter As New MySqlDataAdapter()
Dim table As New DataTable()
Dim command As New MySqlCommand("SELECT `username`, `password` FROM `tbl_users` WHERE `username` = @usn AND `password` = @pass", conn.getConnection())
command.Parameters.Add("@usn", MySqlDbType.VarChar).Value = sign_in.TextBoxUsername.Text
command.Parameters.Add("@pass", MySqlDbType.VarChar).Value = sign_in.TextBoxPassword.Text
If sign_in.TextBoxUsername.Text.Trim() = "" Or sign_in.TextBoxUsername.Text.Trim().ToLower() = "username" Then
ElseIf sign_in.TextBoxPassword.Text.Trim() = "" Or sign_in.TextBoxPassword.Text.Trim().ToLower() = "password" Then
Else
adapter.SelectCommand = command
adapter.Fill(table)
If table.Rows.Count > 0 Then
LoginToolStripMenuItem.Enabled = False
LoginToolStripMenuItem.Visible = False
LogOutToolStripMenuItem.Visible = True
LogOutToolStripMenuItem.Enabled = True
TVToolStripMenuItem.Visible = True
Else
MessageBox.Show("This Username Or/And Password Doesn't Exists", "Login Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End If
sign_in.TextBoxPassword.UseSystemPasswordChar = True
sign_in.TextBoxUsername.Text = My.Settings.username
sign_in.TextBoxPassword.Text = My.Settings.password
sign_in.CheckBox1.Checked = My.Settings.checkbox1
' before the user can login we need to check if the textboxes are empty
' if they contains the default values( username & password )
' check if this user exist in the database
Dim conn As New MY_CONNECTION()
Dim adapter As New MySqlDataAdapter()
Dim table As New DataTable()
Dim command As New MySqlCommand("SELECT `username`, `password` FROM `tbl_users` WHERE `username` = @usn AND `password` = @pass", conn.getConnection())
command.Parameters.Add("@usn", MySqlDbType.VarChar).Value = sign_in.TextBoxUsername.Text
command.Parameters.Add("@pass", MySqlDbType.VarChar).Value = sign_in.TextBoxPassword.Text
If sign_in.TextBoxUsername.Text.Trim() = "" Or sign_in.TextBoxUsername.Text.Trim().ToLower() = "username" Then
ElseIf sign_in.TextBoxPassword.Text.Trim() = "" Or sign_in.TextBoxPassword.Text.Trim().ToLower() = "password" Then
Else
adapter.SelectCommand = command
adapter.Fill(table)
If table.Rows.Count > 0 Then
LoginToolStripMenuItem.Enabled = False
LoginToolStripMenuItem.Visible = False
LogOutToolStripMenuItem.Visible = True
LogOutToolStripMenuItem.Enabled = True
TVToolStripMenuItem.Visible = True
Else
MessageBox.Show("This Username Or/And Password Doesn't Exists", "Login Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End If