Membuat Login Sederhana Pada Visual Basic dot Net dengan database MySQL

Hai all, kali ini saya ingin membagikan tutorial cara membuat login pada VB.Net, dengan User dan pass nya di ambil dari MySQL.

Ok pertama kita buat dulu database nya, buka mysql bisa dari phptriad bisa dari xampp

CREATE TABLE IF NOT EXISTS `pengguna` (
`user` varchar(30) DEFAULT NULL,
`pass` varchar(30) DEFAULT NULL
) ENGINE=MyISAM DEFAULT CHARSET=latin1;

INSERT INTO `pengguna` (`user`, `pass`) VALUES
('root', 'root'),
('admin', 'admin'),
('master', 'master');

lalu rancang form seperti gambar di atas, name text box nya username dan password

Untuk mengkoneksi kan nya kita butuh MySQL Connector, kalo blom ada, di install dulu, lalu di Add Refrence,

Cara nya

klik menu Project > Add Refrence > Browse > C:\Program Files > MySQL > MySQL Connector Net 1.0.7 > bin > .NET 2.0

lalu pilih MySql.Data.dll

lalu OK

buat lagi 1 buah form dengan nama form2 biar kal suksek login akan terbuka form2 nya

Imports MySql.Data.MySqlClient
Public Class Form1
    Dim db As New MySql.Data.MySqlClient.MySqlConnection
    Dim rs As MySqlDataReader
    Dim cmd As MySqlCommand
    Dim sql As String
    Sub openDB()
        sql = "server=localhost;uid=root;pwd=;database=latihan"
        Try
            db.ConnectionString = sql
            db.Open()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ketemu As String = ""

        If username.Text = "" Or pasword.Text = "" Then
            MsgBox("data tidak lengkap")
        Else
            sql = "select * from pengguna"
            cmd = New MySqlCommand(sql, db)
            rs = cmd.ExecuteReader
            Try
                While rs.Read
                    If username.Text = rs("user") And pasword.Text = rs("pass") Then
                        ketemu = "Ya"
                        Exit While
                    End If
                End While
                If ketemu = "Ya" Then
                    Form2.Show()
                    Me.Hide()
                Else
                    MsgBox("user atau password tidak ditemukan")
                End If
            Catch ex As Exception
                MsgBox(ex.Message)

            End Try
            rs.Close()

        End If
    End Sub

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

    End Sub

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

    End Sub
End Class