Imports MySql.Data.MySqlClient

Public Class EditPwd

    Dim con As New MySqlConnection

    Dim cmdProof As New MySqlCommand

    Dim cmdNewPwd As New MySqlCommand

    Dim reader As MySqlDataReader

    Dim proofReader As MySqlDataReader

​

    Dim DBpwd As String

    Dim ComparePwd As Boolean

​

    Private Sub cmdEditPwd_Click(sender As Object, e As EventArgs) Handles cmdEditPwd.Click

        Dim benutzer As Integer

        con.ConnectionString = "[Platzhalter]"

        cmdNewPwd.Connection = con

        cmdProof.Connection = con

​

        Try

            con.Open()

            cmdProof.CommandText = "SELECT * FROM Login WHERE Username = '" & tbUsername.Text & "'"

​

            proofReader = cmdProof.ExecuteReader()

​

            Do While proofReader.Read()

                DBpwd = proofReader("Password")

​

                ComparePwd = (tbOldPwd.Text = DBpwd)

​

                If ComparePwd = False Then

                    MsgBox("Falsches Passwort. Bitte überprüfen Sie Ihre Eingabe.", MessageBoxIcon.Exclamation)

                    tbOldPwd.Clear()

                    tbNewPwd.Clear()

                    tbRepeatNewPw.Clear()

                End If

            Loop

            proofReader.Close()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

        con.Close()

​

        If ComparePwd = True Then

            DBpwd = 0

​

            If tbNewPwd.Text <> tbRepeatNewPw.Text Then

                MsgBox("Bitte das neue Passwort überprüfen.")

                tbNewPwd.Clear()

                tbRepeatNewPw.Clear()

                tbOldPwd.Clear()

​

            ElseIf tbNewPwd.Text = tbRepeatNewPw.Text Then

                Try

                    con.Open()

                    cmdNewPwd.CommandText = "UPDATE Login SET Password='" & tbNewPwd.Text & "' WHERE Username='" & tbUsername.Text & "'"

​

                    benutzer = cmdNewPwd.ExecuteNonQuery()

                    If benutzer > 0 Then

                        MsgBox("Passwort geändert.", MessageBoxIcon.Information)

                    End If

​

                Catch ex As Exception

                    MessageBox.Show(ex.Message)

                End Try

                ComparePwd = False

                con.Close()

                Me.Close()

            End If

        End If

    End Sub

​

    Private Sub cmdAbort_Click(sender As Object, e As EventArgs) Handles cmdAbort.Click

        Me.Close()

    End Sub

End Class