비밀 번호 분실 asp.net

Question

이것은 비밀 번호 분실에 관한 것입니다. 오류 직면이 문에 대한 범위를 벗어난 인덱스를 "만일 ds.Tables (0) .Rows.Count을> 0 그런 다음"

Dim com As New MySqlCommand 
    Dim dr As MySqlDataReader 
    conn.Open() 
    Dim query As String 

    query = "select Password, CustomerName from userdetail where Email = @Email" 

    com = New MySqlCommand(query, conn) 

    com.Parameters.AddWithValue("@Email", Email.Text) 

    dr = com.ExecuteReader 



    If dr(0).ToString > 0 Then 

     Dim Smtp_Server As New SmtpClient 
     Dim e_mail As New MailMessage() 

     Smtp_Server.UseDefaultCredentials = False 
     Smtp_Server.Credentials = New Net.NetworkCredential("xxx", "xxx") 
     Smtp_Server.Port = 587 
     Smtp_Server.EnableSsl = True 
     Smtp_Server.Host = "smtp.gmail.com" 

     e_mail = New MailMessage() 
     e_mail.From = New MailAddress("xxx") 
     e_mail.To.Add(Email.Text) 
     e_mail.Subject = "Your Password Details" 
     e_mail.IsBodyHtml = True 
     e_mail.Body = "Hi, <br/>Please check your Login Detailss<br/><br/>Your Username: " & 
         Convert.ToString(ds.Tables(0).Rows(0)("CustomerName")) & "<br/><br/>Your Password: " & 
         Convert.ToString(ds.Tables(0).Rows(0)("Password")) & "<br/><br/>" 
     Smtp_Server.Send(e_mail) 

    Else 
     Label7.Text = "The Email you entered not exists" 

    End 
    conn.Close() 

내 데이터베이스 설계 : 사용자 아이디, 비밀번호, CUSTOMERNAME, 연락처, 이메일, 상태

Answer 1

너를 위해서.

그러나 나는이 강조를 테스트하지 않았습니다. "더보기"와 다윗의 의견은 완전히 정확하다고 말했습니다. 전자 메일에서 암호를 보내는 것은 결코 좋지 않습니다.

Answer 2

당신은

Dim queryString As String = 
       "select Password, CustomerName from userdetail where Email = @Email" 

Dim cmd As SqlCommand = conn.CreateCommand() 
Dim da As New SqlDataAdapter() 
cmd.Parameters.AddWithValue("@Email", Email.Text) 
cmd.CommandText = queryString 
da.SelectCommand = cmd 
Dim ds As New DataSet() 

conn.Open() 
da.Fill(ds) 

는 그런 다음 기록에 대한 귀하의 데이터 집합을 확인하실 수 있습니다 .. 내가 가정하고있는 ds가하는 Dataset?입니다 채울 필요가있다. 당신은 또한 확인해야 다음이 적용

는

1. Email 필드는
2. 암호를 재설정 할 수 있도록하고, 일반 텍스트를 보내지 않도록 사용자에게 전송 링크 독특한 입니다. 당신이 MySqlDataReaders 및 DataSet

   사이에 더 같은

   Using cn As New MySqlConnection("YOURCONNECTIONSTRING") 
        cn.Open() 
   
        Using cmd As New MySqlCommand("select Password, CustomerName from userdetail where Email = @Email", conn) 
         cmd.Parameters.AddWithValue("@Email", Email.Text) 
         Dim dr As MySqlDataReader 
         dr = cmd.ExecuteReader 
   
         If dr.Read() Then 
   
          'Did find a record to access the fields use = dr("FieldName").ToString() 
   
   
         Else 
   
          'didnt find a record 
         End If 
   
         dr.Close() 
         dr = Nothing 
   
        End Using 
   
       End Using 
   

   Using 명령 및 연결을 폐기 처리됩니다 보여야 MySqlDataReader 솔루션을 지금 당신이 혼합 질문을 변경하고 한 확인