Hallo Forum
Bei meinem Loginsystem habe ich ein Problem undzwar habe ich eine Form eingebaut, für den Fall wenn man mal sein Passwort vergisst. Dort soll der User seine, bei der Anmeldung angegebene Email, nochmals angeben, da diese schon in der Datenbank registriert ist. Anschließend möchte ich zu der Zeile des Users springen(in der Datenbank), wo seine Email gespeichert ist und dann das Passwort als string in einer Email an den User schicken. Das Versenden der Email ist kein Problem funktioniert auch wunderbar. Nur das auslesen des Passworts bekomme ich nicht hin. Hier mal der Code:
Villeicht kennt ja jemand einen Weg das zu erreichen.
Mfg. OneWorld
Bei meinem Loginsystem habe ich ein Problem undzwar habe ich eine Form eingebaut, für den Fall wenn man mal sein Passwort vergisst. Dort soll der User seine, bei der Anmeldung angegebene Email, nochmals angeben, da diese schon in der Datenbank registriert ist. Anschließend möchte ich zu der Zeile des Users springen(in der Datenbank), wo seine Email gespeichert ist und dann das Passwort als string in einer Email an den User schicken. Das Versenden der Email ist kein Problem funktioniert auch wunderbar. Nur das auslesen des Passworts bekomme ich nicht hin. Hier mal der Code:
VB.NET-Quellcode
- Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
- Dim cmd As New MySqlCommand
- Dim myAdapter As New MySqlDataAdapter
- Dim SQLAbfrage As String = "SELECT * FROM registrierungsdaten WHERE user_email='" + Replace(TextBox1.Text, " ", "") & "'"
- cmd.CommandText = SQLAbfrage
- cmd.Connection = conn
- myAdapter.SelectCommand = cmd
- Dim myData As MySqlDataReader
- myData = cmd.ExecuteReader
- If myData.HasRows Then
- Dim MyEmail As New MailMessage
- Dim MyAdress As String = "XXXX"
- Dim MyPasswort As String = "XXXXX"
- Try
- Dim PasswortUser = "SELECT * FROM registrierungsdaten WHERE user_email='"(TextBox1.Text) & "'" & "'user_password'" '<--- Mein Versuch wahrscheinlich total falsch weil ich langsam die Nerven verliere ^^
- MyEmail.From = New MailAddress(MyAdress)
- MyEmail.To.Add(TextBox1.Text)
- MyEmail.Subject = (" password")
- MyEmail.Body = ("")
- Dim smtp As New SmtpClient("smtp.googlemail.com")
- smtp.Port = 587
- smtp.EnableSsl = True
- smtp.Credentials = New System.Net.NetworkCredential(MyAdress, MyPasswort)
- smtp.Send(MyEmail)
- Catch ex As Exception
- MsgBox(ex.ToString)
- End Try
- Else
- MsgBox("Diese E-Mail Adresse ist wurde nicht hinterlegt")
- End If
- End Sub
Villeicht kennt ja jemand einen Weg das zu erreichen.
Mfg. OneWorld
Youtube Info Library 2013 jetzt im Showroom.