und Mysql -> Passwort wechseln funktion funktioniert nicht

Hallo StageTwo
Ich probiere mich momentan an einem Register, Login Programm. Dies ist auch soweit fertig, nun wollte ich eine Passwortwechseln funktion einbauen und habe es mit diesem Code versucht - ich glaube das, das am Rot makiertem Punkt liegt das es nicht Funktioniert. die Connectiondaten sind natürlich Abgeändert, er stellt anscheind auch die Verbindung her und die Daten sind auch Richtig eingegeben, nur ändert er das Passwort einfach nicht. Die Database läuft auf PHPMyAdmin.

Ich hoffe es kann mir wer Helfen.

mfg b0ykoe.

Zitat

Dim conn As MySqlConnection
conn = New MySqlConnection
conn.ConnectionString = "server=*Zensiert*;" & "user id=*Zensiert*;" & "password=*Zensiert*;" & "database=*Zensiert*"
Try
conn.Open()
Catch myerror As MySqlException
MsgBox("Keine Verbindung zur Datenbank : " & myerror.Message.ToString)
End Try

Dim benutzer As String = MD5StringHash(benutzer_txtbox.Text)

Dim myAdapter As New MySqlDataAdapter
Dim SQLAbfrage As String = "SELECT * FROM benutzer WHERE Benutzername='" + Replace(benutzer, " ", "") + "' AND SecretAnwser='" & Replace(sa_txtbox.Text, " ", "") + "' AND Email='" & Replace(email_txtbox.Text, " ", "") & "'"
Dim myCommand As New MySqlCommand
myCommand.Connection = conn
myCommand.CommandText = SQLAbfrage

myAdapter.SelectCommand = myCommand
Dim myData As MySqlDataReader
myData = myCommand.ExecuteReader()
If myData.HasRows Then
myCommand.CommandText = "UPDATE Benutzername SET Passwort = '" & sa_newpass.Text & "' WHERE benutzer = '" & benutzer & "'"

conn.Close()
conn.Open()
MsgBox("Benutzer:" & benutzer_txtbox.Text & "wurde erfolgreich zurrück gesetzt.")

Else
MsgBox("Fehler Code 2 : Falsche Daten")
End If
End Sub

Alles anzeigen

€: So funktionierts

Zitat

Dim conn As MySqlConnection
conn = New MySqlConnection
conn.ConnectionString = "server=*Zensiert*;" & "user id=*Zensiert*;"
& "password=*Zensiert*;" & "database=*Zensiert*"
Try
conn.Open()

Catch myerror As MySqlException
MsgBox("Keine Verbindung zur Datenbank : " & myerror.Message.ToString)
End Try

Dim myAdapter As New MySqlDataAdapter
Dim SQLAbfrage As String = "SELECT * FROM benutzer WHERE Benutzername='" + Replace(benutzer_txtbox.Text, " ", "") + "' AND SecretAnwser='" & Replace(sa_txtbox.Text, " ", "") + "' AND Email='" & Replace(email_txtbox.Text, " ", "") & "'"
Dim myCommand As New MySqlCommand
myCommand.Connection = conn
myCommand.CommandText = SQLAbfrage

myAdapter.SelectCommand = myCommand
Dim myData As MySqlDataReader
myData = myCommand.ExecuteReader()

If myData.HasRows = 0 Then
conn.Close()
conn.Open()
Dim registerfinal As New MySqlDataAdapter
Dim benutzer As String = MD5StringHash(benutzer_txtbox.Text)

myCommand.CommandText = "UPDATE benutzer SET Passwort = '" & sa_newpass.Text & "' WHERE Benutzername = '" & benutzer & "'"
myCommand.ExecuteNonQuery()
MsgBox("Benutzer:" & benutzer_txtbox.Text & "wurde erfolgreich zurrück gesetzt.")
conn.Close()
Else
MsgBox("Fehler Code 2 : Falsche Daten")
End If

Alles anzeigen