Form Login VB.Net Access

Berikut ini adalah contoh sederhana Form Login Menggunakan Visual Basic ( VB.Net ) dengan menggunakan database Ms.Access.

Buat Project baru di Visual Basic

Aplikasi yang saya gunakan adalah Visual Studio 2013.

Buat Project baru Windows Form Application, lalu beri nama Login, lalu klik OK.

Design Form Login

Tambahkan 1 Button, 3 Label, 2 Textbox.

Untuk letak nya bebas, bisa di buat sesuai keinginan.

Setting sebagai berikut :

Bagian	Name	Text
Form	Form1	Form Login
Label1	Label1	Username
Label2	Label2	Password
Label3	lblError	(kosongkan)
Textbox1	txtUsername	(kosongkan)
Textbox2	txtPassword	(kosongkan)
Button1	btnLogin	Login

Contoh tampilan Form Login Sederhana.

Buat database menggunakan Ms.Access

- Buka aplikasi Ms.Access

- Pilih Blank database

- Beri nama users.accdb

- Simpan di C:\data

- Buat tabel users

- Buat Fieldname username dan password, Datatype Long Text

- Tambahkan data username dan password, contoh : username nya admin password nya admin 

Membuat Coding tombol Login

Setelah Form Login dan database Ms.Access sudah jadi, selanjut nya membuat codingan di tombol Login nya, klik 2x pada tombol login.

Kemudian akan muncul tab seperti gambar di bawah ini.

Lalu buat codingan seperti di bawah ini.

Public Class Form1

    Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
        'Membuat koneksi database
        Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\data\users.accdb")

        'Membuka koneksi ke database
        conn.Open()

        'Command untuk memeriksa data login
        Dim cmd As New OleDb.OleDbCommand("SELECT * FROM users WHERE username = @username AND password = @password", conn)

        'Mengisi Parameter pada command
        cmd.Parameters.AddWithValue("@username", txtUsername.Text)
        cmd.Parameters.AddWithValue("@password", txtPassword.Text)

        'Menjalankan command dan menyimpan hasil nya dalam data reader
        Dim dr As OleDb.OleDbDataReader = cmd.ExecuteReader()

        'Cek data di database
        If dr.Read() Then
            'Jika username dan password ada di database
            MessageBox.Show("Login Berhasil")
        Else
            'Jika username dan password salah atau tidak ada si dtabase
            lblError.Text = "Username atau Password salah"
        End If

        'Menutup koneksi ke Database
        dr.Close()
        cmd.Dispose()
        conn.Close()

    End Sub
End Class

Run Aplikasi

Setelah selesai, Aplikasi bisa langsung di coba. Klik Start untuk menjalankan Aplikasi nya.

Saat login sukses, username dan password ada di database.

Saat login gagal, karena username tidak ada di database.

Sekian tutorial membuat aplikasi Login pada program VB.Net dengan database menggunakan Ms.Access.