Membuat Form Login Vb .net Access

Membuat Form Login Vb .net Access 

Didalam blog ini saya akan menjelaskan bagaimana membuat form login vb net dengan menggunakan database access. Mudah banget kuk cara membuatnya,,,

Berikut langsung saya beri gambar Form login yang ingin dibuat

Form diatas terdiri dari 2 buat textbox dan 1 button, ganti nama masing - masing textbox dan button seperti pada gambar atau sebagai berikut :

textbox1 = txtusername

textbox2 = txtpassword

button1 = btnlogin

Setelah anda membuat form, berikut membuat database untuk menyimpan usertname dan passwordnya. Database yang saya pakai adalah MS. Access. Simpan database yang anda buat dengan nama db_account.mdb didalam direktori NamaProjectAnda/bin/Debug/db_account.mdb.

Buatlah Tabel dengan nama account. Untuk format tabelnya sebagai berikut :

Jika sudah selesai membuat form dan database selanjutnya copy koding berikut ini keproject anda

Imports System.Data.OleDb

Public Class Login

    Public connstring As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source = |datadirectory|\db_account.mdb; persist security info = false"

    Public conn As New OleDbConnection

    Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogin.Click

        Dim SqlQuary As String = "SELECT * FROM account WHERE username = @field1 and password = @field2"

        Dim SqlCommand As New OleDbCommand

        Dim SqlRdr As OleDbDataReader

        With SqlCommand

            .CommandText = SqlQuary

            .Connection = conn

            .Parameters.AddWithValue("@field1", txtusername.Text)

            .Parameters.AddWithValue("@field2", txtpassword.Text)

            .ExecuteNonQuery()

        End With

        SqlRdr = SqlCommand.ExecuteReader

        If (SqlRdr.Read()) Then

            Call MenuUtama.menubuka()

            Me.Close()

        Else

            MsgBox("Username dan Password SALAH")

        End If

    End Sub

    Private Sub Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        conn.ConnectionString = connstring

        If conn.State = ConnectionState.Closed Then

            conn.Open()

            'MsgBox("Welcome")

        Else

            'MsgBox("Close")

        End If

    End Sub

End Class