[ITCENTER] Mohon bantuan: Pemrograman VB
Dh Semua, Saya sedang belajar vb, sementara masih pake vb 6.0. saya mengalami kesulitan ketika mencoba menghubungkan sebuah form dengan database. saya ingin membuat sebuah form login dimana situasinya kurang lebih sbb: 1. saya punya 2 buah text box masing2 untuk user id dan password dan sebuak OK button 2. saya punya sebuah tabel di database (Acess 2003) dengan field user id dan password 3. saya ingin agar ketika Ok button di klik, maka dilakukan pemeriksaan user id dan password yang diinput user dan dibandingkan dengan yang tersimpan di database. mohon bantuan bagi yang berkenan dan sebelumnya saya ucapkan teruimakasih. Marjan Aku tidaklah semulia Muhammad, tidaklah setaqwa Ibrahim, juga setabah Ayub, juga tidak segagah Musa, apalagi setampan Yusuf, aku hanyalah manusia akhir Zaman.. yang masih perlu belajar banyak tentang kehidupan ini [Non-text portions of this message have been removed] -- www.itcenter.or.id - Komunitas Teknologi Informasi Indonesia Gabung, Keluar, Mode Kirim : itcenter-h...@yahoogroups.com Yahoo! Groups Links * To visit your group on the web, go to: http://groups.yahoo.com/group/ITCENTER/ * Your email settings: Individual Email | Traditional * To change settings online go to: http://groups.yahoo.com/group/ITCENTER/join (Yahoo! ID required) * To change settings via email: itcenter-dig...@yahoogroups.com itcenter-fullfeatu...@yahoogroups.com * To unsubscribe from this group, send an email to: itcenter-unsubscr...@yahoogroups.com * Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
Re: [ITCENTER] Mohon bantuan: Pemrograman VB
saya melihat ada contoh sekedarnya: (bagian connectionstring --[ strCNString = Data Source= App.Path \db1.mdb] di sesuaikan, diarahkan ke directory dan database anda http://www.eggheadcafe.com/community/aspnet/8/10145612/code-for-login-form-with-validation-in-vb-60.aspx Pada 30 Desember 2010 09.34, Sumarjan sumarj...@yahoo.com menulis: Dh Semua, Saya sedang belajar vb, sementara masih pake vb 6.0. saya mengalami kesulitan ketika mencoba menghubungkan sebuah form dengan database. saya ingin membuat sebuah form login dimana situasinya kurang lebih sbb: 1. saya punya 2 buah text box masing2 untuk user id dan password dan sebuak OK button 2. saya punya sebuah tabel di database (Acess 2003) dengan field user id dan password 3. saya ingin agar ketika Ok button di klik, maka dilakukan pemeriksaan user id dan password yang diinput user dan dibandingkan dengan yang tersimpan di database. mohon bantuan bagi yang berkenan dan sebelumnya saya ucapkan teruimakasih. Marjan Aku tidaklah semulia Muhammad, tidaklah setaqwa Ibrahim, juga setabah Ayub, juga tidak segagah Musa, apalagi setampan Yusuf, aku hanyalah manusia akhir Zaman.. yang masih perlu belajar banyak tentang kehidupan ini [Non-text portions of this message have been removed] __ [Non-text portions of this message have been removed] -- www.itcenter.or.id - Komunitas Teknologi Informasi Indonesia Gabung, Keluar, Mode Kirim : itcenter-h...@yahoogroups.com Yahoo! Groups Links * To visit your group on the web, go to: http://groups.yahoo.com/group/ITCENTER/ * Your email settings: Individual Email | Traditional * To change settings online go to: http://groups.yahoo.com/group/ITCENTER/join (Yahoo! ID required) * To change settings via email: itcenter-dig...@yahoogroups.com itcenter-fullfeatu...@yahoogroups.com * To unsubscribe from this group, send an email to: itcenter-unsubscr...@yahoogroups.com * Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
Re: [ITCENTER] Mohon bantuan: Pemrograman VB
lebih baik menggunakan prinsip DSN Less jadi tidak tergantung pada object Data : ini contohnya saya berikan : * sebelum memulai pada menu project add reference Microsoft ActiveX Data Object 2.5 Library ( untuk mengenal fungsi ADODB.connection dan ADODB.recordset ) 1. Langkah pertama buat modul baru : mdlglobal tujuan pembuatan modul ini agar setiap pembuatan form baru tidak perlu buat koneksi lagi cukup panggil fungsi koneksi yg ada di mdlglobal : Sub koneksi() On Error GoTo msg_Error Set db = New ADODB.Connection Set rs = New ADODB.Recordset Set db = New ADODB.Connection db.Mode = adModeReadWrite db.Open Driver={Microsoft Access Driver (*.mdb)}; _ Dbq= varset ;uid=admin;pwd= ' SystemDB adalah lokasi tabel User berada db.Open Driver={Microsoft Access Driver (*.mdb)}; _ Dbq= varset ; _ SystemDB=D:\TEST\user.mdw;, _ Admin, If db.ConnectionTimeout = True Then msg_Error: MsgBox Koneksi Gagal! Err.Description, vbInformation, Peringatan Koneksi! frmSetDatabase.Show 1 Unload frmAbsen Connection = False Else Connection = True End If End Sub 2. Langkah berikutnya adalah pada Form Login tempat textbox user dan password berada : pada form Login di event LOAD( ) isi dengan : Private Sub Form_Load() On Error Resume Next 'koneksi adalah fungsi global yang kita panggil pada modul global yang sudah dibuat koneksi End Sub 3. untuk mengecek User dan Password bisa kita masukan pada Command Button : contoh : Nama Command button adalah CMDOK Didalam CMDOK kita isikan sintak program : Private Sub CMDOK_Click() On Error Resume Next Set rs = db.Execute(select * from user where user = ' Trim(textuser) ' and password = ' Trim(textpassword) ') With rs If Not .EOF Then msgbox Selamat Anda Berhasil Login,vbInformation Else MsgBox Password Anda Tidak Valid, vbCritical textuser= textpassword= textuser.SetFocus End If End Sub Semoga Bisa Membantu Fitra [Non-text portions of this message have been removed] -- www.itcenter.or.id - Komunitas Teknologi Informasi Indonesia Gabung, Keluar, Mode Kirim : itcenter-h...@yahoogroups.com Yahoo! Groups Links * To visit your group on the web, go to: http://groups.yahoo.com/group/ITCENTER/ * Your email settings: Individual Email | Traditional * To change settings online go to: http://groups.yahoo.com/group/ITCENTER/join (Yahoo! ID required) * To change settings via email: itcenter-dig...@yahoogroups.com itcenter-fullfeatu...@yahoogroups.com * To unsubscribe from this group, send an email to: itcenter-unsubscr...@yahoogroups.com * Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/