SinggahDapur
20th November 2011, 01:09 PM
agan-agan...tolong bantuin coding ane ini..
mau bikin listing login dengan adodc+acces..
nii listing ane...tapi gag jalan juga..
yg salah yg mana nii gan...pusinkkhttp://static.kaskus.us/images/smilies/bingungs.gif
Private Sub Command1_Click()
Adodc1.RecordSource = "select*from login"
If Text1 = Adodc1.Recordset.Fields("userid") And Text2 = Adodc1.Recordset.Fields("password") Then
menu.Show
Else
MsgBox "userid dan password tidak valid", vbOKOnly, "Peringatan"
End If
End Sub
</div>
mau bikin listing login dengan adodc+acces..
nii listing ane...tapi gag jalan juga..
yg salah yg mana nii gan...pusinkkhttp://static.kaskus.us/images/smilies/bingungs.gif
Private Sub Command1_Click()
Adodc1.RecordSource = "select*from login"
If Text1 = Adodc1.Recordset.Fields("userid") And Text2 = Adodc1.Recordset.Fields("password") Then
menu.Show
Else
MsgBox "userid dan password tidak valid", vbOKOnly, "Peringatan"
End If
End Sub
</div>