Howdy, Stranger!

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

Categories

Welcome to the new platform of Programmer's Heaven! We apologize for the inconvenience caused, if you visited us from a broken link of the previous version. The main reason to move to a new platform is to provide more effective and collaborative experience to you all. Please feel free to experience the new platform and use its exciting features. Contact us for any issue that you need to get clarified. We are more than happy to help you.

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.