Espiya

Espiya Technology Boards => Computer Help => : jbj57 September 01, 2015, 02:00:27 AM

: Pa-help po sa Login sa vb6 please.
: jbj57 September 01, 2015, 02:00:27 AM

(http://s8.postimg.org/szb6niaz5/code1.jpg) (http://postimg.org/image/szb6niaz5/)

(http://s8.postimg.org/u0bfcmryp/code2.jpg) (http://postimg.org/image/u0bfcmryp/)

eto po ung codes ng login

tapos validation ng wrong password.


(http://s2.postimg.org/ymxwvzvcl/wrong_pass.jpg) (http://postimg.org/image/ymxwvzvcl/)


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


(http://s14.postimg.org/wdr2f0m3h/invalid_user.jpg) (http://postimg.org/image/wdr2f0m3h/)

tapos eto po ung code na tinuturo..



(http://s7.postimg.org/66cmexhfb/here.jpg) (http://postimg.org/image/66cmexhfb/)



Salamat po sa tutulong mga ka-espiya  smoking::

: Re: Pa-help po sa Login sa vb6 please.
: 호밀 크루즈 September 01, 2015, 03:03:55 AM

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".

: Re: Pa-help po sa Login sa vb6 please.
: maniac2999 September 01, 2015, 04:31:27 AM

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

: Re: Pa-help po sa Login sa vb6 please.
: napster_nap69 September 01, 2015, 11:20:14 AM

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.

: Re: Pa-help po sa Login sa vb6 please.
: napster_nap69 September 01, 2015, 11:22:25 AM

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.

: Re: Pa-help po sa Login sa vb6 please.
: jbj57 September 10, 2015, 11:09:09 AM

Salamat po sa mga tumulong.
 ::thanksforhelp