Imports MySql.Data.MySqlClient
Public Class LoginForm1

    Dim Mysqlconnection As MySqlConnection
    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        Mysqlconnection = New MySqlConnection
        Mysqlconnection.ConnectionString = "server=127.0.0.1;user=root;password=;database=programm;"
        Try
            Mysqlconnection.Open()
            MessageBox.Show("Verbindung zur Datenbank wurde hergestellt!")
        Catch myerror As MySqlException
            MessageBox.Show("Verbindung hergestellt werden, Grund: " & myerror.Message)
        End Try
        Dim Mysqladapter As MySqlDataAdapter
        Dim sqlquary = "SELECT * FROM benutzer WHERE login =`" & UsernameTextBox.Text & "` AND passwort =`" & PasswordTextBox.Text & "`;"
        Dim Command As MySqlCommand
        Command.Connection = Mysqlconnection
        Command.CommandText = sqlquary
        Mysqladapter.SelectCommand = Command
        Dim Mydata As MySqlDataReader
        Mydata = Command.ExecuteReader
        If Mydata.HasRows = 0 Then
            MessageBox.Show("Fehler, falsche Eingabe!")
        Else
            MessageBox.Show("Herzlich Wilkommen " & UsernameTextBox.Text)
        End If


    End Sub

    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
        Me.Close()
    End Sub

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

    End Sub
End Class