Eko, coba perhatikan email ini yang pernah dikirim oleh Purwedi Kurniawan
-----Original Message-----
From: Purwedi KURNIAWAN
Sent: 09 Maret 2006 14:15
Subject: Re: Pesan Error Password Login
'u. memahami kode ini, buat project baru, tambahkan sebuah form dg 2 buah
textbox, kasih nama
txtUserName, txtPassword, dan sebuah command button kasih nama cmdLogin
'dari menu projects - references, tambahkan reference ke Microsoft ActiveX
Data Object 2.x Library,
kalau ada beberapa versi, pilih versi terbaru
'kemudian tambahkan kode ini di form code
'u. databasenya bisa langsung pake database yg tadi kamu kirim, sesuaikan
lokasinya dg yg ada di
konstanta m_const_sConnString
'biar lebih detail, coba pelajari pemrograman database dg ADO, cari aja di
internet, atau coba liat
bagian FAQ database di www.vbcity.com
'kode ini belum saya test, tapi seharusnya ga ada masalah :)
Option Explicit
Private Const m_const_sConnString As String = _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Documents and
Settings\Administrator\Desktop\password\namadatabase.mdb;Persist Security
Info=False"
Private m_cn As ADODB.Connection
Private m_rs As ADODB.Recordset
Private Sub cmdLogin_Click()
'kalau koneksi sudah terbuka, tutup koneksi
If m_cn Is Nothing Then
Set m_cn = New ADODB.Connection
ElseIf m_cn.State = adStateOpen Then
m_cn.Close
End If
'buka koneksi ke database
With m_cn
.ConnectionString = m_const_sConnString
.CursorLocation = adUseClient
.Open
End With
'kalau recordset sudah dibuka, tutup recordset
If m_rs Is Nothing Then
Set m_rs = New ADODB.Recordset
ElseIf m_rs.State = adStateOpen Then
m_rs.Close
End If
'lakukan query ke database melalui koneksi yg telah kita buka tadi
With m_rs
.ActiveConnection = m_cn
.CursorType = adOpenForwardOnly
.CursorLocation = adUseClient
.LockType = adLockReadOnly
.CacheSize = 30
.Source = "SELECT Nama,Password From User WHERE User.Nama = '" &
LTrim(txtUsername.Text) &
"'"
.Open
End With
'bandingkan data hasil query dg data yg diinput user
If Not (m_rs.EOF And m_rs.BOF) Then
If StrComp(Trim(txtPassword.Text), m_rs.Fields("Password").Value,
vbTextCompare) = 0 Then
MsgBox "Selamat Datang " & txtUsername.Text
Else
MsgBox "Password anda salah"
End If
Else
MsgBox "UserName tidak ditemukan"
End If
'tutup dan bersihkan object dari memory
If Not m_rs Is Nothing Then
If m_rs.State = adStateOpen Then m_rs.Close
Set m_rs = Nothing
End If
If Not m_cn Is Nothing Then
If m_cn.State = adStateOpen Then m_cn.Close
Set m_cn = Nothing
End If
End Sub
