- Joined
- Jan 11, 2016
- Posts
- 775
- Reaction
- 124
- Points
- 374
Private Sub loginbtn_Click()
loginado.RecordSource = "Select * from Log where Username ='" + txtuser.Text + "' and password='" + txtpass.Text + "' "
loginado.Refresh
If loginado.Recordset.EOF Then
MsgBox "Failed to login", vbCritical, "Message"
Welcome.Show
txtuser.Text = ""
txtpass.Text = ""
Else
MsgBox "Login Successful", vbInformation, "Message"
Main.Show
Welcome.Hide
End If
End Sub
==================================================
ano dapat ilagay ko para maging 3 attempt lang yung login? Hindi ko kase mapagana kapag may database eh. vb6 din to kaya hirap gawin. Pahelp naman po sana salamatttt
loginado.RecordSource = "Select * from Log where Username ='" + txtuser.Text + "' and password='" + txtpass.Text + "' "
loginado.Refresh
If loginado.Recordset.EOF Then
MsgBox "Failed to login", vbCritical, "Message"
Welcome.Show
txtuser.Text = ""
txtpass.Text = ""
Else
MsgBox "Login Successful", vbInformation, "Message"
Main.Show
Welcome.Hide
End If
End Sub
==================================================
ano dapat ilagay ko para maging 3 attempt lang yung login? Hindi ko kase mapagana kapag may database eh. vb6 din to kaya hirap gawin. Pahelp naman po sana salamatttt