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/
