shocraneh
جمعه 22 آبان 1388, 17:30 عصر
با وجودی که رمز عبور رو عوض می کنه پیغام ام کاربری یا كلمه عبورقبلی نادرست می باشد را می دهد
Dim cn As New OleDbConnection(strCnn)
Dim struser As String = "SELECT * FROM Tbllogin WHERE (AdminUsername=@admin) and (AdminPassword=@adminpass)"
Dim Cmd As New OleDbCommand(struser, cn)
Cmd.Parameters.AddWithValue("@admin", Txtusername.Text)
Cmd.Parameters.AddWithValue("@adminpass", TxtOldpassword.Text)
cn.Open()
Dim dr1 As OleDbDataReader
dr1 = Cmd.ExecuteReader()
If (dr1.Read()) Then
cn.Close()
Dim cn1 As New OleDbConnection(strCnn)
Dim username = Txtusername.Text.ToString()
Dim strlogin As String = "UPDATE TblLogin SET AdminPassword=@pass WHERE AdminUserName='" + username.Trim + "'"
Dim Cmd1 As New OleDbCommand(strlogin, cn1)
Cmd1.Parameters.AddWithValue("@pass", TxtNewpassword.Text.Trim)
cn1.Open()
Cmd1.ExecuteNonQuery()
cn1.Close()
LblAlter.Visible = True
LblAlter.Text = "تغییر رمز با موفقیت انجام شد"
Exit Sub
Else
cn.Close()
LblAlter.Text = "نام کاربری یا كلمه عبورقبلی نادرست می باشد "
Exit Sub
End If
Dim cn As New OleDbConnection(strCnn)
Dim struser As String = "SELECT * FROM Tbllogin WHERE (AdminUsername=@admin) and (AdminPassword=@adminpass)"
Dim Cmd As New OleDbCommand(struser, cn)
Cmd.Parameters.AddWithValue("@admin", Txtusername.Text)
Cmd.Parameters.AddWithValue("@adminpass", TxtOldpassword.Text)
cn.Open()
Dim dr1 As OleDbDataReader
dr1 = Cmd.ExecuteReader()
If (dr1.Read()) Then
cn.Close()
Dim cn1 As New OleDbConnection(strCnn)
Dim username = Txtusername.Text.ToString()
Dim strlogin As String = "UPDATE TblLogin SET AdminPassword=@pass WHERE AdminUserName='" + username.Trim + "'"
Dim Cmd1 As New OleDbCommand(strlogin, cn1)
Cmd1.Parameters.AddWithValue("@pass", TxtNewpassword.Text.Trim)
cn1.Open()
Cmd1.ExecuteNonQuery()
cn1.Close()
LblAlter.Visible = True
LblAlter.Text = "تغییر رمز با موفقیت انجام شد"
Exit Sub
Else
cn.Close()
LblAlter.Text = "نام کاربری یا كلمه عبورقبلی نادرست می باشد "
Exit Sub
End If