.NET Tutorials, Forums, Interview Questions And Answers
Welcome :Guest
 
Sign In
Register
 
Win Surprise Gifts!!!
Congratulations!!!


Top 5 Contributors of the Month
david stephan

Post New Resource Bookmark and Share   

Change Password in csharp

Posted By:satyapriyanayak       Posted Date: April 10, 2013    Points: 25    Category:    URL: http://www.dotnetspark.com  

We need to change your password frequently from time to time from being hacked.While changing we have to enter old password and your desired new password and to confirm it we have to again enter the new password.
 

Imports System.Data
Imports System.Data.OleDb
Public Class Form1
    Dim ConnectionString As String = System.Configuration.ConfigurationSettings.AppSettings("dsn")
    Dim con As OleDbConnection
    Dim com As OleDbCommand
    Dim oledbda As OleDbDataAdapter
    Dim ds As DataSet
    Dim str As String
    Dim up As Byte
    Private Sub btn_change_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_change.Click
        If TextBox3.Text <> TextBox2.Text Then

            MsgBox("confirm password not matching with new passsword")

            TextBox3.Focus()

            Exit Sub

        End If

        Try
            'If con.State = ConnectionState.Open Then
            '    con.Close()
            'End If
            con = New OleDbConnection(ConnectionString)
            con.Open()

            str = "select * from login"
            com = New OleDbCommand(str, con)
            Dim reader As OleDbDataReader = com.ExecuteReader

            Do While reader.Read

                If TextBox1.Text = reader("oldpwd") Then
                    up = 1
                End If
            Loop

            If up = 1 Then

                str = "update login set newpwd='" & TextBox3.Text & "' where oldpwd='" & TextBox1.Text & "'"
                com = New OleDbCommand(str, con)
                com.ExecuteNonQuery()
                MsgBox("Password changed")

            Else

                MsgBox("Please enter correct Oldpassword and Newpassword")
                TextBox1.Focus()

            End If
            reader.Close()
            con.Close()

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try
        clear()
        bind()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        clear()

    End Sub
    Sub clear()
        If Len(TextBox1.Text) = 0 & Len(TextBox2.Text) = 0 Then

            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""


        Else
            TextBox3.Text = ""
            TextBox1.Clear()
            TextBox2.Clear()
            TextBox3.Clear()
            TextBox1.Focus()
            'Me.Close()

        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        bind()
    End Sub
    Sub bind()
        con = New OleDbConnection(ConnectionString)
        con.Open()
        str = "select * from login"
        com = New OleDbCommand(Str, con)
        oledbda = New OleDbDataAdapter(com)
        ds = New DataSet()
        oledbda.Fill(ds, "login")
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "login"
        con.Close()
    End Sub

   
End Class



     

Further Readings:

Responses

No response found. Be the first to respond this post

Post Comment

You must Sign In To post reply
Here

Hall of Fame    Twitter   Terms of Service    Privacy Policy    Contact Us    Archives   Tell A Friend