login

Imports MySql.Data.MySqlClient

Public Class Form1

    Dim conn As MySqlConnection
    Dim command As MySqlCommand
    Dim reader As MySqlDataReader

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        conn = New MySqlConnection
        conn.ConnectionString =
            "server=localhost;user=root;password=;database=vb_login;sslMode=none"

        Try
            conn.Open()
            MessageBox.Show("Sukses")
            conn.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            conn.Dispose()
        End Try

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        conn = New MySqlConnection
        conn.ConnectionString =
            "server=localhost;user=root;password=;database=vb_login;sslMode=none"

        Dim query As String =
            "select * from user where username = '" & TextBox1.Text & "' and password = '" & TextBox2.Text & "'"

        Try
            conn.Open()
            command = New MySqlCommand(query, conn)
            reader = command.ExecuteReader

            Dim count As Integer = 0
            Dim name As String = ""

            While reader.Read
                count = count + 1
                name = reader.GetValue(1).ToString().Trim()
            End While

            If count = 0 Then
                MessageBox.Show("Username/Password tidak valid")
            ElseIf count > 1 Then
                MessageBox.Show("Username duplikat")
            Else
                MessageBox.Show("Selamat datang " & name)
            End If

            conn.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            conn.Dispose()
        End Try
    End Sub
End Class