I have made small project for my office i have users table for Login Credentials I have Fileds First Name username password Password Change Date amp TimeMy code works for wrong usernamepasswordI want to run Query so that for correct username amp wrong password it must display Password Change Date amp Time of that correct username The code i inserted below pls rply ASAPThanks in Advance Sir Protected Sub Button1ClickByVal sender As Object ByVal e As SystemEventArgs Hand

This WayHTMLltform id34form134 runat34server34gt ltdivgt User Name ltaspTextBox ID34txtUserName34 runat34server34 gt ltbr gt Password ltaspTextBox ID34txtPassword34 runat34server34 gt ltaspButton ID34btnLogin34 runat34server34 Text34Login34 OnClick34LoginToWebSite34 gt ltdivgt ltformgtVBDim constr As String ConfigurationManagerConnectionStrings34ConString34ConnectionString Protected Sub LoginToWebSiteByVal sender As Object ByVal e As EventArgs Dim sqlStatment As String 34SELECT UserNamePassword FROM Users34 Using con As New SqlConnectionconstr Using cmd As New SqlCommandsqlStatment con Using da As New SqlDataAdaptercmd Dim ds As New DataSet daFillds Dim userName As String dsTables0R

Display Last Password changed date after Login in ASP.Net

PRASADBA...

SOLVED CLOSED ACTIVE ANSWERED
User: PRASADBAB
Posted: on Jan 10, 2014 04:07 AM
Forum: ASP.Net Web Forms
Answer: 1
Views: 4305

I have made small project for my office, i have users table for Login Credentials. I have Fileds First Name, username, password, Password Change Date & Time.

My code works for wrong username/password.

I want to run Query so that for correct username & wrong password it must display "Password Change Date & Time" of that correct username. The code i inserted below. pls rply ASAP.

Thanks in Advance Sir...

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

        'dt = DateTime.Now()
        'Create Connection String And SQL Statement
        Dim conn As New OleDbConnection
        conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\Database1.mdb"
        Dim strSelect As String = "SELECT COUNT(*) FROM users WHERE username = @Username AND password = @Password"
        Dim cmd As New OleDbCommand()
        cmd.Connection = conn
        cmd.CommandType = CommandType.Text
        cmd.CommandText = strSelect
        Dim username As New OleDbParameter("@username", OleDbType.VarChar, 50)
        username.Value = TextBox1.Text.Trim().ToString()
        cmd.Parameters.Add(username)
        Dim password As New OleDbParameter("@password", OleDbType.VarChar, 50)
        password.Value = TextBox2.Text.Trim().ToString()
        cmd.Parameters.Add(password)

        conn.Open()
        Dim result As Integer = DirectCast(cmd.ExecuteScalar(), Int32)

        conn.Close()

        If result >= 1 Then
            Session("username") = TextBox1.Text.ToString().Trim()
            Response.Redirect("~/Default.aspx")

        Else
            Dim res As Integer
            conn.Open()
            'Dim s As Object
            Dim strSelect1 As String = "SELECT ISNULL([Password Change Date & Time]) FROM users WHERE username = '" + TextBox1.Text.ToString() + "'"
            Dim cmd1 As New OleDbCommand(strSelect1, conn)
            res = cmd1.ExecuteNonQuery()
            ' Response.Write("<script>alert('Query Value = " + res.ToString() + "')</script>")

            If res = 0 Then

                Dim strSelect2 As String = "SELECT [Password Change Date & Time] FROM users WHERE username = '" + TextBox1.Text.ToString() + "'"
                Dim cmd2 As New OleDbCommand(strSelect2, conn)
                Dim res1 As String
                res1 = cmd2.ExecuteScalar().ToString()

                Response.Write("<script>alert('Incorrect Password for Username " + TextBox1.Text.ToString() + "!!')</script>")
                Label1.Visible = True
                Label1.Text = "Incorrect Username or Password" + "<br />" + "Your Last Modified Password Date & Time = " + "<b>" + res1.ToString + "</b>"
                conn.Close()

            Else
                'Response.Write("<script>alert('Incorrect Password for Username " + TextBox1.Text.ToString() + "!!')</script>")
                Response.Write("<script>alert('Incorrect Username/Password!!')</script>")
                Label1.Visible = True
                Label1.Text = "Incorrect Username or Password"
                conn.Close()
                
            End If
        End If
    End Sub

Azim

0 2

Reply
ANSWER
User: Azim
Replied: on Jan 10, 2014 05:17 AM
Report

This Way:

HTML:

<form id="form1" runat="server">
    <div>
        User Name
        <asp:TextBox ID="txtUserName" runat="server" />
        <br />
        Password
        <asp:TextBox ID="txtPassword" runat="server" />
        <asp:Button ID="btnLogin" runat="server" Text="Login" OnClick="LoginToWebSite" />
    </div>
    </form>

VB:

Dim constr As String = ConfigurationManager.ConnectionStrings("ConString").ConnectionString

    Protected Sub LoginToWebSite(ByVal sender As Object, ByVal e As EventArgs)

        Dim sqlStatment As String = "SELECT UserName,Password FROM [Users]"
        Using con As New SqlConnection(constr)
            Using cmd As New SqlCommand(sqlStatment, con)
                Using da As New SqlDataAdapter(cmd)
                    Dim ds As New DataSet()
                    da.Fill(ds)
                    Dim userName As String = ds.Tables(0).Rows(0)("UserName").ToString()
                    Dim password As String = ds.Tables(0).Rows(0)("Password").ToString()
                    If userName = Me.txtUserName.Text.Trim() AndAlso password <> Me.txtPassword.Text.Trim() Then
                        Dim sqlLastTime As String = "SELECT [LastPaswordChangedDate] FROM [Users]"
                        SelectDateTime(sqlLastTime)
                    End If
                End Using
            End Using
        End Using
    End Sub

    Private Sub SelectDateTime(ByVal query As String)
        Using con As New SqlConnection(constr)
            Using cmd As New SqlCommand(query, con)
                Using da As New SqlDataAdapter(cmd)
                    Dim ds As New DataSet()
                    da.Fill(ds)
                    Dim message As String = "Last time you changed the password at this date" + ds.Tables(0).Rows(0)("LastPaswordChangedDate").ToString()
                    Dim sb As New System.Text.StringBuilder()
                    sb.Append("<script type = 'text/javascript'>")
                    sb.Append("window.onload=function(){")
                    sb.Append("alert('")
                    sb.Append(message)
                    sb.Append("')};")
                    sb.Append("</script>")
                    ClientScript.RegisterClientScriptBlock(Me.[GetType](), "alert", sb.ToString())
                End Using
            End Using
        End Using
    End Sub

Import NameSapace:

Imports System.Configuration
Imports System.Data.SqlClient
Imports System.Data

SQL:

CREATE TABLE [dbo].[Users](
	[UserId] [int] IDENTITY(1,1) NOT NULL,
	[Username] [nvarchar](20) NOT NULL,
	[Password] [nvarchar](20) NOT NULL,
	[Email] [nvarchar](30) NOT NULL,
	[CreatedDate] [datetime] NOT NULL,
	[LastPaswordChangedDate] [datetime] NULL,
 CONSTRAINT [PK_Users] PRIMARY KEY CLUSTERED 
(
	[UserId] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
) ON [PRIMARY]

GO

Thank You.

Display Last Password changed date after Login in ASP.Net

Company

Explore

Follow us

Contact Us