Topic: Pa-help po sa Login sa vb6 please.

[jbj57]

eto po ung codes ng login

tapos validation ng wrong password.





ngayon po ang problema ko po ehh yung sa username pag-wala sa database ung username na na-input.




tapos eto po ung code na tinuturo..







Salamat po sa tutulong mga ka-espiya 

[호밀 크루즈]

Di ako ganu maranunong sa VB since PHP ang nakasanayan ko. Pero i think sa ibaba ng error code na tinuturo nya, after ng "THEN" lagya mo lang ng something like msgbox "Username doesn't exist".

[maniac2999]

www.vbforums.com/showthread.php?580097-SOLVED-Runtime-Error-3021-EOF-BOF-Creating-customer-msg-to-stop-error-3021

[napster_nap69]

Medyo hindi ko maintindihan yung code pero using adodb mas madali.

1st way.

Dim cn as new ADODB.Connection
Dim rs as new ADODB.Recordset

Hindi ko kabisado yung code pero Initiate mo yung connectionstring then eto

cn.Open
rs.Open "select * from tblLogin where username = '" & txtusername.text & "'", cn, adOpenDynamic, adLockOptimistic

If rs.EOF then
'Ibig sabihin neto wala syang nakita na ganun username

Msgbox 'ikaw na bahala sa msg
rs.Close
cn.Close

Else
'Eto naman pag existing, dito mo check kung tama yung password

  If rs("password") = txtpassword.Text then
     'Eto pag tama pass. Ikaw na bahala basta iclose mo both rs and cn
  Else
    'Eto pag mali. Iclose mo din rs at cn
  End If

End If




Sorry tinype ko lang code gamit cp. Sana nakatulong.

[napster_nap69]

Sorry yang way na lang na yan gamitin mo. Yung 2nd way is halos same. Naiba lang, select mo lahat ng users then eto next rs.Find "username='" & txtusername.Text & "'" yan then ituloy mo na ulit yung rs.eof etc etc.

[jbj57]

Salamat po sa mga tumulong.