Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim con As New System.Data.OleDb.OleDbConnection("Provider = Microsoft.jet.OleDB.4.0;Data Source = " & Application.StartupPath & "\datastorage.mdb;") Dim cmd As OleDbCommand = New OleDbCommand( _ "SELECT * FROM logininfo WHERE Username = '" & _ TextBox1.Text & "' AND [Password] = '" & txtPassword.Text & "' ", con) con.Open() Dim sdr As OleDbDataReader = cmd.ExecuteReader() If (sdr.Read() = True) Then MessageBox.Show("You are Now Logged In") frm1.Show() TextBox1.Focus() TextBox1.Clear() txtPassword.Clear() Me.Hide() Else MessageBox.Show("Invalid Username or Password!") End If End Sub
Application.Exit() End If Code for show password check box: <vbnet> If CheckBox1.Checked = True Then txtPassword.PasswordChar ="" Else txtPassword.PasswordChar = "•" End If
Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. After downloading it, you will need a program like Winzip to decompress it.
Virus note: All files are scanned once-a-day by SourceCodester.com for viruses, but new viruses come out every day, so no prevention program can catch 100% of them.
FOR YOUR OWN SAFETY, PLEASE:
1. Re-scan downloaded files using your personal virus checker before using it.
2. NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.