Batman Begins - Diagonal Resize 2

MEMBUAT FORM LOGIN VB .NET ACCESS

www.lazada.com


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
Cukup mudah bukan. Untuk Coding yang bertanda merah bisa anda ganti dengan mana form tujuan setelah login. Misal setelah proses login berhasil selanjutnya menampilkan form dengan nama MenuUtama, jadi tinggal ganti saja dengan MenuUtama.Show().
Berikut tutorial sederhana saya untuk membuat form login dari database access. Semoga bisa membantu.
Terima Kasih banyak,,,,,