Cara Membuat Form Login di VB net Menggunakan Database

Cara Membuat Form Login di VB net Menggunakan Database - Pada kesempatan hari ini saya akan membahas tentang bagaimana cara membuat form login menggunakan database. form login menggunakan database tidaklah terlalu susah, intinya adalah kita harus mengerti logika yang kita pakai untuk membuat sebuah form tersebut. pada tutorial kali ini saya menggunakan database MySQL yang dimana database ini banyak digunakan oleh para programmer. nah untuk membuat sebuah database kita membutuhkan sebuah database terlebih dahulu. nah untuk membuat databse silahkan buat database seperti dibawah ini :

Setelah membuat database silahkan isi dengan ketentuan field tersebut. misalnya saya memakai nama Username : User1 dan password : User1.  setelah membuat database mari kita membuat desain form nya.

Pada diatas saya menggunakan 2 TextBox dan 2Label dan 2Button. setelah membuat silahkan ketikan koding dibawah ini

mports 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

Demikian tips dan trik yang dapat saya bagikan semoga bermanfaat bagi anda semua. terimakasih jika mengalami kesulita silahkan tinggalkan komentar dibawah ini