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/
