Cara membuat form login VB.Net Menggunakan DB Access

Disini saya menggunakan VB.Net 2008 dan MS.Access 2007

Pertama buka vb – new project – pilih Windows Forms

Beri nama Latihan Login dan desing seperti ini :

Klik kanan pada Button Masuk pilih View code, kemudian masukan code berikut :

Imports System.Data.OleDb

Imports System.Data.Odbc

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        CNN = New OleDbConnection(KONEKSI)

        If CNN.State <> ConnectionState.Closed Then CNN.Close()

        CNN.Open()

        OLECMD = New OleDbCommand("SELECT * From login  WHERE username = '" & TextBox1.Text & _

"' and password = '" & TextBox2.Text & "'", CNN)

        OLERDR = OLECMD.ExecuteReader

        If (OLERDR.Read()) Then

            Form2.Show()

            Me.Hide()

            TextBox1.Text = ""

            TextBox2.Text = ""

            TextBox1.Focus()

        Else

            MsgBox("Username & Password Anda Salah!", MsgBoxStyle.OkOnly, _

                   "Login gagal")

            TextBox1.Text = ""

            TextBox2.Text = ""

            TextBox1.Focus()

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        End

    End Sub

End Class

Disini saya menggunakan Modul, jadi sobat buat dulu modulnya

Pilih menubar Project – Add Module, isi code berikut :

Imports System.Data.Odbc

Imports System.Data

Imports System.Data.OleDb

Module Module1

    Public OLECMD As OleDbCommand

    Public OLERDR As OleDbDataReader

    Public OLEDA As OleDbDataAdapter

    Public CNN As OleDbConnection

    Public DS As DataSet

    Public KONEKSI As String = ""

    Public x As Integer

 

End Module

Masukan alamat database diantara petik dua Public KONEKSI As String = "alamat database sobat" karena database belum di buat abaikan saja, lanjut ke Form 2

Desing Form 2 terserah sobat 

Kemudian save project sobat beri nama latihan login

Nahh sekarang buat database nya, buka Ms.Access pilih Blank Database isi namanya db_latihanlogin.accdb kemudian simpan kedalam folder ( latihan login / Bin / Debug ) project VB yang sobat buat tadi, kemudian Create.

 Buat table berinama login,kemudian isi

Field Name baris pertama : username, Data Type : Text

Field Name baris kedua : password, Data Type : Text

Kemudian klik view - save

Kemudian isi username dan password terserah sobat, kemudian save lalu close aja accesnya.

Nahh sekarang kembali lagi ke VB pilih menubar – Data – Add New data source klik next new connection kemudian Brouse... cari file access yang sobat buat tadi di dalam folder latihan login kemudian open ok kemudian next centang pilihan table klik finish.

Kemudian mencari alamat database nya pilih menubar – project – latihan login properties pilih setting kemudian copy alamat yang ada didalam kolom value contohnya seperti ini : 

Provider=Microsoft.ACE.OLEDB.12.0;Data Source= |DataDirectory|\bin\Debug\db_latihanlogin.accdb

Kemudian hapus |DataDirectory|\bin\Debug\

Kemudian paste ke dalam module contohnya menjadi seperti ini :

Public KONEKSI As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=db_latihanlogin.accdb"

Nahh sekarang coba sobat running programnya tekan F5

Isi username dan password yang sobat buat tadi di access, dan coba sobat isi password yang salah apakah yang terjadi.... hehehe.

Sedikit tambahan jika sobat ingin membuat password tidak terlihat pada saat input password, coba sobat klik TextBox kemudian cari PasswordChar pada Properties sebelah kanan,isi *

Coba sobat running kembali.