Koq sepertinya janggal banget ya masalah anda ini? Bukannya saya ngga mau ngasih solusi atau jawaban untuk masalah anda, tapi saya rasa, saat ini yang jadi masalah bukanlah tentang coding anda, tapi tentang logika / system anda.
Kenapa password-nya di pakai untuk order ? Kenapa passwordnya yang di urutkan ? Dan kenapa password harus di tampilkan secara ter-dekripsi ? Bukankah sebaiknya password biar saja terlihat secara ter-enkripsi ( biar saja dalam posisi ter-enkripsi ?) Kalau memang ingin melihat passwordnya, barulah nanti record yang terpilih / ter-focus / record pada posisi cursor berada yang di tampilkan. meskipun tetap saja sebenarnya saya ngga merekomendasikan ini. Menurut saya, walau Administrator sekalipun, dia ngga berhak tau password milik user-usernya. Selama ini saya sebagai Administrator dari beberapa Perusahaan yang saya tangani, ngga pernah sekalipun saya mengetahui dengan sengaja password client saya (kenapa gan sengaja? Karena terkadang, ada user yang sengaja memberi tahu ke saya : ). Coba bayangkan, kalau pihak Bank, Administrator-nya tahu PIN-PIN dari setiap Nasabah-nya (meskipun tentu saja bisa pastinya kalau mau ). Atau Google /Yahoo, saya yakin, tak ada seorangpun dari karyawan Google/Yahoo yang tau password email dari clinet-clientnya. Meskipun tentu saja bisa kalau mau. Tapi ini semua tentang etika programmer. Jadi mungkin anda perbaiki saja dulu mungkin system anda. Untuk bisa mendapat-kan password tersebut secara ter-deskripsi, nantinya bisa digunakan sbb: >>> rs.open = "select Rtrim(left(nama, 15)), Format Masuk, 'yyyy/mm/dd',_ Rtrim(decpass(password)) From UserMast order left(decpass_ (password),5)", Con,adOpenStatic, adLockOptimistic 'GANTI dengan: rs.open = "select Rtrim(left(nama, 15)), Format Masuk, 'yyyy/mm/dd',_ Rtrim(password) From UserMast order left(decpass_ (password),5)", Con,adOpenStatic, adLockOptimistic Lalu untuk mendapatkan passwordnya nanti: 'contoh untuk dilempar ke txtpassword TXTPASSWORD.TEXT = decpass(rs!password) Selamat mencoba :) big smile and great regards in advance, ----------------------------------------------------------------- Jacky Supit =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= dekstop or web programming, anything i can do 4 you ;-) =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= ----------------------------------------------------------------- -----Original Message----- From: jovelijob [mailto:[EMAIL PROTECTED] Sent: Friday, October 06, 2006 3:21 AM To: [email protected] Subject: [indoprog-vb] Function Procedure (ADO) Ada yg bisa bantu,.... Menggunakan ADO DataBase : Access Tabel : UserMast, terdiri Field Nama, Password, Tgl_Masuk, Tgl_Berhenti Kalau pakai fungsi vb bisa di open tidak ada masalah seperti di bawah ini ( Karena Access Juga Bisa Menggunakan Fungsi2 VBA ) rs.open "select Rtrim(left(nama, 15)),Format(Tgl_Masuk, 'yyyy/mm/dd'_ ), Rtrim(password) from UserMast order password", Con,adOpenStatic,_ adLockOptimistic Yg ingin saya tanyakan Bagaimana caranya supaya saya bisa menggunakan Fungsi Procedure (Fungsi di dalam Modul Vb Mis : Fungsi DecPass) seperti kita menggunakan Fungsi2 Yg di kenal di Database dan vb Mis fungsi Left, Right, Count, Format dll. Contoh : Ingin mengurutkan data 5 huruf berdasarkan Field password dari tabel UserMast (karena data password di encripty), pengenya sih langsung menggunakan sintak sql. Public Function decpass(stPass As String) as string marr = array("26","25",..."02","01" mtem = "" for i = 1 to len(stPass) mtem = mtem+marr(i) next decpass = mtem end function rs.open = "select Rtrim(left(nama, 15)), Format Masuk, 'yyyy/mm/dd',_ Rtrim(decpass(password)) From UserMast order left(decpass_ (password),5)", Con,adOpenStatic, adLockOptimistic tetapi terjadi error fungsi decpass tidak di kenal, (karena tidak ada di VBA/Database access tidak mempunyai fungsi decpass ... ini benar tidak ya) terima kasih Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED] Bagi terjangkit virus lokal, zip virus tersebut dan kirim ke [EMAIL PROTECTED], kami akan membuat removalnya untuk anda. Yahoo! Groups Links Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED] Bagi terjangkit virus lokal, zip virus tersebut dan kirim ke [EMAIL PROTECTED], kami akan membuat removalnya untuk anda. Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/indoprog-vb/ <*> Your email settings: Individual Email | Traditional <*> To change settings online go to: http://groups.yahoo.com/group/indoprog-vb/join (Yahoo! ID required) <*> To change settings via email: mailto:[EMAIL PROTECTED] mailto:[EMAIL PROTECTED] <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
