Kali ini kita akan
membahas tentang cara membuat form login di Visual Basic dengan database Ms
Access
Karena
banyak yang bertanya cara membuat form login di Visual Basic, maka saya buat
program sederhana untuk login di sini dengan menggunakan adodb untuk koneksi ke
database dan database yang digunakan adalah Microsoft Access.
Berikut langkah2nya:
1. Design dulu formnya, kira2 seperti ini:
Berikut langkah2nya:
1. Design dulu formnya, kira2 seperti ini:
Jangan lupa ubah name untuk textbox Username & Password dan button Login.
Dalam contoh, namenya diubah menjadi:
- txtUsername untuk textbox Username
- txtPassword untuk textbox Password
- cmdLogin untuk button login.
2. Tambah referrence ke Microsoft ActiveX Data Object -> ini diperlukan untuk akses database menggunakan ADODB.
Dalam Visual Basic, ke menu Project -> Referrences -> Check Microsoft ActiveX Data Object 2.8 Library (atau versi lainnya) -> OK.
3. Untuk memeriksa apakah referrence telah ditambahkan dengan benar atau belum, klik 2x pada form (akan mengarah ke window code). Kemudian, di bagian atas, deklarasikan recordset sebagai ADODB.RecordSet. Jika Referrence telah ditambahkan dengan benar, maka intellisense / auto completion VB akan menunjukkan ADODB seperti gambar di bawah ini:
4. Buat sebuah module untuk koneksi ke database.
Di window project explorer (sebelah kanan atas), klik kanan project, kemudian pilih add -> Module.
5. Sebelum masuk ke code untuk module, kita perlu membuat database Access terlebih dahulu, yang berisikan sebuah tabel bernama tabelUser dan memiliki 2 buah field di dalamnya, yaitu field Username & Password.
6. Buat
connection string untuk koneksi ke database, salah satu cara yang paling mudah
adalah dengan menggunakan udl.
Di windows explorer, buat file baru dengan extension .udl, kemudian pilih OK.
Di windows explorer, buat file baru dengan extension .udl, kemudian pilih OK.
Klik 2x file .udl yang telah dibuat, Pilih tab Provider -> Pilih Microsoft Jet 4.0 OLE DB Provider -> Next
Pilih file Database Access yang telah dibuat sebelumnya -> OK
Pilih file Database Access yang telah dibuat sebelumnya -> OK
Tekan tombol Test Connection. Jika berhasil, akan muncul pesan berhasil -> OK -> OK lagi. Jika tidak, ulangi lagi langkah 6 di atas
Untuk melihat connection string yang telah dibuat dari file .udl tadi, buka file .udl dengan menggunakan notepad atau pembaca text sejenisnya. Connection string inilah yang akan digunakan di dalam module untuk langkah 7 di bawah.
7. Untuk code di module, gunakan code di bawah ini:
Option
Explicit
Public
conn As New ADODB.Connection
Public
Sub Connect(flag As Boolean)
Dim connectionString As String
connectionString =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path &
"\Data.mdb;Persist Security Info=False" 'agar tidak statis, data
source diubah sedikit dengan mengarahkan database ke folder yang sama tempat
aplikasi dibuat, menggunakan app.path
On
Error GoTo Handler
If flag = True Then
conn.Open connectionString
Else
conn.Close
End If
Exit Sub
Handler:
MsgBox Err.Description, vbCritical,
"Error"
End
Sub
8. Berikut ini code untuk login form. Silakan diamati dan dipelajari
Option
Explicit
Dim
rs As ADODB.Recordset
Private
Sub cmdLogin_Click()
Dim sql As String
sql = "select username from tabelUser
where username = '" & Replace(txtUsername.Text, "'",
"''") & "' and " & _
"password = '" &
Replace(txtPassword.Text, "'", "''") & "'"
Set rs = New ADODB.Recordset
Set rs = conn.Execute(sql)
If Not rs.EOF Then
'Username dan password ada
MsgBox "Login sukses"
Else
'Username atau password salah
MsgBox "Username atau Password
Anda salah", vbCritical
txtUsername.SetFocus
End If
End
Sub
Private
Sub Form_Load()
Connect (True)
End
Sub
Private
Sub Form_Unload(Cancel As Integer)
Connect (False)
End
Sub
Private
Sub txtPassword_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then 'kalau tekan Enter,
maka login
cmdLogin_Click
End If
End
Sub
Private
Sub txtUsername_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then 'kalau tekan Enter,
maka login
cmdLogin_Click
End If
End
Sub
9. Jalankan / eksekusi program (tekan F5), berikut ini hasilnya:
Dalam contoh, login yang digunakan:
Username: StevenLuck
Password: hereisthepassword
ref : http://afrizal.jal12.blogspot.com
semoga artikel tentang cara membuat form login di Visual Basic dengan database Ms Access ini dapat bermanfaat bagi kita semua
gan saya bingung pake ADODB Nya ga ngerti Eung
BalasHapusSoal nya Sya mah Ngarti nya Pake Data ..
Disa Di jelasin Gan Gan ....
Syamsul0812@ymail.com
Maksud Nya Gimana Tuhkk ?? Lumayan Nggak Ngerti !!
Hapusdi coba Berhasil Gan !!! Thank's atas infonya..
BalasHapusTHANKS BANGET GAN >>VERY GOOD<<
BalasHapusgan saya khan membuat banyak input data karyawan.
BalasHapusgan mw nanya ko yang bisa login cuman 1 sedangkan saya mempuyai banyak karyawan tp kenapa yang bisa login hanya 1 ??????
thank :)
Bang kasih VIDEO Nya Donkk !!
BalasHapusMas kenapa saya coba tetapi ke blok kuning saat saya masukan ini
BalasHapussql = "select username from tabelUser where username = '" & Replace(txtUsername.Text, "'", "''") & "' and " & _
"password = '" & Replace(txtPassword.Text, "'", "''") & "'"
Makasih mas. . .
BalasHapusmantappp. . . :)
maaf nanya bgmna cara buat file .udl karna udah di coba jadi nya format .text
BalasHapusmohon pencerahan gan...
Thank's min,
BalasHapusIt's Works