🔒 Closed Help naman dyan sa vb6

[BlacksheepHD]

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

 

[rayaj076]

logic nyan pag Error yung password mag bibilang sya gang 3 then mala lock yung account pero ewan ko kung anu gusto ming gawin

 

[BlacksheepHD]

logic nyan pag Error yung password mag bibilang sya gang 3 then mala lock yung account pero ewan ko kung anu gusto ming gawin

i mean saan ko banda ilalagay yung code para kapag nakatatlong error na yung user biglang mag shutdown yung program

 

[rayaj076]

Declare ka ng variable na maghahandle nung count example variable (a=0)
if wrongpass then
code here (Check value of a)
if value of a is less than 3 add 1 sa current val
else closetheprogram
else messagebox success login


pag aralan mo lang nested if else

 

[rayaj076]

tinatanggal pala whitespace sa comment intindihin mo nalang

 

[Splakaboom]

Lagay ka ng counter boss

 

[Splakaboom]

If loginado.Recordset.EOF Then
MsgBox "Failed to login", vbCritical, "Message"
Welcome.Show
txtuser.Text = ""
txtpass.Text = ""
Lagay ka dito ng a+1


Gaya nung sinabi ng nasa taas ko

 

[GreyPhantom]

Sa school po ba yan tinuturo ang vb6??