[VB.NET] Membuat Form login dengan MySQL

Sebagian orang bingung cara membuat form login dengan akun yang dibuat dengan MySQL, kali ini saya akan memberikan Tutorialnya. Langsung aja...

Siapkan Project dengan:

• FormLogin1
• Form1

LoginForm1

Jika sudah, sekarang bikin Database baru dengan MySQL, kali ini saya menggunakan PhpMyAdmin untuk membuat Databasenya.

Beri nama Database "program_rpl"

Create new database

Dan buat Tabel baru "user_databases" dan tambahkan Field "username" dan "password".

Dan isi akun di "username" dan "password" sesuai yang anda inginkan. Contoh, saya membuat akun dengan username "tes" password "tes".

Nah, kita telah selesai membuat akun login nya, sekarang saya akan meng-koneksikan MySQL dengan Visual Basic.NET dengan Project > Add Reference...

Lalu pilih tab .NET. Cari MySql.Data lalu klik OK

Dan buka pada bagian Project> (Nama project kamu) Properties..., ganti "Startup form" menjadi LoginForm1.vb

bila telah selesai, sekarang kita bekerja ke project Visual Basic.NET.

Pada "FormLogin1.vb" tambahkan source code berikut:

Imports MySql.Data.MySqlClient

Public Class LoginForm1

    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click

        Dim conn As MySqlConnection

        conn = New MySqlConnection

        conn.ConnectionString = "server=localhost; user id=root; password= ; database=program_rpl"

            Try

                conn.Open()

            Catch myerror As MySqlException

                MsgBox("Ada kesalahan dalam koneksi database")

            End Try

            Dim myAdapter As New MySqlDataAdapter

            Dim sqlquery = "SELECT * FROM user_databases WHERE Username = '" + UsernameTextBox.Text + "' AND Password= '" + PasswordTextBox.Text + "'"

            Dim myCommand As New MySqlCommand

            myCommand.Connection = conn

            myCommand.CommandText = sqlquery

            myAdapter.SelectCommand = myCommand

            Dim myData As MySqlDataReader

            myData = myCommand.ExecuteReader()

            If myData.HasRows = 0 Then

                MsgBox("Username atau Password ada yang salah !", MsgBoxStyle.Exclamation, "Error Login")

            Else

            MsgBox("Login Berhasil, Selamat Datang " & UsernameTextBox.Text & " ! ", MsgBoxStyle.Information, "Successfull Login")

            Form1.Show()

            Me.Hide()

            End If

    End Sub

End Class

Selesai..., Sekarang jalankan program dengan username "tes" dan password "tes". Bagaimana?

Jangan lupa untuk berbagi...

-Dony Ahmad

»»  Read more...