Posts by The Acnor

mine is not reading the correct infoi don't know why but its not reading the correct password what did I do Wrong!!!!

     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
                                If User.Text = "" Then
        MessageBox.Show("Please enter your Username to login", "Stjohn's chikwaka feed back", MessageBoxButtons.OK, MessageBoxIcon.Error)
        User.Focus()
    ElseIf email.Text = "" Then
        MessageBox.Show("Please enter your Email to login", "Stjohn's chikwaka feed back", MessageBoxButtons.OK, MessageBoxIcon.Error)
        email.Focus()
    ElseIf password.Text = "" Then
        MessageBox.Show("Please enter your Password to login", "Stjohn's chikwaka feed back", MessageBoxButtons.OK, MessageBoxIcon.Error)
        password.Focus()
    Else
        Dim conLogin As New OleDb.OleDbConnection("PROVIDER=Microsoft.ACE.Oledb.12.0; Data Source =C:\Users\chizhanjet4green\Documents\login.accdb")
        Dim commLogin As New OleDb.OleDbCommand("SELECT login.Username, login.Email, login.Password FROM Login WHERE user = Username AND email= Email  AND password= Password", conLogin)
        Dim userParam As New OleDb.OleDbParameter("Username", Me.User.Text)
        Dim emailParam As New OleDb.OleDbParameter("Email ", Me.email.Text)
        Dim PasswordParam As New OleDb.OleDbParameter("Password", Me.password.Text)
        commLogin.Parameters.Add(UserParam)
        commLogin.Parameters.Add(emailParam)
        commLogin.Parameters.Add(PasswordParam)

        commLogin.Connection.Open()

        Dim reader As OleDb.OleDbDataReader = commLogin.ExecuteReader()

        If reader.HasRows Then
            MessageBox.Show("Login successful!", "Stjohn's chikwaka feed back", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Welcome_To_The_Main_Menu_Of_The_System.Show()
            Me.Hide()
        Else
            MessageBox.Show("Invalid Details enter invalid! Please enter correct login data.", "Stjohn's chikwaka feed back", MessageBoxButtons.OK, MessageBoxIcon.Error)
            User.Clear()
            email.Clear()
            password.Clear()
            User.Focus()
        End If
        commLogin.Connection.Close()
    End If

End Sub