Membuat Form Login Visual Basic 6 Dengan Database Access

Pada kesempatan ini kami dari Pandai VB ingin berbagi ilmu kembali mengenai Membuat Form Login Visual Basic 6 Dengan Database Access. Database Access yang kami buat menggunakan Microsoft Office 2007.

Sebelum itu kita buat database terlebih dahulu di Microsoft Office 2007 dengan nama DbLatihan.accdb. Pastikan tersimpan dalam satu folder dengan Project Visual Basic 6. Tahap berikutnya buat Tabel dengan nama tbUser. Berikut field-field yang ada dalam Tabel tbUser. 

Isikan beberapa data ke dalam Tabel tbUser. Bisa kalian lihat gambar dibawah ini.

Tahap berikutnya kita buat design Form di dalam Visual Basic 6 seperti gambar berikut ini.

Setelah membuat design form kemudian kita ubah name Texboxnya dan Command Buttonnya seperti berikut ini.

• Textbox User Id name diubah menjadi TxtUserId 
• Textbox Password name diubah menjadi TxtPassword

Berikut script lengkapnya.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44

Dim Db As New ADODB.Connection Private Sub CmdLogin_Click() Call Login End Sub Private Sub Form_Load() Call Koneksi End Sub Private Sub Koneksi() Dim Constr As String Constr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\DbLatihan.accdb" Db.Open Constr End Sub Private Sub Login() Dim rs As New ADODB.Recordset Dim ls_sql As String If txtUserId = "" Then MsgBox "Mohon isi User ID!", vbInformation Exit Sub ElseIf TxtPassword = "" Then MsgBox "Mohon isi User ID!", vbInformation Exit Sub End If ls_sql = "Select * From tbUser Where UserID = '" & txtUserId & "'" rs.Open ls_sql, Db, adOpenDynamic, adLockOptimistic If rs.EOF Then MsgBox "User Id tidak terdaftar!", vbInformation Else If Trim(TxtPassword) = Trim(rs.Fields("Password")) Then MsgBox "Login Sukses!", vbInformation Else MsgBox "Password Salah!", vbInformation End If End If End Sub

Setelah memastikan benar semua scriptnya. Coba dijalankan form tersebut. Jika UserId yang dimasukkan tidak terdaftar dalam database akan muncul pesan error. begitu juga jika password yang dimasukkan salah tidak sesuai dengan database makan akan muncul pesan error. Apabila userid dan passwordnya sesuai makan akan muncul pesan berhasil. 

Itu saja yang bisa kami sampaikan melalui blog ini. Terima kasih masih menyempatkan diri berkunjung di blog kami.

Related Posts:

Tweet