Property procedure in VB.NET

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.

Program

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

 

Output


propertyprocedure.gif


Up Next
    Ebook Download
    View all
    Learn
    View all