Berikut saya beri tau bagaimana cara Merubah password user di vb 6 . pertama yang di siapkan untuk membuat form ganti password adalah .
2 textbox
2 command button
buat table di database dengan nama useroperator
field nya userop dan pass
textbox 1 beri nama dengan txtpasslama
textbox 2 beri nama dengan txtpassbaru
lalu command 1 beri nama dengan cmdok
dan yang ke dua cmd cancel
Private Sub cmdok_Click()
Dim ruser As Recordset
Dim slist As String
slist = "select * from useroperator"
Set ruser = ConnDB.Execute(slist)
If txtpasslama = ruser![pass] Then
txtpassbaru.Enabled = True
ruser.Close
txtpassbaru.SetFocus
Else
MsgBox "Password Lama salah !!", vbCritical, "info"
Exit Sub
End If
ConnDB.Execute " update useroperator set pass='" & txtpassbaru & "'"
MsgBox " Password Berhasil di ubah", vbInformation, "info"
txtpasslama = ""
txtpassbaru = ""
End Sub
Private Sub Cmdcancel_Click()
Unload Me
End Sub
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :