problem in changing/updating password - Programmers Heaven

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

problem in changing/updating password

jolie_fanjolie_fan Posts: 1Member
hi all! i'm new here. i just learnt this asp.net and not very good at it. anyway, i'm having trouble in updating the password. it's like this; every user can change their current password, and when they change their password, they have to enter their old password, and then type a new one and re-type again to confirm the new password. the code that i've written is like this:

<%@ Page Language="VB" Debug="true" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDB" %>


Sub Page_Load()
lblDisplayId.text=Session("UserName")
End Sub

Sub OK(sender As Object, e As EventArgs)
If txtOldPwd.text = "" AND txtNewPwd.text = "" AND txtConNewPwd.text="" Then
lblRequired1.text="Please fill in all fields!"
ElseIf txtOldPwd.text = "" AND txtNewPwd.text = "" Then
lblRequired1.text="Please enter your Old and New Password!"
ElseIf txtOldPwd.text = "" AND txtConNewPwd.text="" Then
lblRequired1.text="Please enter your Old and Confirm New Password!"
ElseIf txtNewPwd.text = "" AND txtConNewPwd.text="" Then
lblRequired1.text="Please enter your New and Confirm New Password!"

Else

Dim connectionString As OleDbConnection
Dim strSelectPwd As String
Dim strUpdatePwd As String
Dim data As New DataSet()

connectionString = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0; " & _
"Ole DB Services=-4; Data Source='EzySys.mdb'")
connectionString.Open()

strSelectPwd = "SELECT Resident_Pwd FROM resident_info WHERE Resident_ID='" & Session("UserName") & "'"

Dim cmdSelectPwd As New OLEDBCommand(strSelectPwd,connectionString)
Dim cmdUpdatePwd As New OLEDBCommand(strUpdatePwd,connectionString)

Dim Dr As OLEDBDataReader=cmdSelectPwd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)

If Dr.Read()
If Dr("Resident_Pwd").ToString = txtOldPwd.text Then
If (txtNewPwd.text) = (txtConNewPwd.text) Then
strUpdatePwd = "UPDATE resident_info SET Resident_Pwd = txtNewPwd.text WHERE Resident_ID = '" & Session("UserName") & "'"
Else
lblRequired1.text="Please enter the same new and confirm password!"
End If
Else
lblRequired1.text = "Incorrect old password!"
End If
End If

Dr.Close
connectionString.Close()
End If
End Sub

Sub Cancel(sender As Object, e As EventArgs)
Response.Redirect("res_mainpage.aspx")
End Sub




CHANGE PASSWORD









































Change Password 



User
ID :


Old
Password :



New
Password :



Confirm
New Password :



                       

            




>



so, i checked my database to see if the new password had replaced the old one. but the problem is, it doesn't! i still have the same old password in the database! and there is no error messages that are generated when i run it with Web Matrix! so, ladies & gentlemen, what could have been wrong here???

Comments

  • singhrohit82singhrohit82 Posts: 33Member
    Hi,

    There is one thing wrong in your query. change your query from
    {
    strUpdatePwd = "UPDATE resident_info SET Resident_Pwd = txtNewPwd.text WHERE Resident_ID = '" & Session("UserName") & "'"
    }

    to
    {
    strUpdatePwd = "UPDATE resident_info SET Resident_Pwd = '" & txtNewPwd.text & "' WHERE Resident_ID = '" & Session("UserName") & "'"
    }

    Hope it works




Sign In or Register to comment.